.emacs.d/init.d/basics/ui.el

178 lines
5.2 KiB
EmacsLisp

;;; ui.el --- Configure user interfaces. -*- lexical-binding: t; -*-
;; Time-stamp: <2020-02-19T23:50:35+0100>
;;; Commentary:
;; * treemacs
;; * ivy + counsel.
;;; Code:
;; Directory tree.
(use-package treemacs
:pin melpa ; We need > 2.6 for lsp-treemacs.
:demand t
:after (display-line-numbers)
:custom
(treemacs-project-follow-cleanup t) ; Collapse projects when leaving.
(treemacs-silent-refresh t) ; No log message on refresh.
:bind
("<f8>" . treemacs-select-window) ; Focus treemacs.
("C-<f8>" . treemacs) ; Toggle treemacs.
("M-<f8>" . treemacs-add-and-display-current-project) ; Add current project.
(:map treemacs-mode-map
("<mouse-1>" . treemacs-single-click-expand-action))
:hook
(treemacs-mode . my/disable-line-numbers)
)
(use-package treemacs-projectile
:after (treemacs projectile)
)
(use-package treemacs-magit
:after (treemacs magit)
)
;; Completion in many Emacs commands.
(use-package ivy
:demand t
:diminish ivy-mode
:custom
(ivy-use-virtual-buffers t)
(ivy-count-format "[%d/%d] ")
(ivy-wrap t)
:config
(ivy-mode 1)
:bind
("C-c C-r" . ivy-resume)
(:map ivy-minibuffer-map
("M-<up>" . ivy-previous-history-element)
("M-<down>" . ivy-next-history-element)
("S-<return>" . ivy-immediate-done) ; Ignore completion.
)
)
;; Extensions for ivy
(use-package counsel
:after (ivy)
:demand t
:bind
("C-x C-f" . counsel-find-file)
("M-x" . counsel-M-x)
)
;; Use icons in ivy.
(use-package all-the-icons-ivy
:after (all-the-icons counsel)
:config
(all-the-icons-ivy-setup)
)
;; More information in ivy mini-buffers.
(use-package ivy-rich
;; all-the-icons-ivy would override the ivy-rich switch-buffer improvements.
:after (all-the-icons-ivy counsel)
:config
(defun my/ivy-rich-switch-buffer-icon (candidate)
"Return icon for `candidate'."
(with-current-buffer
(get-buffer candidate)
(let ((icon (all-the-icons-icon-for-mode major-mode)))
(if (symbolp icon)
(all-the-icons-icon-for-mode 'fundamental-mode)
icon))))
;; Add icons to buffer switcher.
;; <https://github.com/Yevgnen/ivy-rich/issues/37#issuecomment-583033211>
(setq ivy-rich-display-transformers-list
(plist-put ivy-rich-display-transformers-list 'ivy-switch-buffer
'(:columns
((my/ivy-rich-switch-buffer-icon (:width 1))
(ivy-rich-candidate (:width 0.25))
(ivy-rich-switch-buffer-size (:width 0.05 :face font-lock-comment-face))
(ivy-rich-switch-buffer-indicators (:width 0.05 :face error :align right))
(ivy-rich-switch-buffer-major-mode (:width 0.1 :face font-lock-function-name-face))
(ivy-rich-switch-buffer-project (:width 0.15 :face success))
(ivy-rich-switch-buffer-path (:width (lambda (x) (ivy-rich-switch-buffer-shorten-path x (ivy-rich-minibuffer-width 0.4))) :face font-lock-keyword-face)))
:predicate
(lambda (cand) (get-buffer cand))
:delimiter "\t"
)))
(ivy-rich-mode 1)
(setcdr (assq t ivy-format-functions-alist) #'ivy-format-function-line)
)
;; ;; Use icons in ivy-rich.
;; (use-package all-the-icons-ivy-rich
;; :pin melpa ; We need > 1.1.0.
;; :after (all-the-icons ivy-rich)
;; :config (all-the-icons-ivy-rich-mode 1)
;; )
(use-package ivy-purpose
:after (window-purpose)
:config
(ivy-purpose-setup)
:bind
(:map purpose-mode-map
("C-x b" . ivy-switch-buffer)
;; ("C-x b" . ivy-purpose-switch-buffer-without-purpose)
)
)
(use-package counsel-projectile
:after (projectile)
:custom
(counsel-projectile-mode t) ; Turn on projectile-mode and enable keybindings.
(projectile-switch-project-action 'my/switch-project)
:config
(defun my/counsel-projectile-switch-project-action (project)
"Call `my/switch-project'."
(let ((projectile-switch-project-action 'my/switch-project))
(counsel-projectile-switch-project-by-name project)))
(counsel-projectile-modify-action
'counsel-projectile-switch-project-action
'((add ("Y" my/counsel-projectile-switch-project-action
"open project in treemacs") 1)))
)
;; Switch between named persistent window configurations.
(when (>= emacs-major-version 27)
(use-package tab-bar
:bind
("C-<prior>" . tab-bar-switch-to-prev-tab)
("C-<next>" . tab-bar-switch-to-next-tab)
))
;; Shows tabs of all visible buffers per window.
(when (>= emacs-major-version 27)
(use-package tab-line
:custom-face
(tab-line ((t (:inherit ruler-mode-default))))
(tab-line-tab ((t (:inherit ruler-mode-default))))
(tab-line-tab-inactive ((t (:inherit tab-line-tab))))
(tab-line-tab-current ((t (:inherit tab-line-tab
:background "grey10"
:foreground "grey70"))))
(tab-line-highlight ((t (:inherit tab-line-tab-current
:foreground "white"))))
))
(provide 'basics/ui)
;;; ui.el ends here