ryuslash/orgweb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add possibility to mark posts as drafts

Browse source 
This way they won't get included in the lists or RSS, but they'll still
get exported and posted.
This commit is contained in:
Tom Willemse 2014-06-03 22:11:15 +02:00
parent ab5d3c0a5d
commit 12ec5be353
1 changed files with 29 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

49
articles/project.el
View file

@ -4,7 +4,7 @@
(load "../common.el")
(cl-defstruct orgweb:post filename title date tags contents)
(cl-defstruct orgweb:post filename title date tags contents draft)
(defun orgweb-get-permalink (entry)
(let ((entry-date (org-date-to-gregorian (orgweb:post-date entry))))
@ -31,6 +31,12 @@
(when (org-forward-heading-same-level 1)
(org-get-tags))))
(defun orgweb-get-draft ()
(save-excursion
(goto-char (point-min))
(org-forward-heading-same-level 1)
(org-entry-get (point) "DRAFT")))
(defun orgweb-get-entries ()
(delq nil
(mapcar (lambda (orgfile)
@ -45,7 +51,8 @@
:date date
:tags (orgweb-get-tags)
:contents (buffer-substring-no-properties
(point-min) (point-max)))))))
(point-min) (point-max))
:draft (orgweb-get-draft))))))
(directory-files "/home/slash/projects/orgweb/articles"
t "^[^.].*\\.org$"))))
@ -61,8 +68,9 @@
(defun orgweb-shortlist (entries)
(with-temp-buffer
(mapc (lambda (entry)
(insert "* " (orgweb-link entry "articles/") " "
(orgweb:post-date entry) "\n"))
(unless (orgweb:post-draft entry)
(insert "* " (orgweb-link entry "articles/") " "
(orgweb:post-date entry) "\n")))
entries)
(write-file "shortlist.org")))
@ -70,22 +78,23 @@
(with-temp-buffer
(insert "#+TITLE:\n#+OPTIONS: toc:nil\n\n")
(mapc (lambda (entry)
(insert
(with-temp-buffer
(insert (orgweb:post-contents entry))
(org-mode)
(goto-char (point-min))
(org-forward-heading-same-level 1)
(org-set-property "RSS_PERMALINK"
(concat "articles/" (orgweb-get-permalink entry)))
(let ((heading-start (point)))
(forward-paragraph)
(newline)
(insert (format "[[file:%s][Read more]]"
(orgweb-get-permalink entry)))
(buffer-substring-no-properties
heading-start (point))))
"\n\n")
(unless (orgweb:post-draft entry)
(insert
(with-temp-buffer
(insert (orgweb:post-contents entry))
(org-mode)
(goto-char (point-min))
(org-forward-heading-same-level 1)
(org-set-property "RSS_PERMALINK"
(concat "articles/" (orgweb-get-permalink entry)))
(let ((heading-start (point)))
(forward-paragraph)
(newline)
(insert (format "[[file:%s][Read more]]"
(orgweb-get-permalink entry)))
(buffer-substring-no-properties
heading-start (point))))
"\n\n"))
(let* ((gdate (org-date-to-gregorian
(orgweb:post-date entry)))
(date-tree (format "_build/%s/%s/%s"