~ivy-read -> completing-read

More general purpose and useful
This commit is contained in:
dx
2020-05-24 00:41:30 +01:00
parent ab4f73cfbe
commit be26e8a68b

View File

@@ -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