10 lines
366 B
EmacsLisp
10 lines
366 B
EmacsLisp
;;; lang/org/autoload/util.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autoload
|
|
(defun +org-get-property (name &optional _file) ; TODO Add 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))))
|
|
|