Tidy: Indentation of dash forms
See, e.g. <https://github.com/magnars/dash.el/pull/375>. Ultimately I'd prefer to indent with one distinguished argument, but the noise it causes downstream is likely not worth it. (And, unfortunately, the indentation of the built-in thread-first and thread-last forms has changed to be like this as well, which is even worse, causing 10-11 characters of extra indentation in those forms' bodies!)
This commit is contained in:
parent
29533525c3
commit
a5fbb5d976
5 changed files with 84 additions and 84 deletions
|
|
@ -59,8 +59,8 @@ Based on `helm-map'.")
|
|||
(helm-make-source "Org QL Views" 'helm-source-sync
|
||||
:candidates (lambda ()
|
||||
(->> org-ql-views
|
||||
(-map #'car)
|
||||
(-sort #'string<)))
|
||||
(-map #'car)
|
||||
(-sort #'string<)))
|
||||
:action (list (cons "Show view" #'org-ql-view)))
|
||||
"Helm source for `org-ql-views'.")
|
||||
|
||||
|
|
@ -209,8 +209,8 @@ WINDOW-WIDTH should be the width of the Helm window."
|
|||
(width (- window-width (length prefix)))
|
||||
(heading (org-get-heading t))
|
||||
(path (-> (org-get-outline-path)
|
||||
(org-format-outline-path width nil "")
|
||||
(org-split-string "")))
|
||||
(org-format-outline-path width nil "")
|
||||
(org-split-string "")))
|
||||
(path (if helm-org-ql-reverse-paths
|
||||
(concat heading "\\" (s-join "\\" (nreverse path)))
|
||||
(concat (s-join "/" path) "/" heading))))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue