aboutsummaryrefslogtreecommitdiff
path: root/publish.el
diff options
context:
space:
mode:
Diffstat (limited to 'publish.el')
-rw-r--r--publish.el13
1 files changed, 3 insertions, 10 deletions
diff --git a/publish.el b/publish.el
index 9c8e10d..7d47da6 100644
--- a/publish.el
+++ b/publish.el
@@ -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/"