[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ivy-hydra aa47396 218/395: counsel.el (counsel-fonts):
From: |
Basil L. Contovounesios |
Subject: |
[elpa] externals/ivy-hydra aa47396 218/395: counsel.el (counsel-fonts): Preselect the current font |
Date: |
Thu, 25 Feb 2021 08:32:06 -0500 (EST) |
branch: externals/ivy-hydra
commit aa473967bd735d87936851eb4b68b9b84f12e7a8
Author: Nathan Moreau <nathan.moreau@m4x.org>
Commit: Oleh Krehel <ohwoeowho@gmail.com>
counsel.el (counsel-fonts): Preselect the current font
---
counsel.el | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/counsel.el b/counsel.el
index a5e9b66..cae8ff7 100644
--- a/counsel.el
+++ b/counsel.el
@@ -5379,11 +5379,14 @@ selected color."
You can insert or kill the name of the selected font."
(interactive)
- (ivy-read "Font: " (delete-dups (font-family-list))
- :require-match t
- :history 'counsel-fonts-history
- :action #'insert
- :caller 'counsel-fonts))
+ (let ((current-font
+ (symbol-name (font-get (face-attribute 'default :font) :family))))
+ (ivy-read "Font: " (delete-dups (font-family-list))
+ :preselect current-font
+ :require-match t
+ :history 'counsel-fonts-history
+ :action #'insert
+ :caller 'counsel-fonts)))
;;** `counsel-kmacro'
(defvar counsel-kmacro-map
- [elpa] externals/ivy-hydra 742119a 181/395: counsel.el (counsel-tracker): New command, (continued)
- [elpa] externals/ivy-hydra 742119a 181/395: counsel.el (counsel-tracker): New command, Basil L. Contovounesios, 2021/02/25
- [elpa] externals/ivy-hydra 9ccd93b 191/395: ivy-hydra.el (ivy-hydra-read-action): Work for "C-M-o", Basil L. Contovounesios, 2021/02/25
- [elpa] externals/ivy-hydra bba92e0 188/395: counsel.el (counsel-file-name-filter-alist): Modify perl entry, Basil L. Contovounesios, 2021/02/25
- [elpa] externals/ivy-hydra 64f05f4 189/395: swiper.el (swiper-font-lock-exclude): Add sieve-mode, Basil L. Contovounesios, 2021/02/25
- [elpa] externals/ivy-hydra 6f04865 185/395: ivy.el (ivy-init-fns-alist): Add, Basil L. Contovounesios, 2021/02/25
- [elpa] externals/ivy-hydra 1b426e1 202/395: Fix byte-compilation warning in Emacs 28, Basil L. Contovounesios, 2021/02/25
- [elpa] externals/ivy-hydra f9fa30d 211/395: More compatibility fixes, Basil L. Contovounesios, 2021/02/25
- [elpa] externals/ivy-hydra 48e56da 305/395: Extend :type of counsel-async-command-delay, Basil L. Contovounesios, 2021/02/25
- [elpa] externals/ivy-hydra 0eebf24 318/395: ivy.el (ivy--partial-cd-for-single-directory): Fix for ignore-order, Basil L. Contovounesios, 2021/02/25
- [elpa] externals/ivy-hydra edefba7 304/395: ivy-test.el (ivy-read-alist-multi-cands): Add test, Basil L. Contovounesios, 2021/02/25
- [elpa] externals/ivy-hydra aa47396 218/395: counsel.el (counsel-fonts): Preselect the current font,
Basil L. Contovounesios <=
- [elpa] externals/ivy-hydra 2bf7317 235/395: ivy.el: ivy--index should never be nil, Basil L. Contovounesios, 2021/02/25
- [elpa] externals/ivy-hydra 33fa992 250/395: Fix swiper handling of bol regex, Basil L. Contovounesios, 2021/02/25
- [elpa] externals/ivy-hydra 6ab24b6 249/395: * ivy.el: Use with-eval-after-load, Basil L. Contovounesios, 2021/02/25
- [elpa] externals/ivy-hydra ffa5a5f 258/395: counsel-describe-symbol: autoload, Basil L. Contovounesios, 2021/02/25
- [elpa] externals/ivy-hydra 71f5727 261/395: counsel.el (counsel--git-grep-index): Don't error on null buffer-file-name, Basil L. Contovounesios, 2021/02/25
- [elpa] externals/ivy-hydra 84efa3a 262/395: Ensure counsel--git-grep-index returns non-nil, Basil L. Contovounesios, 2021/02/25
- [elpa] externals/ivy-hydra 6eda8fa 254/395: Fix recent ivy-auto-shrink-minibuffer-alist typo, Basil L. Contovounesios, 2021/02/25
- [elpa] externals/ivy-hydra b40af52 267/395: counsel.el (counsel-find-file-undo): Remap undo, Basil L. Contovounesios, 2021/02/25
- [elpa] externals/ivy-hydra fc3252b 274/395: Don't insert ^ on aborting completion in region, Basil L. Contovounesios, 2021/02/25
- [elpa] externals/ivy-hydra a4a22e0 294/395: ivy.el (ivy-display-style): Remove, Basil L. Contovounesios, 2021/02/25