about summary refs log tree commit diff
path: root/configs/shared/.emacs.d/wpc
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2020-01-18T22·34+0000
committerWilliam Carroll <wpcarro@gmail.com>2020-01-18T22·34+0000
commitfa681ffdf091143f85f83db21f54b3e374fd296f (patch)
tree947cb1d7f882866ab98ed6c0faf1c46c7780a1e6 /configs/shared/.emacs.d/wpc
parente7200fb03357aed0a0aa445af7dc21fdfebc162d (diff)
Use assert in prelude/start-process
Since the tokenizing isn't working as expected, my keyboard.el function
keyboard/swap-caps-lock-and-escape was silenting failing.

I'm adding a prelude/refute in that function to make the failures noisy until
the tokenizing is properly supported.
Diffstat (limited to 'configs/shared/.emacs.d/wpc')
-rw-r--r--configs/shared/.emacs.d/wpc/keyboard.el2
-rw-r--r--configs/shared/.emacs.d/wpc/prelude.el7
2 files changed, 6 insertions, 3 deletions
diff --git a/configs/shared/.emacs.d/wpc/keyboard.el b/configs/shared/.emacs.d/wpc/keyboard.el
index 176ac074dcd0..1323f2835675 100644
--- a/configs/shared/.emacs.d/wpc/keyboard.el
+++ b/configs/shared/.emacs.d/wpc/keyboard.el
@@ -65,6 +65,8 @@
 (defun keyboard/swap-caps-lock-and-escape ()
   "Swaps the caps lock and escape keys using xmodmap."
   (interactive)
+  ;; TODO: Ensure these work once the tokenizing in prelude/start-process works
+  ;; as expected.
   (prelude/start-process
    :name "keyboard/swap-caps-lock-and-escape"
    :command "xmodmap -e 'remove Lock = Caps_Lock'")
diff --git a/configs/shared/.emacs.d/wpc/prelude.el b/configs/shared/.emacs.d/wpc/prelude.el
index d1031daa19a1..c1039c80a34d 100644
--- a/configs/shared/.emacs.d/wpc/prelude.el
+++ b/configs/shared/.emacs.d/wpc/prelude.el
@@ -116,13 +116,14 @@ difficult to troubleshoot bugs in your init files."
   "Read input from user with PROMPT."
   (read-string prompt))
 
-;; TODO: Fix the bug with tokenizing here, since it will split any whitespace
-;; character, (even though it shouldn't in the case of quoted string in shell).
-;; e.g. - "xmodmap -e 'one two three'" => '("xmodmap" "-e" "'one two three'")
 (cl-defun prelude/start-process (&key name command)
   "Pass command string, COMMAND, and the function name, NAME.
 This is a wrapper around `start-process' that has an API that resembles
 `shell-command'."
+  ;; TODO: Fix the bug with tokenizing here, since it will split any whitespace
+  ;; character, even though it shouldn't in the case of quoted string in shell.
+  ;; e.g. - "xmodmap -e 'one two three'" => '("xmodmap" "-e" "'one two three'")
+  (prelude/refute (string/contains? "'" command))
   (let* ((tokens (string/split " " command))
          (program-name (list/head tokens))
          (program-args (list/tail tokens)))