doom.d/modules/private/oreoline/config.el


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

;;; ui/telephone/config.el -*- lexical-binding: t; -*-

(use-package! telephone-line
  :hook (after-init . telephone-line-mode)
  :init
  ; Faces
  (defface my-accent-dark    '((t (:foreground "Black" :background "Cadet Blue"))) "")
  (defface my-evil-dark      '((t (:foreground "White" :background "Black"))) "")
  (defface my-accent-light   '((t (:foreground "black" :background "Light Slate Grey"))) "")
  (defface my-evil-light     '((t (:foreground "black" :background "Sky Blue"))) "")

  ; Seperators
  (setq telephone-line-primary-left-separator    'telephone-line-halfsin-left)
  (setq telephone-line-faces
        '((evil . (my-evil-dark . my-evil-dark))
          (modal . telephone-line-modal-face)
          (ryo . telephone-line-ryo-modal-face)
          (accent . (my-accent-dark . my-accent-dark))
          (nil mode-line . mode-line-inactive)))
  (when (featurep! +light)
    (setq telephone-line-faces
          '((evil . (my-evil-light . my-evil-light))
            (modal . telephone-line-modal-face)
            (ryo . telephone-line-ryo-modal-face)
            (accent . (my-accent-light . my-accent-light))
            (nil mode-line . mode-line-inactive))))

  ; LSP segment
  (telephone-line-defsegment +oreoline-lsp-segment ()
    (after! lsp-mode
      (if (lsp-workspaces)
          (propertize "")
        (propertize ""))))

  ; LHS
  (setq telephone-line-lhs
        '((evil   . (telephone-line-evil-tag-segment
                     telephone-line-buffer-modified-segment))
          (accent . (telephone-line-vc-segment
                     telephone-line-filesize-segment
                     telephone-line-buffer-name-segment
                     telephone-line-erc-modified-channels-segment
                     telephone-line-process-segment))
          (nil    . ())))

  ; RHS
  (setq telephone-line-rhs
        '((nil    . (telephone-line-misc-info-segment))
          (accent . (telephone-line-major-mode-segment
                     +oreoline-lsp-segment
                     telephone-line-flycheck-segment))
          (evil   . (telephone-line-airline-position-segment))))
  :config
  (size-indication-mode +1))

(use-package! evil-anzu
  :after-call evil-ex-start-search evil-ex-start-word-search evil-ex-search-activate-highlight)