diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-01-01 10:43:48 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-01-01 10:43:48 +0100 |
commit | c7cc30b4d6ac562e7ee539f68f1754238b97dc61 (patch) | |
tree | ba31dd36d7b5c94b047283728cca7798ceb122c6 | |
parent | dd727cf0cb5319521f71d389a39dc3def541b2ef (diff) | |
download | org-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.el | 9 |
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." |