awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-09-12 15:36:48 -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

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

@@ -278,7 +278,7 @@ predicates.")
(seq-difference required-tags tags))))) (seq-difference required-tags tags)))))
(defun org-roam-dblocks--compiled-predicates (params) (defun org-roam-dblocks--compiled-predicates (params)
(-let ((tags (org-tags-filter-parse (org-roam-dblocks-args-tags 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))) (match (org-roam-dblocks--parse-regexp-form (org-roam-dblocks-args-match params)))
(predicate (org-roam-dblocks--compile-filter-fns params)) (predicate (org-roam-dblocks--compile-filter-fns params))
(block-id (org-roam-dblocks-args-id params))) (block-id (org-roam-dblocks-args-id params)))
@@ -350,7 +350,7 @@ and old content."
(condition-case-unless-debug err (condition-case-unless-debug err
(progn (progn
(org-roam-dblocks-args-assert params t) (org-roam-dblocks-args-assert params t)
(-let* ((id (org-roam-dblocks-args-id params)) (let* ((id (org-roam-dblocks-args-id params))
(node (if id (org-roam-node-from-id id) (org-roam-node-at-point t))) (node (if id (org-roam-node-from-id id) (org-roam-node-at-point t)))
(lines (->> (org-roam-backlinks-get node :unique t) (lines (->> (org-roam-backlinks-get node :unique t)
(-keep (-compose (org-roam-dblocks--compiled-predicates params) #'org-roam-backlink-source-node)) (-keep (-compose (org-roam-dblocks--compiled-predicates params) #'org-roam-backlink-source-node))