summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2017-01-01 10:43:48 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2017-01-01 10:43:48 +0100
commitc7cc30b4d6ac562e7ee539f68f1754238b97dc61 (patch)
treeba31dd36d7b5c94b047283728cca7798ceb122c6
parentdd727cf0cb5319521f71d389a39dc3def541b2ef (diff)
downloadorg-mode-c7cc30b4d6ac562e7ee539f68f1754238b97dc61.tar.gz
ox-publish: Back-port `org-publish-property'
* lisp/ox-publish.el (org-publish-property): New function.
-rw-r--r--lisp/ox-publish.el9
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/ox-publish.el b/lisp/ox-publish.el
index 5e48fd1..2cedd25 100644
--- a/lisp/ox-publish.el
+++ b/lisp/ox-publish.el
@@ -386,6 +386,15 @@ If there is no timestamp, create one."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Getting project information out of `org-publish-project-alist'
+(defun org-publish-property (property project &optional default)
+ "Return value PROPERTY, as à symbol, in PROJECT.
+DEFAULT is returned when PROPERTY is not actually set in PROJECT
+definition."
+ (let ((properties (cdr project)))
+ (if (plist-member properties property)
+ (plist-get properties property)
+ default)))
+
(defun org-publish-expand-projects (projects-alist)
"Expand projects in PROJECTS-ALIST.
This splices all the components into the list."