[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master a57ac0c 28/54: counsel.el (counsel-unicode-char): Add own
From: |
Oleh Krehel |
Subject: |
[elpa] master a57ac0c 28/54: counsel.el (counsel-unicode-char): Add own history |
Date: |
Tue, 29 Sep 2015 14:09:56 +0000 |
branch: master
commit a57ac0c8ff7a12d880e772e932ff3d7be1d3dca7
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>
counsel.el (counsel-unicode-char): Add own history
Also make "C-M-n", "C-M-p", and `ivy-resume' work properly.
---
counsel.el | 12 +++++++++++-
1 files changed, 11 insertions(+), 1 deletions(-)
diff --git a/counsel.el b/counsel.el
index a4b47d9..7d2745a 100644
--- a/counsel.el
+++ b/counsel.el
@@ -285,11 +285,16 @@
(require 'info-look)
(info-lookup 'symbol symbol mode))
+(defvar counsel-unicode-char-history nil
+ "History for `counsel-unicode-char'.")
+
;;;###autoload
(defun counsel-unicode-char ()
"Insert a Unicode character at point."
(interactive)
(let ((minibuffer-allow-text-properties t))
+ (setq counsel-completion-beg (point))
+ (setq counsel-completion-end (point))
(ivy-read "Unicode name: "
(mapcar (lambda (x)
(propertize
@@ -297,7 +302,12 @@
'result (cdr x)))
(ucs-names))
:action (lambda (char)
- (insert-char (get-text-property 0 'result char))))))
+ (with-ivy-window
+ (delete-region counsel-completion-beg
counsel-completion-end)
+ (setq counsel-completion-beg (point))
+ (insert-char (get-text-property 0 'result char))
+ (setq counsel-completion-end (point))))
+ :history 'counsel-unicode-char-history)))
(declare-function cider-sync-request:complete "ext:cider-client")
;;;###autoload
- [elpa] master 1bf45be 21/54: ivy.el (ivy--format-minibuffer-line): Fix nil regexp, (continued)
- [elpa] master 1bf45be 21/54: ivy.el (ivy--format-minibuffer-line): Fix nil regexp, Oleh Krehel, 2015/10/07
- [elpa] master e03d968 50/54: ivy.el (ivy--insert-prompt): Avoid negative length error, Oleh Krehel, 2015/10/07
- [elpa] master 7a2070b 45/54: Fix minibuffer collapse in text mode emacs, Oleh Krehel, 2015/10/07
- [elpa] master ba49407 53/54: counsel.el (counsel-ag-function): Improve for fancy faces, Oleh Krehel, 2015/10/07
- [elpa] master 00d8f08 12/54: counsel.el (counsel-org-tag): Now works in agenda, Oleh Krehel, 2015/10/07
- [elpa] master 860e276 13/54: Add swiper-multi command, Oleh Krehel, 2015/10/07
- [elpa] master 5269b79 07/54: When initial input contains a plus, escape it, Oleh Krehel, 2015/10/07
- [elpa] master 59908cd 20/54: Make ivy-current blend correctly for fancy minibuffer, Oleh Krehel, 2015/10/07
- [elpa] master 5eac62d 26/54: Move swiper-minibuffer-faces to ivy.el, Oleh Krehel, 2015/10/07
- [elpa] master d374afe 31/54: Set truncate-lines in the minibuffer, Oleh Krehel, 2015/10/07
- [elpa] master a57ac0c 28/54: counsel.el (counsel-unicode-char): Add own history,
Oleh Krehel <=
- [elpa] master 1319301 35/54: counsel.el (counsel-yank-pop-truncate): Add group, Oleh Krehel, 2015/10/07
- [elpa] master c4d33d3 36/54: ivy.el (ivy-format-function-default): Fix boundp bug, Oleh Krehel, 2015/10/07
- [elpa] master 7410d2d 29/54: ivy.el (ivy-format-function-default): Handle fringe-mode 0, Oleh Krehel, 2015/10/07
- [elpa] master a019441 41/54: Add autoloads to some important functions, Oleh Krehel, 2015/10/07
- [elpa] master ce33972 37/54: counsel.el (counsel-yank-pop): Add autoload, Oleh Krehel, 2015/10/07
- [elpa] master 9679bd7 46/54: swiper.el (swiper--ivy): Remove obsolete version check, Oleh Krehel, 2015/10/07