From 1a19f5da1dab37d35a00a9a4737c510b91bd479f Mon Sep 17 00:00:00 2001 From: Jacob Janzen Date: Sun, 14 Apr 2024 20:44:07 -0500 Subject: attempt to fix links --- publish.el | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) (limited to 'publish.el') 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 "" - :html-preamble "
HomeProjectsBlogDotfilesAbout Me
" + :html-preamble "
HomeProjectsBlogDotfilesAbout MeRSS
" :html-postamble nil) ("org-static" :base-directory "~/website/" -- cgit v1.2.3