2017-02-23 12:32:15 -05:00
|
|
|
;;; lang/org/autoload/util.el
|
2017-02-19 19:01:47 -05:00
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun +org-get-property (name &optional file)
|
|
|
|
|
"Get a propery from an org file."
|
|
|
|
|
(save-excursion
|
|
|
|
|
(goto-char 1)
|
|
|
|
|
(re-search-forward (format "^#\\+%s:[ \t]*\\([^\n]+\\)" (upcase name)) nil t)
|
|
|
|
|
(buffer-substring-no-properties (match-beginning 1) (match-end 1))))
|
|
|
|
|
|
