From be26e8a68b22f57880805b6301ed8b7ed32eef81 Mon Sep 17 00:00:00 2001 From: dx Date: Sun, 24 May 2020 00:41:30 +0100 Subject: ~ivy-read -> completing-read More general purpose and useful --- Install.org | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) (limited to 'Install.org') diff --git a/Install.org b/Install.org index 4808922..f162e5f 100644 --- a/Install.org +++ b/Install.org @@ -26,19 +26,13 @@ The main function used to retrieve all the stowable modules in the Dotfiles dire ** Stow module Little elisp snippet to stow a specific module in the Dotfiles folder using ivy. #+BEGIN_SRC elisp -(ivy-read - "Stow module: " - (get-modules) - :require-match t - :action (lambda (choice) (async-shell-command (format "stow %s" choice) "*stow-output*" "*stow-error*"))) +(async-shell-command (format "stow %s" (completing-read "Stow module: " (get-modules) nil t)) "*stow-output*" "*stow-error*") #+END_SRC ** Delete module #+BEGIN_SRC elisp -(ivy-read - "Delete module: " - (get-modules) - :require-match t - :action (lambda (choice) (async-shell-command (format "stow -D %s" choice) "*stow-output*" "*stow-error*"))) +(async-shell-command + (format "stow -D %s" (completing-read "Delete module: " (get-modules) nil t)) + "*stow-output*" "*stow-error*") #+END_SRC * Generate user directories This makes some useful directories that are used by the system and/or by me. I -- cgit v1.2.3-13-gbd6f