dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[Org] Move hack for tag search to init.el

This commit is contained in:
Daniel - 2018-11-03 11:16:43 +01:00
parent 37273353c7
commit d82d1550c6
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
2 changed files with 16 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
init.el
View File

@ -781,6 +781,22 @@ _h_ _l_ _o_k _y_ank
(unless (memq #'db/export-diary
(mapcar #'timer--function timer-idle-list))
(run-with-idle-timer 20 t #'db/export-diary))))
;; Hack: The default implementation is too slow, because it is
;; parsing all properties of an entry by default. Let’s simplify
;; this to only parse what we are looking for. This makes tag
;; search *much* faster!
(with-eval-after-load 'org
(defun org-cached-entry-get (pom property)
(if (or (eq t org-use-property-inheritance)
(and (stringp org-use-property-inheritance)
(let ((case-fold-search t))
(string-match-p org-use-property-inheritance property)))
(and (listp org-use-property-inheritance)
(member-ignore-case property org-use-property-inheritance)))
;; Caching is not possible, check it directly.
(org-entry-get pom property 'inherit)
;; This is different in the original implementation
(org-entry-get pom property))))))
;; Default Tasks for Working, Home, Breaks

20
site-lisp/db-org.el
View File

@ -501,26 +501,6 @@ Current Task: %`org-clock-current-task; "
(format "hy %s" tempfile))
(delete-file tempfile))))
;;; Hacks
;; The default implementation is too slow, because it is parsing all properties
;; of an entry by default. Let’s simplify this to only parse what we are
;; looking for. This makes tag search *much* faster!
(with-eval-after-load 'org
(defun org-cached-entry-get (pom property)
(if (or (eq t org-use-property-inheritance)
(and (stringp org-use-property-inheritance)
(let ((case-fold-search t))
(string-match-p org-use-property-inheritance property)))
(and (listp org-use-property-inheritance)
(member-ignore-case property org-use-property-inheritance)))
;; Caching is not possible, check it directly.
(org-entry-get pom property 'inherit)
;; This is different in the original implementation
(org-entry-get pom property))))
;;; End