awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-09-10 15:33:31 -05:00
Code Issues Packages Projects Releases Wiki Activity

Remove unneeded dash lets

Browse Source
This commit is contained in:
Chris Barrett
2022-09-15 18:26:13 +12:00
parent b07a875442
commit b2ce685312
1 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/org-roam-dblocks.el
View File

@@ -278,10 +278,10 @@ predicates.")
(seq-difference required-tags tags)))))
(defun org-roam-dblocks--compiled-predicates (params)
(-let ((tags (org-tags-filter-parse (org-roam-dblocks-args-tags params)))
(match (org-roam-dblocks--parse-regexp-form (org-roam-dblocks-args-match params)))
(predicate (org-roam-dblocks--compile-filter-fns params))
(block-id (org-roam-dblocks-args-id params)))
(let ((tags (org-tags-filter-parse (org-roam-dblocks-args-tags params)))
(match (org-roam-dblocks--parse-regexp-form (org-roam-dblocks-args-match params)))
(predicate (org-roam-dblocks--compile-filter-fns params))
(block-id (org-roam-dblocks-args-id params)))
(lambda (node)
(when (and (not (equal block-id (org-roam-node-id node)))
(org-roam-dblocks--eval-regexp-predicate node match)
@@ -350,13 +350,13 @@ and old content."
(condition-case-unless-debug err
(progn
(org-roam-dblocks-args-assert params t)
(-let* ((id (org-roam-dblocks-args-id params))
(node (if id (org-roam-node-from-id id) (org-roam-node-at-point t)))
(lines (->> (org-roam-backlinks-get node :unique t)
(-keep (-compose (org-roam-dblocks--compiled-predicates params) #'org-roam-backlink-source-node))
(seq-map (org-roam-dblocks--make-link-formatter params))
(seq-sort 'org-roam-dblocks--link-sorting)
(seq-map #'org-roam-dblocks--link-to-list-item))))
(let* ((id (org-roam-dblocks-args-id params))
(node (if id (org-roam-node-from-id id) (org-roam-node-at-point t)))
(lines (->> (org-roam-backlinks-get node :unique t)
(-keep (-compose (org-roam-dblocks--compiled-predicates params) #'org-roam-backlink-source-node))
(seq-map (org-roam-dblocks--make-link-formatter params))
(seq-sort 'org-roam-dblocks--link-sorting)
(seq-map #'org-roam-dblocks--link-to-list-item))))
(string-join lines "\n")))
(error (error-message-string err))))