jjanzen/website
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

attempt to fix links

Browse source
This commit is contained in:
Jacob Janzen 2024-04-14 20:44:07 -05:00
parent 4a3cfd772b
commit 1a19f5da1d
1 changed files with 3 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
publish.el
View file

@ -20,24 +20,19 @@
(defun my/org-publish-org-sitemap-format (entry style project)
(cond ((not (directory-name-p entry))
(format "(%s) [[file:%s][%s]]\n"
(format "(%s) [[file:blog/%s][%s]]\n"
(format-time-string "%Y-%m-%d"
(org-publish-find-date entry project))
entry
(org-publish-find-title entry project)))))
(defun posts-rss-feed (title list)
"Generate a sitemap of posts that is exported as a RSS feed.
TITLE is the title of the RSS feed. LIST is an internal
representation for the files to include. PROJECT is the current
project."
(concat
"#+TITLE: " title "\n\n"
(org-list-to-subtree list)))
(defun format-posts-rss-feed-entry (entry _style project)
"Format ENTRY for the posts RSS feed in PROJECT."
(let* (
(title (org-publish-find-title entry project))
(link (concat (file-name-sans-extension entry) ".html"))
@ -46,7 +41,7 @@ project."
(message pubdate)
(format "%s
:properties:
:rss_permalink: %s
:rss_permalink: blog/%s
:pubdate: %s
:end:\n"
title
@ -54,8 +49,6 @@ project."
pubdate)))
(defun publish-posts-rss-feed (plist filename dir)
"Publish PLIST to RSS when FILENAME is rss.org.
DIR is the location of the output."
(if (equal "rss.org" (file-name-nondirectory filename))
(org-rss-publish-to-rss plist filename dir)))
@ -71,7 +64,7 @@ DIR is the location of the output."
:headline-levels 4
:section-numbers nil
:html-head "<link rel='stylesheet' href='/css/stylesheet.css' type='text/css'/>"
:html-preamble "<div class='topnav'><a href='/'>Home</a><a href='/projects.html'>Projects</a><a href='/blog'>Blog</a><a href='/config.html'>Dotfiles</a><a href='/about.html'>About Me</a></div>"
:html-preamble "<div class='topnav'><a href='/'>Home</a><a href='/projects.html'>Projects</a><a href='/blog'>Blog</a><a href='/config.html'>Dotfiles</a><a href='/about.html'>About Me</a><a href='/rss.xml'>RSS</a></div>"
:html-postamble nil)
("org-static"
:base-directory "~/website/"