contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Use when-let instead of awhen

This commit is contained in:
contrapunctus 2022-01-15 10:28:59 +05:30
parent 671b7c2ab6
commit 0564bde343
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
init.org
View File

@ -2920,17 +2920,16 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("a" ag "ag") ("a" ag "ag")
("h" find-grep "find-grep")) ("h" find-grep "find-grep"))
#+END_SRC #+END_SRC
** General ** General
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(require 'anaphora)
(defun my-compile-project (file &optional prefix cmd) (defun my-compile-project (file &optional prefix cmd)
"Enter ancestor directory containing FILE and run compile command CMD. "Enter ancestor directory containing FILE and run compile command CMD.
If CMD is not supplied, use `compile-command'. If CMD is not supplied, use `compile-command'.
With PREFIX argument and omitted CMD, prompt for command." With PREFIX argument and omitted CMD, prompt for command."
(interactive "fDominating File: \nP") (interactive "fDominating File: \nP")
(awhen (locate-dominating-file default-directory file) (when-let ((dir (locate-dominating-file default-directory file)))
(cd it)) (cd dir))
(compile (compile
(cond (prefix (cond (prefix
(compilation-read-command (compilation-read-command