From 5785a5d126210e8c9651da038b6c8b083041fef6 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Mon, 23 Dec 2019 17:31:42 +0000 Subject: Support prelude/start-process If you refer to the previous commit where I change shell-command usages to start-process function calls, you'll see the rationale for why I prefer start-process. This commit introduces a more ergonomic API for start-process that fits most of my current use-cases of it. This cleans up the code. I have introduced a bug in the way that I'm tokenizing the COMMAND value. I've tracked that with a TODO. For now it only affects the `xmodmap -e ''` calls, which isn't too disruptive. --- configs/shared/.emacs.d/wpc/string.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'configs/shared/.emacs.d/wpc/string.el') diff --git a/configs/shared/.emacs.d/wpc/string.el b/configs/shared/.emacs.d/wpc/string.el index 9ffe84572a..1b766f5207 100644 --- a/configs/shared/.emacs.d/wpc/string.el +++ b/configs/shared/.emacs.d/wpc/string.el @@ -22,11 +22,14 @@ (defconst string/test? t "When t, run the tests.") -;; Strings (defun string/hookify (x) "Append \"-hook\" to X." (s-append "-hook" x)) +(defun string/split (y x) + "Map string X into a list of strings that were separated by Y." + (s-split y x)) + (defun string/ensure-hookified (x) "Ensure that X has \"-hook\" appended to it." (if (s-ends-with? "-hook" x) -- cgit 1.4.1