From d97b08021e4f173318673e3ad4da44788b26fc65 Mon Sep 17 00:00:00 2001 From: dx Date: Sun, 31 May 2020 00:57:27 +0100 Subject: ~ivy-read -> completing-read for dx:themes/set-new-theme completing-read for icomplete-mode but also because it allows others to use it, regardless of completion framework of choice --- Doom/.doom.d/org/personal.org | 27 ++++++++++++--------------- 1 file changed, 12 insertions(+), 15 deletions(-) (limited to 'Doom') diff --git a/Doom/.doom.d/org/personal.org b/Doom/.doom.d/org/personal.org index f21bbce..c9d6fbb 100644 --- a/Doom/.doom.d/org/personal.org +++ b/Doom/.doom.d/org/personal.org @@ -37,25 +37,22 @@ Allow user to set a theme from a limited set of candidates, based on #+BEGIN_SRC elisp (setq dx:themes/theme-list '(doom-solarized-dark - doom-gruvbox doom-city-lights - doom-outrun-electric doom-vibrant doom-molokai - doom-solarized-light doom-acario-light - base16-3024 base16-classic-dark base16-material-vivid)) + doom-gruvbox doom-city-lights + doom-outrun-electric doom-vibrant doom-molokai + doom-solarized-light doom-acario-light + base16-3024 base16-classic-dark base16-material-vivid)) (defun dx:themes/set-new-theme () "Set the theme from my own selection, mutate as you see fit" (interactive) - (ivy-read "Select theme: " - dx:themes/theme-list - :caller 'oreodave/set-new-theme - :action (lambda (x) ; Shamelessly copied from counsel in case of change - (condition-case nil - (progn - (mapc #'disable-theme custom-enabled-themes) - (load-theme (intern x) t) - (when (fboundp 'powerline-reset) - (powerline-reset))) - (error "Problem loading theme %s" x))))) + (let ((theme (completing-read "Select theme: " dx:themes/theme-list))) + (condition-case nil + (progn + (mapc #'disable-theme custom-enabled-themes) + (load-theme (intern theme) t) + (when (fboundp 'powerline-reset) + (powerline-reset))) + (error "Problem loading theme %s" theme)))) #+END_SRC * Password store Function to get a password given a key. -- cgit v1.2.3-13-gbd6f