请问emacs显示变量函数的是用imenulist吗？怎么加上icon呢？

taigacute · 2019 年8 月 5 日 03:21

感觉很低效啊，还是没看doc和详细的README来的快。。有点不适应。

cireu · 2019 年8 月 5 日 03:33

那就看README，一般都有readme，不过包管理倒不会自动拉取readme

seagle0128 · 2019 年8 月 5 日 05:54

imenu-list本身没有提供配置功能，你可以给作者提需求。

看了下代码，其实很简单，自己修改下imenu-list--insert-entry应该就行了。默认entry 是写死加上+的。

如果是使用 lsp，默认就有lsp-ui-imenu，会漂亮很多。

taigacute · 2019 年8 月 5 日 05:56

我用了lsp-ui-imenu 也很丑啊。。也没有icon

seagle0128 · 2019 年8 月 5 日 05:58

不是只有 icon 才是美的，你让用 terminal 的怎么活？如果一定要，自己加上就行了啊。Centaur 大部分都是自定义的，后来才进入上游并且有配置的。

taigacute · 2019 年8 月 5 日 08:21

terminal也可以的 nerdfonts 我vim都可以啊

seagle0128 · 2019 年8 月 5 日 15:13

emacs也可以加上 icon，terminal 也可以用。问题是远程 ssh 的服务器就没辙了，大多数工作场景都如此，除非用 tramp。

cireu · 2019 年8 月 5 日 16:30

nerdfonts 缺字，效果没all-the-icons用的那几个字体效果好

参照 all-the-icons.el 写一个扩展：nerd-icons.el

GitHub - twlz0ne/nerd-icons.el 缘起：代码主要来自 All The Icons，字体用的是 Hack Nerd Fonts，终端和 GUI 兼顾。（我之前还有个 nerd-fonts.el 扩展，是用来输入 icon 符号的，相当于速查表，功能跟现在这个还是有差异的，就让它继续存在了。）我自己也还没开始用（之前也没用过 All The Icons ），所以功能上难免会有出入，目前只是用测试代码简单覆盖一下几个接口： test-nerd-insert test-nerd-icons-icon-for-file test-nerd-icons-icon-for-mode test-nerd-icons-icon-for-buffer test-nerd-icons-icon-for-buffer test-nerd-icons-icon-for-dir test-nerd-icons-icon-for-url test-nerd-icons-icon-for-weather 已经添加的大部分 I…

seagle0128 · 2019 年8 月 6 日 14:27

对，nerd fonts 缺少很多 icon。我也创建了一个icons-in-terminal.el，可以在 GUI 和 Terminal 下使用，跟 all-the-icons 方法一模一样。

finalpatch · 2019 年10 月 30 日 13:52

All the icons 用了几天删了，主要是因为图标宽度不一，导致后续文字不能对齐。我有强迫症，不对齐无法忍

cireu · 2019 年10 月 31 日 23:41

突然发现有人和我纠结这个看源码的问题……行吧，我想我得仔细解释下。原来Elisp的打包标准是每个包要有一个;;; Commentary的长说明注释，但为了方便，又规定当有README文件的时候，可以不用写;;; Commentary（README用markdown，org写也行，本质没变），另一方面README可以被Github显示，所以大家都写README。然而melpa拉取包的默认pattern并没有包含README文件。结果导致只有代码被拉到本地，包的详细说明只能自己上仓库看。

不过MELPA的初审是要求所有函数都要有docstring，所以大部分情况看包入口函数的docstring就能满足需求了（除非那个人偷懒写得特别语焉不详，然而MELPA审核会拒绝接受）

Related：https://www.gnu.org/software/emacs/manual/html_node/elisp/Multi_002dfile-Packages.html#Multi_002dfile-Packages

seagle0128 · 2019 年11 月 5 日 13:29

可以对齐的，你没找到方法而已。

seagle0128 · 2019 年11 月 5 日 13:30

现在treeamcs和lsp-treemacs都支持imenu icon 了

zhouchongzxc · 2019 年11 月 5 日 13:39

喊你去看源码

manateelazycat · 2020 年1 月 18 日 16:07

对齐的方法是啥？求分享

seagle0128 · 2020 年1 月 19 日 03:05

简单说就是用TAB,并设置width为1

manateelazycat · 2020 年1 月 19 日 03:54

有啥代码可以抄的吗？最近比较流行抄作业。

seagle0128 · 2020 年1 月 19 日 05:13

比如

github.com

