diff options
Diffstat (limited to 'publish.el')
-rw-r--r-- | publish.el | 13 |
1 files changed, 7 insertions, 6 deletions
@@ -60,6 +60,7 @@ The content starts with the first empty line." (when (and (file-readable-p file) (not (directory-name-p file))) (with-temp-buffer (insert-file-contents file) + (delete-trailing-whitespace) ;; important, otherwise org may truncate the sitemap, probably due to some problem in converting all things to a list (goto-char (point-min)) (let ((beg (+ 1 (re-search-forward "^$")))) (buffer-substring beg (point-max))))))) @@ -71,16 +72,16 @@ ENTRY: file-name STYLE: PROJECT: `microposts in this case." (cond ((not (directory-name-p entry)) - (format "*[[%s][%s]]* - %s\n<<%s>>\n\n%s" + (format "*[[%s][%s]]* - %s\n<<%s>>\n\n%s" (file-name-sans-extension entry) - (format-time-string this-date-format - (org-publish-find-date entry project)) - (org-publish-find-title entry project) + (format-time-string this-date-format + (org-publish-find-date entry project)) + (org-publish-find-title entry project) (file-name-sans-extension entry) (org-publish-find-content entry project) )) - ((eq style 'tree) (file-name-nondirectory (directory-file-name entry))) - (t entry))) + ((eq style 'tree) (file-name-nondirectory (directory-file-name entry))) + (t entry))) (defun me/org-publish-microblog (plist filename pub-dir) "Publish RSS with PLIST, only when FILENAME is '../pages/microblog.org'. |