diff options
Diffstat (limited to 'publish.el')
| -rw-r--r-- | publish.el | 13 |
1 files changed, 3 insertions, 10 deletions
@@ -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/" |