jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tidy: Indentation, variable

Browse source
This commit is contained in:
Adam Porter 2023-12-21 17:10:53 -06:00
parent eaf58b463e
commit b015b3b910
1 changed files with 13 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

11
org-ql-completing-read.el
View file

@ -134,7 +134,7 @@ value, or nil."
(buffers-files &key query-prefix query-filter (buffers-files &key query-prefix query-filter
(action #'org-ql-completing-read-action) (action #'org-ql-completing-read-action)
;; FIXME: Unused argument. ;; FIXME: Unused argument.
(annotate #'org-ql-completing-read-snippet) ;; (annotate #'org-ql-completing-read-snippet)
(snippet #'org-ql-completing-read-snippet) (snippet #'org-ql-completing-read-snippet)
(path #'org-ql-completing-read-path) (path #'org-ql-completing-read-path)
(action-filter #'list) (action-filter #'list)
@ -188,7 +188,6 @@ single predicate)."
(setf string (format "%s <%s>" string (cl-incf suffix))) (setf string (format "%s <%s>" string (cl-incf suffix)))
(setf string (format "%s <%s>" string (puthash string 2 disambiguations))))) (setf string (format "%s <%s>" string (puthash string 2 disambiguations)))))
(puthash (propertize string 'org-marker marker) marker table))))) (puthash (propertize string 'org-marker marker) marker table)))))
(path (marker) (path (marker)
(org-with-point-at marker (org-with-point-at marker
(let* ((path (thread-first (org-get-outline-path nil t) (let* ((path (thread-first (org-get-outline-path nil t)
@ -198,8 +197,8 @@ single predicate)."
(concat "\\" (string-join (reverse path) "\\")) (concat "\\" (string-join (reverse path) "\\"))
(concat "/" (string-join path "/"))))) (concat "/" (string-join path "/")))))
formatted-path))) formatted-path)))
(todo (todo (marker)
(marker) (if-let (it (org-entry-get marker "TODO")) (if-let (it (org-entry-get marker "TODO"))
(concat (propertize it 'face (org-get-todo-face it)) " ") (concat (propertize it 'face (org-get-todo-face it)) " ")
"")) ""))
(affix (completions) (affix (completions)
@ -216,8 +215,8 @@ single predicate)."
;; e.g. Helm while typing, but it seems to help a little when using the ;; e.g. Helm while typing, but it seems to help a little when using the
;; org-rifle-style snippets. ;; org-rifle-style snippets.
(or (snippet (get-text-property 0 'org-marker candidate)) ""))) (or (snippet (get-text-property 0 'org-marker candidate)) "")))
(snippet (snippet (marker)
(marker) (when-let (when-let
((snippet ((snippet
(org-with-point-at marker (org-with-point-at marker
(or (funcall org-ql-completing-read-snippet-function org-ql-completing-read-input-regexp) (or (funcall org-ql-completing-read-snippet-function org-ql-completing-read-input-regexp)