emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Optimize doom/help-search

Browse source 
Yields a ~80% decrease in indexing time.
This commit is contained in:
Henrik Lissner 2019-10-26 01:55:16 -04:00
parent d0ae6c9bda
commit 9b3f21a9bc
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 16 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

28
modules/lang/org/autoload/org.el
View file

@ -110,24 +110,24 @@
(when (bound-and-true-p evil-local-mode)
(evil-insert 1))))
(defun +org--get-property (name &optional bound)
(save-excursion
(let ((re (format "^#\\+%s:[ \t]*\\([^\n]+\\)" (upcase name))))
(goto-char (point-min))
(when (re-search-forward re bound t)
(buffer-substring-no-properties (match-beginning 1) (match-end 1))))))
;;;###autoload
(defun +org-get-global-property (property &optional file)
"Get #+PROPERTY from an org FILE (defaults to current file)."
(defun +org-get-global-property (name &optional file bound)
"Get a document property named NAME (string) from an org FILE (defaults to
current file). Only scans first 2048 bytes of the document."
(unless bound
(setq bound 256))
(if file
(let ((bound 256))
(with-temp-buffer
(insert-file-contents-literally file nil 0 bound)
(goto-char (point-min))
(and (re-search-forward (format "^#\\+%s:[ \t]*\\([^\n]+\\)" (upcase name))
bound t)
(buffer-substring-no-properties (match-beginning 1)
(match-end 1)))))
(org-element-property
:value
(car (org-element-map (org-element-parse-buffer) 'keyword
(lambda (el)
(and (string-match-p property (org-element-property :key el))
el)))))))
(+org--get-property name))
(+org--get-property name bound)))
;;;###autoload
(defun +org-get-todo-keywords-for (&optional keyword)