diff options
| author | Case Duckworth | 2021-08-12 14:21:42 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-08-12 14:22:26 -0500 |
| commit | 90ea0355f759d9e5aa584e64870a9a0591a838ab (patch) | |
| tree | 1cdbc3438056df95622bb75c7553f7926771b6d8 /init.el | |
| parent | Check that `consult-crm-map' is bound before assigning things to it (diff) | |
| download | emacs-90ea0355f759d9e5aa584e64870a9a0591a838ab.tar.gz emacs-90ea0355f759d9e5aa584e64870a9a0591a838ab.zip | |
Break lambda out into function
.. and remove vuiet. oop
Diffstat (limited to 'init.el')
| -rw-r--r-- | init.el | 27 |
1 files changed, 10 insertions, 17 deletions
| diff --git a/init.el b/init.el index 2c1fb85..0883a38 100644 --- a/init.el +++ b/init.el | |||
| @@ -1469,24 +1469,17 @@ if ripgrep is installed, otherwise `consult-grep'." | |||
| 1469 | (:also-load vertico-mouse) | 1469 | (:also-load vertico-mouse) |
| 1470 | (vertico-mouse-mode +1) | 1470 | (vertico-mouse-mode +1) |
| 1471 | 1471 | ||
| 1472 | ;; Prefix the current candidate with ": ". From Vertico wiki. | 1472 | ;; Prefix the current candidate with "> ". From Vertico wiki. |
| 1473 | (advice-add #'vertico--format-candidate :around | 1473 | (defun vertico-format@add-arrow (orig cand prefix suffix index _start) |
| 1474 | (lambda (orig cand prefix suffix index _start) | 1474 | (setq cand (funcall orig cand prefix suffix index _start)) |
| 1475 | (setq cand (funcall orig cand prefix suffix index _start)) | 1475 | (concat |
| 1476 | (concat | 1476 | (if (= vertico--index index) |
| 1477 | (if (= vertico--index index) | 1477 | (propertize "> " 'face 'vertico-current) |
| 1478 | (propertize ": " 'face 'vertico-current) | 1478 | " ") |
| 1479 | " ") | 1479 | cand)) |
| 1480 | cand)))) | 1480 | (advice-add #'vertico--format-candidate :around #'vertico-format@add-arrow)) |
| 1481 | 1481 | ||
| 1482 | (setup (:straight vuiet) | ||
| 1483 | (:needs "youtube-dl" | ||
| 1484 | "mpv") | ||
| 1485 | 1482 | ||
| 1486 | ;; lastfm.el is required too, and needs some setup: | ||
| 1487 | ;; https://github.com/mihaiolteanu/lastfm.el | ||
| 1488 | (setup (:straight lastfm) | ||
| 1489 | (require 'lastfm))) | ||
| 1490 | 1483 | ||
| 1491 | (setup (:straight web-mode) | 1484 | (setup (:straight web-mode) |
| 1492 | (:option css-level-offset 2 | 1485 | (:option css-level-offset 2 |