aboutsummaryrefslogtreecommitdiff
path: root/publish.el
diff options
context:
space:
mode:
authorYuchen Pei <me@ypei.me>2021-06-18 14:31:02 +1000
committerYuchen Pei <me@ypei.me>2021-06-18 14:31:02 +1000
commit0663174364fef45d3985019b4f98375b4195bb0f (patch)
tree40e5ab5b7619563d1f9a53866d848e97325553ff /publish.el
parent147a19e84a743f1379f05bf2f444143b4afd7bd6 (diff)
Updated.
Diffstat (limited to 'publish.el')
-rw-r--r--publish.el9
1 files changed, 7 insertions, 2 deletions
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 "<link rel='stylesheet' href='../css/default.css' type='text/css'/>"
: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/"