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

;;; ui.el --- Configure user interfaces. -*- lexical-binding: t; -*-

;; Time-stamp: <2020-11-29T09:15:41+0100>

;;; Commentary:
;; * treemacs
;; * ivy + counsel.

;;; Code:

;; Directory tree.

(require 'basics/package-management)

(use-package treemacs
  :after (display-line-numbers doom-themes hl-line)
  ;; ;; Start with a clean workspace list.
  ;; :init (delete-file (expand-file-name ".cache/treemacs-persist"
  ;;                                      user-emacs-directory))
  :custom ((treemacs-project-follow-cleanup t) ; Collapse projects when leaving.
           (treemacs-silent-refresh t))        ; No log message on refresh.
  :config (progn
            ;; (treemacs-tag-follow-mode)
            (make-face 'hl-line-treemacs-face)
            (set-face-attribute 'hl-line-treemacs-face nil
                                :background "#080011")
            (when (>= emacs-major-version 27)
              (set-face-attribute 'hl-line-treemacs-face nil
                                  :extend t))
            (defun my/treemacs-set-hl-line ()
              (set (make-local-variable 'hl-line-face)
                   'hl-line-treemacs-face))
            (defun my/treemacs-show-maybe ()
              (when (and (>= (frame-width) 120)
                         (file-exists-p treemacs-persist-file))
                (treemacs)
                (other-window 1))))
  :bind (("<f9>" . treemacs-select-window) ; Focus treemacs.
         ("C-<f9>" . treemacs)             ; Toggle treemacs.
         ("M-<f9>" . treemacs-add-and-display-current-project)
         (:map treemacs-mode-map
               ("<mouse-1>" . treemacs-single-click-expand-action)))
:hook ((treemacs-mode . my/disable-line-numbers)
       (treemacs-mode . my/treemacs-set-hl-line)
       (after-init . (lambda () (when (display-graphic-p)
                                  (my/treemacs-show-maybe))))
       (server-after-make-frame . my/treemacs-show-maybe)))

(use-package treemacs-projectile
  :demand t
  :after (treemacs projectile))

(use-package treemacs-magit
  :demand t
  :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
  :demand t
  :after (ivy imenu)
  :bind (("C-x C-f" . counsel-find-file)
         ("M-x" . counsel-M-x)
         ("M-i" . counsel-imenu)))

;; More information in ivy mini-buffers.
(use-package ivy-rich
  :demand t
  :after (counsel)
  :config (ivy-rich-mode 1))

;; Use icons in ivy-rich.
(use-package all-the-icons-ivy-rich
  :demand t
  :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)))

(use-package ivy-emoji                  ; Insert emojis with ivy.
  :after (ivy)
  :bind ("C-c e" . ivy-emoji))

(use-package counsel-projectile
  :demand t
  :after (projectile)
  :config (progn
            ;; I'm not exactly sure what I did here but it seems to work.
            (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)))

            ;; Overwrite keybindings and so on.
            (counsel-projectile-mode)))

;; Shows tabs of all visible buffers per window.
(when (>= emacs-major-version 27)
  (use-package tab-line
    :defer 4
    :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 ruler-mode-fill-column))))
    (tab-line-highlight ((t (:inherit tab-line-tab-current))))))

(provide 'basics/ui)
;;; ui.el ends here