howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Convert to use thread-last

Browse source 
While the ->> is nice, perhaps defaulting to emacs-builtin functions
is a better idea in general. Besides, it is clearer.
This commit is contained in:
Howard Abrams 2022-05-13 09:47:31 -07:00
parent db2d27b66c
commit 14cb05e0fa
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
ha-programming-elisp.org
View file

@ -68,15 +68,15 @@ I love packages that add functionality but I don’t have to learn anything. How
(ignore-errors (ignore-errors
(let* ((default-directory (projectile-project-root)) (let* ((default-directory (projectile-project-root))
(command (format "rg --json '\\(def[^ ]+ %s ' *.org" str)) (command (format "rg --json '\\(def[^ ]+ %s ' *.org" str))
(results (->> command (results (thread-last command
shell-command-to-list shell-command-to-list
second second
json-parse-string)) json-parse-string))
(file (->> results (file (thread-last results
(gethash "data") (gethash "data")
(gethash "path") (gethash "path")
(gethash "text"))) (gethash "text")))
(line (->> results (line (thread-last results
(gethash "data") (gethash "data")
(gethash "line_number")))) (gethash "line_number"))))
(find-file file) (find-file file)