seagle0128/.emacs.d/blob/master/lisp/init-dired.el#L92


      
          :diminish
          :hook (dired-mode . (lambda ()
                                (when (icon-displayable-p)
                                  (all-the-icons-dired-mode))))
          :init (setq all-the-icons-dired-monochrome nil)
          :config
          (with-no-warnings
            (defun my-all-the-icons-dired--icon (file)
              "Return the icon for FILE."
              (if (file-directory-p file)
                  (all-the-icons-icon-for-dir file
                                              :height 0.9
                                              :face 'all-the-icons-dired-dir-face
                                              :v-adjust all-the-icons-dired-v-adjust)
                (apply 'all-the-icons-icon-for-file file
                       (append
                        '(:height 0.9)
                        `(:v-adjust ,all-the-icons-dired-v-adjust)
                        (when all-the-icons-dired-monochrome
                          `(:face ,(face-at-point)))))))
            (advice-add #'all-the-icons-dired--icon :override #'my-all-the-icons-dired--icon)))

github.com

seagle0128/.emacs.d/blob/master/lisp/init-ivy.el#L663


      
          ;;; init-ivy.el --- Initialize ivy configurations.	-*- lexical-binding: t -*-
          
          
;; Copyright (C) 2016-2022 Vincent Zhang
          
          
;; Author: Vincent Zhang <[email protected]>
          ;; URL: https://github.com/seagle0128/.emacs.d
          
          
;; This file is not part of GNU Emacs.
          ;;
          ;; This program is free software; you can redistribute it and/or
          ;; modify it under the terms of the GNU General Public License as
          ;; published by the Free Software Foundation; either version 3, or
          ;; (at your option) any later version.
          ;;
          ;; This program is distributed in the hope that it will be useful,
          ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
          ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
          ;; General Public License for more details.
          ;;
          ;; You should have received a copy of the GNU General Public License
          ;; along with this program; see the file COPYING.  If not, write to
          ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
          ;; Floor, Boston, MA 02110-1301, USA.
          ;;
          
          
;;; Commentary:
          ;;
          ;; Ivy configurations.
          ;;
          
          
;;; Code:
          
          
(require 'init-funcs)
          
          
(use-package counsel
            :diminish ivy-mode counsel-mode
            :custom-face
            (ivy-minibuffer-match-face-1 ((t (:foreground "dimgray" :distant-foreground unspecified :background unspecified))))
            (ivy-minibuffer-match-face-2 ((t (:distant-foreground unspecified :background unspecified))))
            (ivy-minibuffer-match-face-3 ((t (:distant-foreground unspecified :background unspecified))))
            (ivy-minibuffer-match-face-4 ((t (:distant-foreground unspecified :background unspecified))))
            :bind (("C-s"   . swiper-isearch)
                   ("C-r"   . swiper-isearch-backward)
                   ("s-f"   . swiper)
                   ("C-S-s" . swiper-all)
          
          
         ("C-c C-r" . ivy-resume)
                   ("C-c v p" . ivy-push-view)
                   ("C-c v o" . ivy-pop-view)
                   ("C-c v ." . ivy-switch-view)
          
          
         :map counsel-mode-map
                   ([remap swiper]             . counsel-grep-or-swiper)
                   ([remap swiper-backward]    . counsel-grep-or-swiper-backward)
                   ([remap dired]              . counsel-dired)
                   ([remap set-variable]       . counsel-set-variable)
                   ([remap insert-char]        . counsel-unicode-char)
                   ([remap recentf-open-files] . counsel-recentf)
                   ([remap org-capture]        . counsel-org-capture)
          
          
         ("C-x j" . counsel-mark-ring)
                   ("C-h F" . counsel-faces)
          
          
         ("C-c B" . counsel-bookmarked-directory)
                   ("C-c L" . counsel-load-library)
                   ("C-c O" . counsel-find-file-extern)
                   ("C-c P" . counsel-package)
                   ("C-c R" . counsel-list-processes)
                   ("C-c f" . counsel-find-library)
                   ("C-c g" . counsel-grep)
                   ("C-c h" . counsel-command-history)
                   ("C-c i" . counsel-git)
                   ("C-c j" . counsel-git-grep)
                   ("C-c l" . counsel-git-log)
                   ("C-c o" . counsel-outline)
                   ("C-c r" . counsel-rg)
                   ("C-c z" . counsel-fzf)
          
          
         ("C-c c B" . counsel-bookmarked-directory)
                   ("C-c c F" . counsel-faces)
                   ("C-c c L" . counsel-load-library)
                   ("C-c c K" . counsel-ace-link)
                   ("C-c c O" . counsel-find-file-extern)
                   ("C-c c P" . counsel-package)
                   ("C-c c R" . counsel-list-processes)
                   ("C-c c a" . counsel-apropos)
                   ("C-c c e" . counsel-colors-emacs)
                   ("C-c c f" . counsel-find-library)
                   ("C-c c g" . counsel-grep)
                   ("C-c c h" . counsel-command-history)
                   ("C-c c i" . counsel-git)
                   ("C-c c j" . counsel-git-grep)
                   ("C-c c l" . counsel-git-log)
                   ("C-c c m" . counsel-minibuffer-history)
                   ("C-c c o" . counsel-outline)
                   ("C-c c p" . counsel-pt)
                   ("C-c c r" . counsel-rg)
                   ("C-c c s" . counsel-ag)
                   ("C-c c t" . counsel-load-theme)
                   ("C-c c u" . counsel-unicode-char)
                   ("C-c c w" . counsel-colors-web)
                   ("C-c c v" . counsel-set-variable)
                   ("C-c c z" . counsel-fzf)
          
          
         :map ivy-minibuffer-map
                   ("C-w" . ivy-yank-word)
          
          
         :map counsel-find-file-map
                   ("C-h" . counsel-up-directory)
          
          
         :map swiper-map
                   ("M-s" . swiper-isearch-toggle)
                   ("M-%" . swiper-query-replace)
          
          
         :map isearch-mode-map
                   ("M-s" . swiper-isearch-toggle))
            :hook ((after-init . ivy-mode)
                   (ivy-mode . counsel-mode))
            :init
            (setq enable-recursive-minibuffers t) ; Allow commands in minibuffers
          
          
  (setq ivy-height 12
                  ivy-use-selectable-prompt t
                  ivy-use-virtual-buffers t    ; Enable bookmarks and recentf
                  ivy-fixed-height-minibuffer t
                  ivy-count-format "(%d/%d) "
                  ivy-ignore-buffers '("\\` " "\\`\\*tramp/" "\\`\\*xref" "\\`\\*helpful "
                                       "\\`\\*.+-posframe-buffer\\*" "\\` ?\\*company-.+\\*")
                  ivy-on-del-error-function #'ignore
                  ivy-initial-inputs-alist nil)
          
          
  ;; Use orderless regex strategy
            (setq ivy-re-builders-alist '((t . ivy--regex-ignore-order)))
          
          
  ;; Set minibuffer height for different commands
            (setq ivy-height-alist '((counsel-evil-registers . 5)
                                     (counsel-yank-pop       . 8)
                                     (counsel-git-log        . 4)
                                     (swiper                 . 15)
                                     (counsel-projectile-ag  . 15)
                                     (counsel-projectile-rg  . 15)))
          
          
  ;; Better performance on Windows
            (when sys/win32p
              (setq ivy-dynamic-exhibit-delay-ms 200))
          
          
  (setq swiper-action-recenter t)
          
          
  (setq counsel-find-file-at-point t
                  counsel-preselect-current-file t
                  counsel-yank-pop-separator "\n────────\n")
            (add-hook 'counsel-grep-post-action-hook #'recenter)
          
          
  ;; Use the faster search tools
            (cond
             ((executable-find "ugrep")
              (setq counsel-grep-base-command "ugrep --color=never -n -e '%s' '%s'"))
             ((executable-find "rg")
              (setq counsel-grep-base-command "rg -S --no-heading --line-number --color never '%s' '%s'")))
          
          
  (when (executable-find "fd")
              (setq counsel-fzf-cmd
                    "fd --type f --hidden --follow --exclude .git --color never '%s'"))
          
          
  ;; Be compatible with `gls'
            (when (and sys/macp (executable-find "gls"))
              (setq counsel-find-file-occur-use-find nil
                    counsel-find-file-occur-cmd
                    "gls -a | grep -i -E '%s' | tr '\\n' '\\0' | xargs -0 gls -d --group-directories-first"))
            :config
            (with-no-warnings
              ;; persist views
              (with-eval-after-load 'savehist
                (add-to-list 'savehist-additional-variables 'ivy-views))
          
          
    ;; Highlight the selected item
              (defun my-ivy-format-function (cands)
                "Transform CANDS into a string for minibuffer."
                (if (display-graphic-p)
                    (ivy-format-function-line cands)
                  (ivy-format-function-arrow cands)))
              (setf (alist-get 't ivy-format-functions-alist) #'my-ivy-format-function)
          
          
    ;; Pre-fill search keywords
              ;; @see https://www.reddit.com/r/emacs/comments/b7g1px/withemacs_execute_commands_like_marty_mcfly/
              (defconst my-ivy-fly-commands
                '(query-replace-regexp
                  flush-lines keep-lines ivy-read
                  swiper swiper-backward swiper-all
                  swiper-isearch swiper-isearch-backward
                  lsp-ivy-workspace-symbol lsp-ivy-global-workspace-symbol
                  counsel-grep-or-swiper counsel-grep-or-swiper-backward
                  counsel-grep counsel-ack counsel-ag counsel-rg counsel-pt))
          
          
    (defconst my-ivy-fly-back-commands
                '(self-insert-command
                  ivy-forward-char ivy-delete-char delete-forward-char kill-word kill-sexp
                  end-of-line mwim-end-of-line mwim-end-of-code-or-line mwim-end-of-line-or-code
                  yank ivy-yank-word ivy-yank-char ivy-yank-symbol counsel-yank-pop))
          
          
    (defvar-local my-ivy-fly--travel nil)
              (defun my-ivy-fly-back-to-present ()
                (cond ((and (memq last-command my-ivy-fly-commands)
                            (equal (this-command-keys-vector) (kbd "M-p")))
                       ;; repeat one time to get straight to the first history item
                       (setq unread-command-events
                             (append unread-command-events
                                     (listify-key-sequence (kbd "M-p")))))
                      ((or (memq this-command my-ivy-fly-back-commands)
                           (equal (this-command-keys-vector) (kbd "M-n")))
                       (unless my-ivy-fly--travel
                         (delete-region (point) (point-max))
                         (when (memq this-command '(ivy-forward-char
                                                    ivy-delete-char delete-forward-char
                                                    kill-word kill-sexp
                                                    end-of-line mwim-end-of-line
                                                    mwim-end-of-code-or-line
                                                    mwim-end-of-line-or-code))
                           (insert (ivy-cleanup-string ivy-text))
                           (when (memq this-command '(ivy-delete-char
                                                      delete-forward-char
                                                      kill-word kill-sexp))
                             (beginning-of-line)))
                         (setq my-ivy-fly--travel t)))))
          
          
    (defun my-ivy-fly-time-travel ()
                (when (memq this-command my-ivy-fly-commands)
                  (insert (propertize
                           (save-excursion
          		           (set-buffer (window-buffer (minibuffer-selected-window)))
          		           (ivy-thing-at-point))
                           'face 'shadow))
                  (add-hook 'pre-command-hook 'my-ivy-fly-back-to-present nil t)
                  (beginning-of-line)))
          
          
    (add-hook 'minibuffer-setup-hook #'my-ivy-fly-time-travel)
              (add-hook 'minibuffer-exit-hook
                        (lambda ()
                          (remove-hook 'pre-command-hook 'my-ivy-fly-back-to-present t)))
          
          
    ;;
              ;; Improve search experience of `swiper' and `counsel'
              ;;
              (defun my-ivy-switch-to-swiper (&rest _)
                "Switch to `swiper' with the current input."
                (ivy-quit-and-run (swiper ivy-text)))
          
          
    (defun my-ivy-switch-to-swiper-isearch (&rest _)
                "Switch to `swiper-isearch' with the current input."
                (ivy-quit-and-run (swiper-isearch ivy-text)))
          
          
    (defun my-ivy-switch-to-swiper-all (&rest _)
                "Switch to `swiper-all' with the current input."
                (ivy-quit-and-run (swiper-all ivy-text)))
          
          
    (defun my-ivy-switch-to-rg-dwim (&rest _)
                "Switch to `rg-dwim' with the current input."
                (interactive)
                (ivy-exit-with-action #'rg-dwim))
          
          
    (defun my-ivy-switch-to-counsel-rg (&rest _)
                "Switch to `counsel-rg' with the current input."
                (ivy-quit-and-run (counsel-rg ivy-text default-directory)))
          
          
    (defun my-ivy-switch-to-counsel-git-grep (&rest _)
                "Switch to `counsel-git-grep' with the current input."
                (ivy-quit-and-run (counsel-git-grep ivy-text default-directory)))
          
          
    (defun my-ivy-switch-to-counsel-find-file (&rest _)
                "Switch to `counsel-find-file' with the current input."
                (ivy-quit-and-run (counsel-find-file ivy-text)))
          
          
    (defun my-ivy-switch-to-counsel-fzf (&rest _)
                "Switch to `counsel-fzf' with the current input."
                (ivy-quit-and-run (counsel-fzf ivy-text default-directory)))
          
          
    (defun my-ivy-switch-to-counsel-git (&rest _)
                "Switch to `counsel-git' with the current input."
                (ivy-quit-and-run (counsel-git ivy-text)))
          
          
    (defun my-ivy-switch-to-list-bookmarks (&rest _)
                "Switch to `list-bookmarks'."
                (ivy-quit-and-run (call-interactively #'list-bookmarks)))
          
          
    (defun my-ivy-switch-to-list-colors (&rest _)
                "Switch to `list-colors-display'."
                (ivy-quit-and-run (list-colors-display)))
          
          
    (defun my-ivy-switch-to-list-packages (&rest _)
                "Switch to `list-packages'."
                (ivy-quit-and-run (list-packages)))
          
          
    (defun my-ivy-switch-to-list-processes (&rest _)
                "Switch to `list-processes'."
                (ivy-quit-and-run (list-processes)))
          
          
    (defun my-ivy-copy-library-path (lib)
                "Copy the full path of LIB."
                (let ((path (find-library-name lib)))
                  (kill-new path)
                  (message "Copied path: \"%s\"." path)))
          
          
    ;; @see https://emacs-china.org/t/swiper-swiper-isearch/9007/12
              (defun my-swiper-toggle-counsel-rg ()
                "Toggle `counsel-rg' and `swiper'/`swiper-isearch' with the current input."
                (interactive)
                (if (memq (ivy-state-caller ivy-last) '(swiper swiper-isearch))
                    (my-ivy-switch-to-counsel-rg)
                  (my-ivy-switch-to-swiper-isearch)))
              (bind-key "<C-return>" #'my-swiper-toggle-counsel-rg swiper-map)
              (bind-key "<C-return>" #'my-swiper-toggle-counsel-rg counsel-ag-map)
          
          
    (with-eval-after-load 'rg
                (bind-key "<M-return>" #'my-ivy-switch-to-rg-dwim swiper-map)
                (bind-key "<M-return>" #'my-ivy-switch-to-rg-dwim counsel-ag-map))
          
          
    (defun my-swiper-toggle-swiper-isearch ()
                "Toggle `swiper' and `swiper-isearch' with the current input."
                (interactive)
                (ivy-quit-and-run
                  (if (eq (ivy-state-caller ivy-last) 'swiper-isearch)
                      (swiper ivy-text)
                    (swiper-isearch ivy-text))))
              (bind-key "<s-return>" #'my-swiper-toggle-swiper-isearch swiper-map)
          
          
    (defun my-counsel-find-file-toggle-fzf ()
                "Toggle `counsel-fzf' with the current `counsel-find-file' input."
                (interactive)
                (ivy-quit-and-run
                  (counsel-fzf (or ivy-text "") default-directory)))
              (bind-key "<C-return>" #'my-counsel-find-file-toggle-fzf counsel-find-file-map)
          
          
    (defun my-counsel-toggle ()
                "Toggle `counsel' commands and original commands."
                (interactive)
                (pcase (ivy-state-caller ivy-last)
                  ('counsel-bookmark (my-ivy-switch-to-list-bookmarks))
                  ('counsel-colors-emacs (my-ivy-switch-to-list-colors))
                  ('counsel-colors-web (my-ivy-switch-to-list-colors))
                  ('counsel-list-processes (my-ivy-switch-to-list-processes))
                  ('counsel-package (my-ivy-switch-to-list-packages))
                  (_ (ignore))))
              (bind-key "<C-return>" #'my-counsel-toggle ivy-minibuffer-map)
          
          
    ;; More actions
              (ivy-add-actions
               #'swiper-isearch
               '(("r" my-ivy-switch-to-counsel-rg "rg")
                 ("d" my-ivy-switch-to-rg-dwim "rg dwim")
                 ("s" my-ivy-switch-to-swiper "swiper")
                 ("a" my-ivy-switch-to-swiper-all "swiper all")))
          
          
    (ivy-add-actions
               #'swiper
               '(("r" my-ivy-switch-to-counsel-rg "rg")
                 ("d" my-ivy-switch-to-rg-dwim "rg dwim")
                 ("s" my-ivy-switch-to-swiper-isearch "swiper isearch")
                 ("a" my-ivy-switch-to-swiper-all "swiper all")))
          
          
    (ivy-add-actions
               #'swiper-all
               '(("g" my-ivy-switch-to-counsel-git-grep "git grep")
                 ("r" my-ivy-switch-to-counsel-rg "rg")
                 ("d" my-ivy-switch-to-rg-dwim "rg dwim")
                 ("s" my-swiper-toggle-swiper-isearch "swiper isearch")
                 ("S" my-ivy-switch-to-swiper "swiper")))
          
          
    (ivy-add-actions
               #'counsel-rg
               '(("s" my-ivy-switch-to-swiper-isearch "swiper isearch")
                 ("S" my-ivy-switch-to-swiper "swiper")
                 ("a" my-ivy-switch-to-swiper-all "swiper all")
                 ("d" my-ivy-switch-to-rg-dwim "rg dwim")))
          
          
    (ivy-add-actions
               #'counsel-git-grep
               '(("s" my-ivy-switch-to-swiper-isearch "swiper isearch")
                 ("S" my-ivy-switch-to-swiper "swiper")
                 ("r" my-ivy-switch-to-rg-dwim "rg")
                 ("d" my-ivy-switch-to-rg-dwim "rg dwim")
                 ("a" my-ivy-switch-to-swiper-all "swiper all")))
          
          
    (ivy-add-actions
               #'counsel-find-file
               '(("g" my-ivy-switch-to-counsel-git "git")
                 ("z" my-ivy-switch-to-counsel-fzf "fzf")))
          
          
    (ivy-add-actions
               #'counsel-git
               '(("f" my-ivy-switch-to-counsel-find-file "find file")
                 ("z" my-ivy-switch-to-counsel-fzf "fzf")))
          
          
    (ivy-add-actions
               'counsel-fzf
               '(("f" my-ivy-switch-to-counsel-find-file "find file")
                 ("g" my-ivy-switch-to-counsel-git "git")))
          
          
    (ivy-add-actions
               'counsel-find-library
               '(("p" my-ivy-copy-library-path "copy path")))
          
          
    (ivy-add-actions
               'counsel-load-library
               '(("p" my-ivy-copy-library-path "copy path")))
          
          
    (ivy-add-actions
               #'counsel-bookmark
               '(("l" my-ivy-switch-to-list-bookmarks "list")))
          
          
    (ivy-add-actions
               #'counsel-colors-emacs
               '(("l" my-ivy-switch-to-list-colors "list")))
          
          
    (ivy-add-actions
               #'counsel-colors-web
               '(("l" my-ivy-switch-to-list-colors "list")))
          
          
    (ivy-add-actions
               #'counsel-package
               '(("l" my-ivy-switch-to-list-packages "list packages")))
          
          
    (ivy-add-actions
               #'counsel-list-processes
               '(("l" my-ivy-switch-to-list-processes "list"))))
          
          
  ;; Enhance M-x
            (use-package amx
              :init (setq amx-history-length 20))
          
          
  ;; Avy integration
            (use-package ivy-avy
              :bind (:map ivy-minibuffer-map
                     ("C-'" . ivy-avy)))
          
          
  ;; Additional key bindings for Ivy
            (use-package ivy-hydra
              :init
              (setq ivy-read-action-function 'ivy-hydra-read-action)
          
          
    (when (childframe-completion-workable-p)
                (setq hydra-hint-display-type 'posframe)
          
          
      (with-no-warnings
                  (defun my-hydra-posframe-prettify-string (fn str)
                    (funcall fn (concat (propertize "\n" 'face '(:height 0.3))
                                        str
                                        (propertize "\n\n" 'face '(:height 0.3)))))
                  (advice-add #'hydra-posframe-show :around #'my-hydra-posframe-prettify-string)
          
          
        (defun ivy-hydra-poshandler-frame-center-below (info)
                    (let (ivy-posframe-visible-p
                          (pos (posframe-poshandler-frame-center-near-bottom info)))
                      (catch 'break
                        (dolist (frame (visible-frame-list))
                          (when (string= (car (frame-parameter frame 'posframe-buffer))
                                         ivy-posframe-buffer)
                            (setq ivy-posframe-visible-p t)
                            (throw 'break t))))
                      (cons
                       (car pos)
                       (- (cdr pos)
                          (if ivy-posframe-visible-p
                              (- (plist-get info :posframe-height)
                                 (plist-get hydra-posframe-show-params :internal-border-width))
                            0)))))
          
          
        (defun my-ivy-posframe-read-action-by-key (actions)
                    "Ivy-posframe's `ivy-read-action-by-key'. Use `ivy-hydra-read-action' instead."
                    (ivy-hydra-read-action actions))
                  (advice-add #'ivy-posframe-read-action-by-key
                              :override #'my-ivy-posframe-read-action-by-key)
          
          
        (defun hydra-set-posframe-show-params ()
                    "Set hydra-posframe style."
                    (setq hydra-posframe-show-params
                          `(:left-fringe 10
                            :right-fringe 10
                            :internal-border-width 3
                            :internal-border-color ,(face-background 'posframe-border nil t)
                            :background-color ,(face-background 'tooltip nil t)
                            :lines-truncate t
                            :poshandler ivy-hydra-poshandler-frame-center-below)))
                  (hydra-set-posframe-show-params)
                  (add-hook 'after-load-theme-hook #'hydra-set-posframe-show-params t))))
          
          
  ;; Integrate yasnippet
            (use-package ivy-yasnippet
              :bind ("C-c C-y" . ivy-yasnippet))
          
          
  ;; Quick launch apps
            (cond
             (sys/linux-x-p
              (bind-key "s-<f6>" #'counsel-linux-app counsel-mode-map))
             (sys/macp
              (use-package counsel-osx-app
                :bind (:map counsel-mode-map
                       ("s-<f6>" . counsel-osx-app)))))
          
          
  ;; Display world clock using Ivy
            (use-package counsel-world-clock
              :bind (:map counsel-mode-map
                     ("C-c c k" . counsel-world-clock)))
          
          
  ;; Tramp ivy interface
            (use-package counsel-tramp
              :bind (:map counsel-mode-map
                     ("C-c c T" . counsel-tramp)))
          
          
  ;; Support pinyin in Ivy
            ;; Input prefix ':' to match pinyin
            ;; Refer to  https://github.com/abo-abo/swiper/issues/919 and
            ;; https://github.com/pengpengxp/swiper/wiki/ivy-support-chinese-pinyin
            (use-package pinyinlib
              :autoload pinyinlib-build-regexp-string
              :init
              (with-no-warnings
                (defun my-pinyinlib-build-regexp-string (str)
                  "Build a pinyin regexp sequence from STR."
                  (cond ((equal str ".*") ".*")
                        (t (pinyinlib-build-regexp-string str t))))
          
          
      (defun my-pinyin-regexp-helper (str)
                  "Construct pinyin regexp for STR."
                  (cond ((equal str " ") ".*")
                        ((equal str "") nil)
                        (t str)))
          
          
      (defun pinyin-to-utf8 (str)
                  "Convert STR to UTF-8."
                  (cond ((equal 0 (length str)) nil)
                        ((equal (substring str 0 1) "!")
                         (mapconcat
                          #'my-pinyinlib-build-regexp-string
                          (remove nil (mapcar
                                       #'my-pinyin-regexp-helper
                                       (split-string
                                        (replace-regexp-in-string "!" "" str )
                                        "")))
                          ""))
                        (t nil)))
          
          
      (defun my-ivy--regex-pinyin (fn str)
                  "The regex builder advice to support pinyin."
                  (or (pinyin-to-utf8 str)
                      (funcall fn str)))
                (advice-add #'ivy--regex-plus :around #'my-ivy--regex-pinyin)
                (advice-add #'ivy--regex-ignore-order :around #'my-ivy--regex-pinyin))))
          
          
;; Use Ivy to open recent directories
          (use-package ivy-dired-history
            :demand t
            :after dired
            :defines (savehist-additional-variables desktop-globals-to-save)
            :bind (:map dired-mode-map
                   ("," . dired))
            :init
            (with-eval-after-load 'savehist
              (add-to-list 'savehist-additional-variables 'ivy-dired-history-variable))
            (with-eval-after-load 'desktop
              (add-to-list 'desktop-globals-to-save 'ivy-dired-history-variable)))
          
          

          
;; `projectile' integration
          (use-package counsel-projectile
            :hook (counsel-mode . counsel-projectile-mode)
            :init
            (setq counsel-projectile-grep-initial-input '(ivy-thing-at-point))
            (when (executable-find "ugrep")
              (setq counsel-projectile-grep-base-command "ugrep --color=never -rnEI %s")))
          
          
;; Better experience with icons
          ;; Enable it before`ivy-rich-mode' for better performance
          (use-package all-the-icons-ivy-rich
            :hook (ivy-mode . all-the-icons-ivy-rich-mode)
            :init (setq all-the-icons-ivy-rich-icon centaur-icon)
            :config
            (plist-put all-the-icons-ivy-rich-display-transformers-list
                       'centaur-load-theme
                       '(:columns
                         ((all-the-icons-ivy-rich-theme-icon)
                          (ivy-rich-candidate))
                         :delimiter "\t"))
            (all-the-icons-ivy-rich-reload))
          
          
;; More friendly display transformer for Ivy
          (use-package ivy-rich
            :hook ((counsel-projectile-mode . ivy-rich-mode) ; MUST after `counsel-projectile'
                   (ivy-rich-mode . ivy-rich-project-root-cache-mode)
                   (ivy-rich-mode . (lambda ()
                                      "Use abbreviate in `ivy-rich-mode'."
                                      (setq ivy-virtual-abbreviate
                                            (or (and ivy-rich-mode 'abbreviate) 'name)))))
            :init
            ;; For better performance
            (setq ivy-rich-parse-remote-buffer nil))
          
          
;; Display completion in child frame
          (when (childframe-completion-workable-p)
            (use-package ivy-posframe
              :diminish
              :custom-face
              (ivy-posframe-border ((t (:inherit posframe-border))))
              :hook (ivy-mode . ivy-posframe-mode)
              :init
              (setq ivy-height 15                 ; Use bigger minibuffer height for child frame
                    ivy-posframe-border-width 3
                    ivy-posframe-parameters '((left-fringe . 8)
                                              (right-fringe . 8)))
              :config
              (with-no-warnings
                ;; HACK: hide minibuffer with same colors
                (defun my-ivy-posframe--minibuffer-setup (fn &rest args)
                  "Advice function of FN, `ivy--minibuffer-setup' with ARGS."
                  (if (not (display-graphic-p))
                      (apply fn args)
                    (let ((ivy-fixed-height-minibuffer nil))
                      (apply fn args))
                    (when (and ivy-posframe-hide-minibuffer
                               (posframe-workable-p)
                               (string-match-p "^ivy-posframe" (symbol-name ivy--display-function)))
                      (let ((ov (make-overlay (point-min) (point-max) nil nil t)))
                        (overlay-put ov 'window (selected-window))
                        (overlay-put ov 'ivy-posframe t)
                        (overlay-put ov 'face
                                     (let* ((face (if (or (bound-and-true-p solaire-global-mode)
                                                          (bound-and-true-p solaire-mode))
                                                      'solaire-default-face
                                                    'default))
                                            (bg-color (face-background face nil t)))
                                       `(:background ,bg-color :foreground ,bg-color
                                         :box nil :underline nil
                                         :overline nil :strike-through nil)))
                        (setq-local cursor-type nil)))))
                (advice-add #'ivy-posframe--minibuffer-setup :override #'my-ivy-posframe--minibuffer-setup)
          
          
      ;; Prettify the buffer
                (defun my-ivy-posframe--prettify-buffer (&rest _)
                  "Add top and bottom margin to the prompt."
                  (with-current-buffer ivy-posframe-buffer
                    (goto-char (point-min))
                    (insert (propertize "\n" 'face '(:height 0.3)))
                    (goto-char (point-max))
                    (insert (propertize "\n" 'face '(:height 0.3)))))
                (advice-add #'ivy-posframe--display :after #'my-ivy-posframe--prettify-buffer)
          
          
      ;; Adjust the postion
                (defun ivy-posframe-display-at-frame-center-near-bottom (str)
                  (ivy-posframe--display str #'posframe-poshandler-frame-center-near-bottom))
                (setf (alist-get t ivy-posframe-display-functions-alist)
                      #'ivy-posframe-display-at-frame-center-near-bottom))))
          
          
(provide 'init-ivy)
          
          
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
          ;;; init-ivy.el ends here

This file has been truncated. show original

manateelazycat · 2020 年1 月 19 日 06:46

谢谢，我自己在 snails 代码里面按照你的方法试验，感觉没有对齐啊，只是增加了 tab 字符

(defun snails-wrap-buffer-icon (buf)
  "Wrap display name with buffer icon, use for buffer search backend."
  (if (featurep 'all-the-icons)
      (progn
        (setq-local tab-width 1)
        (format "%s\t '%s'"
                (with-current-buffer buf
                  (all-the-icons-icon-for-buffer))
                (string-trim-left (buffer-name buf))))
    (buffer-name buf)))

(defun snails-wrap-file-icon (file)
  "Wrap display name with file icon, use for file search backend."
  (if (featurep 'all-the-icons)
      (progn
        (setq-local tab-width 1)
        (format "%s\t %s"
                (all-the-icons-icon-for-file file :height 1)
                (string-trim-left file)))
    file))

(defun snails-wrap-file-icon-with-candidate (file candidate &optional no-trim)
  "Wrap display name with file icon, use for file search backend."
  (if (featurep 'all-the-icons)
      (progn
        (setq-local tab-width 1)
        (format "%s\t %s"
                (all-the-icons-icon-for-file (format "hello.%s" (file-name-extension file)) :height 1)
                (if no-trim
                    candidate
                  (string-trim-left candidate)
                  )))
    candidate))

seagle0128 · 2020 年1 月 19 日 07:57

我没有使用snails，如果还不行用overlay肯定可以解决