diff options
Diffstat (limited to 'init.org')
| -rw-r--r-- | init.org | 46 |
1 files changed, 17 insertions, 29 deletions
@@ -917,11 +917,10 @@ #+end_src *** completion engine - We load either [[./consult.org][consult.org]] or [[./counsel.org][counsel.org]] to configure completion - engines: + We can load either [[./consult.org][consult.org]] or [[./attic/counsel.org][counsel.org]] to configure + completion engines: #+begin_src emacs-lisp - (defvar jao-completion-engine 'consult) - (jao-load-org (format "%s" jao-completion-engine)) + (jao-load-org "consult") #+end_src * Calendar, diary, weather *** Diary @@ -3313,11 +3312,18 @@ :init (setq geiser-repl-history-filename "~/.emacs.d/cache/geiser-history") (setq geiser-repl-startup-time 20000) - (setq geiser-debug-auto-display-images-p t) - (setq geiser-chez-binary "scheme")) + (setq geiser-debug-auto-display-images-p t)) + (jao-load-path "~/usr/jao/geiser/mit") (use-package geiser-mit) + (jao-load-path "~/usr/jao/geiser/chez") + (use-package geiser-chez + :init (setq geiser-chez-binary "scheme")) + + (jao-load-path "~/usr/jao/geiser/gambit") + (use-package geiser-gambit) + (jao-load-path "~/usr/jao/geiser/racket") (use-package geiser-racket) #+END_SRC @@ -3892,29 +3898,11 @@ (jao-load-path "espotify") (use-package espotify :demand t) - - (when (eq 'consult jao-completion-engine) - (use-package consult-spotify :demand t) - (defalias 'jao-spotify-album #'consult-spotify-album) - (defalias 'jao-spotify-track #'consult-spotify-track) - (defalias 'jao-spotify-artist #'consult-spotify-artist) - (defalias 'jao-spotify-playlist #'consult-spotify-playlist) - - (embark-define-keymap spotify-item-keymap - "Actions for Spotify search results" - ("y" espotify-yank-candidate-url) - ("a" espotify-play-candidate-album) - ("h" espotify-show-candidate-info)) - - (add-to-list 'embark-keymap-alist - '(spotify-search-item . spotify-item-keymap))) - - (when (eq 'counsel jao-completion-engine) - (require 'ivy-spotify) - (defalias 'jao-spotify-album #'ivy-spotify-album) - (defalias 'jao-spotify-track #'ivy-spotify-track) - (defalias 'jao-spotify-artist #'ivy-spotify-artist) - (defalias 'jao-spotify-playlist #'ivy-spotify-playlist)) + (use-package consult-spotify :demand t) + (defalias 'jao-spotify-album #'consult-spotify-album) + (defalias 'jao-spotify-track #'consult-spotify-track) + (defalias 'jao-spotify-artist #'consult-spotify-artist) + (defalias 'jao-spotify-playlist #'consult-spotify-playlist) #+end_src *** mpdel #+BEGIN_SRC emacs-lisp |