2017-06-10 01:52:44 +02:00
|
|
|
;;; lang/org/autoload/util.el -*- lexical-binding: t; -*-
|
2017-02-19 19:01:47 -05:00
|
|
|
|
|
|
|
|
;;;###autoload
|
2017-06-14 21:03:20 +02:00
|
|
|
(defun +org-get-property (name &optional _file) ; TODO Add FILE
|
2017-02-19 19:01:47 -05:00
|
|
|
"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))))
|
|
|
|
|
|
