oreodave/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

(Emacs/elisp/org-bookmark)~indenting

Browse Source
This commit is contained in:
Aryadev Chavali
2024-08-21 16:43:27 +01:00
parent d1bb76f314
commit 3bbfab5e4f
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Emacs/.config/emacs/elisp/org-bookmark.el
View File

@@ -86,8 +86,8 @@ are cached for faster lookup."
(with-current-buffer (find-file-noselect org-bookmark/file) (with-current-buffer (find-file-noselect org-bookmark/file)
(let ((cur-last-modified (float-time (visited-file-modtime)))) (let ((cur-last-modified (float-time (visited-file-modtime))))
(when (or (null org-bookmark/--cache) ; no cache (when (or (null org-bookmark/--cache) ; no cache
(null org-bookmark/--cache-last-modified) ; no last modified (null org-bookmark/--cache-last-modified) ; no last modified
(not (= cur-last-modified org-bookmark/--cache-last-modified))) ; file has been modified (not (= cur-last-modified org-bookmark/--cache-last-modified))) ; file has been modified
(setq org-bookmark/--cache-last-modified cur-last-modified (setq org-bookmark/--cache-last-modified cur-last-modified
org-bookmark/--cache (mapcar org-bookmark/--cache (mapcar
#'org-bookmark/--format-heading-data #'org-bookmark/--format-heading-data
@@ -125,9 +125,9 @@ opening the url to some handler function."
(cl-loop (cl-loop
for (patterns . func) in org-bookmark/dispatch-list for (patterns . func) in org-bookmark/dispatch-list
if (or (eq patterns 'otherwise) if (or (eq patterns 'otherwise)
(cl-some (cl-some
#'(lambda (pattern) (string-match pattern url)) #'(lambda (pattern) (string-match pattern url))
patterns)) patterns))
return func))) return func)))
(message "dispatch-choice=%S" dispatch-choice) (message "dispatch-choice=%S" dispatch-choice)
(funcall dispatch-choice (cdr pair)))))) (funcall dispatch-choice (cdr pair))))))