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