From b2ce685312a1467bc4c540501ae62d41c4b8c28b Mon Sep 17 00:00:00 2001 From: Chris Barrett Date: Thu, 15 Sep 2022 18:26:13 +1200 Subject: [PATCH] Remove unneeded dash lets --- lisp/org-roam-dblocks.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/lisp/org-roam-dblocks.el b/lisp/org-roam-dblocks.el index 5fc0fc7..1e85945 100644 --- a/lisp/org-roam-dblocks.el +++ b/lisp/org-roam-dblocks.el @@ -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))))