pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

This is how to properly enforce precedence

Browse source
This commit is contained in:
Benson Chu 2024-10-08 14:13:03 -05:00
parent 4fc034318a
commit a584410654
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/tmux-cmd.el
View file

@ -96,21 +96,24 @@
(list ,@body) (list ,@body)
;; TODO: Should be strict about this, don't let this implicitly happen ;; TODO: Should be strict about this, don't let this implicitly happen
(flatten-list it) (flatten-list it)
(string-join it " && "))) (string-join it " && ")
(format "{ %s; }" it)))
(defmacro shell-or (&rest body) (defmacro shell-or (&rest body)
`(--> `(-->
(list ,@body) (list ,@body)
;; TODO: Should be strict about this, don't let this implicitly happen ;; TODO: Should be strict about this, don't let this implicitly happen
(flatten-list it) (flatten-list it)
(string-join it " || "))) (string-join it " || ")
(format "{ %s; }" it)))
(defmacro shell-then (&rest body) (defmacro shell-then (&rest body)
`(--> `(-->
(list ,@body) (list ,@body)
;; TODO: Should be strict about this, don't let this implicitly happen ;; TODO: Should be strict about this, don't let this implicitly happen
(flatten-list it) (flatten-list it)
(string-join it " ; "))) (string-join it " ; ")
(format "{ %s; }" it)))
(defmacro shell-let* (let-clauses &rest body) (defmacro shell-let* (let-clauses &rest body)
(declare (indent 1)) (declare (indent 1))