From 0663174364fef45d3985019b4f98375b4195bb0f Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Fri, 18 Jun 2021 14:31:02 +1000 Subject: Updated. --- publish.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'publish.el') diff --git a/publish.el b/publish.el index a9c3a5c..ee580f0 100644 --- a/publish.el +++ b/publish.el @@ -37,6 +37,8 @@ representation for the files to include, as returned by (org-list-to-org list))) +(defun me/org-publish-do-nothing (plist filename pub-dir) "") + (defun org-publish-find-content (file project) (let ((file (org-publish--expand-file-name file project))) (when (and (file-readable-p file) (not (directory-name-p file))) @@ -54,10 +56,11 @@ ENTRY: file-name STYLE: PROJECT: `posts in this case." (cond ((not (directory-name-p entry)) - (format "%s - *[[file:microposts/%s][%s]]*\n\n%s" + (format "*[[%s][%s]]* - %s\n<<%s>>\n\n%s" + (org-publish-find-title entry project) (format-time-string this-date-format (org-publish-find-date entry project)) - entry + (org-publish-find-title entry project) (org-publish-find-title entry project) (org-publish-find-content entry project) )) @@ -78,6 +81,7 @@ PROJECT: `posts in this case." :sitemap-filename "../pages/blog.org" :html-head "" :html-preamble me/html-preamble-post + :html-self-link-headlines t :author ("Yuchen Pei") :html-postamble "" ) @@ -108,6 +112,7 @@ PROJECT: `posts in this case." :html-preamble me/html-preamble-post :author ("Yuchen Pei") :html-postamble "" + :html-prefer-user-labels t ) ("css" :base-directory "css/" -- cgit v1.2.3