diff options
| author | dx <aryadevchavali1@gmail.com> | 2020-05-31 00:57:27 +0100 |
|---|---|---|
| committer | dx <aryadevchavali1@gmail.com> | 2020-05-31 00:57:27 +0100 |
| commit | d97b08021e4f173318673e3ad4da44788b26fc65 (patch) | |
| tree | 8a2c88fa5cde41b3fece0ac200de8bfbbb6be8d7 /Doom/.doom.d/org | |
| parent | c6fa4ba25af09c1f8cb526da4c3bda3e98c71702 (diff) | |
| download | dotfiles-d97b08021e4f173318673e3ad4da44788b26fc65.tar.gz dotfiles-d97b08021e4f173318673e3ad4da44788b26fc65.tar.bz2 dotfiles-d97b08021e4f173318673e3ad4da44788b26fc65.zip | |
~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
Diffstat (limited to 'Doom/.doom.d/org')
| -rw-r--r-- | Doom/.doom.d/org/personal.org | 27 |
1 files changed, 12 insertions, 15 deletions
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. |