~~/.doom.d -> ~/.config/doom

3 files changed, 92 insertions, 0 deletions

diff --git a/Doom/.config/doom/modules/private/oreoline/README.org b/Doom/.config/doom/modules/private/oreoline/README.org
new file mode 100644
index 0000000..57b24e9
--- /dev/null
+++ b/Doom/.config/doom/modules/private/oreoline/README.org
@@ -0,0 +1,13 @@
+#+TITLE:   private/oreoline
+#+DATE:    March 29, 2020
+
+* Description
+My very own modeline. Minimalist, isn't particularly fancy but does the job.
+Uses telephone line with some configuration. Has support for a light version as well.
+
+Has LSP support as well as evil support (can present evil modes and LSP mode).
+* Prerequisites
+None
+* Requirements
+- telephone line
+- evil-anzu
diff --git a/Doom/.config/doom/modules/private/oreoline/config.el b/Doom/.config/doom/modules/private/oreoline/config.el
new file mode 100644
index 0000000..0bc3a41
--- /dev/null
+++ b/Doom/.config/doom/modules/private/oreoline/config.el
@@ -0,0 +1,74 @@
+;;; ui/telephone/config.el -*- lexical-binding: t; -*-
+
+(use-package! telephone-line
+  :hook (after-init . telephone-line-mode)
+  :init
+  ;; Faces
+  (defface +oreoline-accent-dark   '((t (:foreground "black" :background "Cadet Blue"      ))) "")
+  (defface +oreoline-evil-dark     '((t (:foreground "white"    :background "dark green"           ))) "")
+  (defface +oreoline-evil-inactive '((t (:foreground "cornsilk" :background "gray26"          ))) "")
+
+  (defface +oreoline-accent-light  '((t (:foreground "black"    :background "Light Slate Grey"))) "")
+  (defface +oreoline-evil-light    '((t (:foreground "black"    :background "Sky Blue"        ))) "")
+
+  ;; Set telephone line faces
+  (setq telephone-line-faces
+        '((evil          . (+oreoline-evil-dark   . +oreoline-evil-inactive))
+          (modal         . telephone-line-modal-face)
+          (ryo           . telephone-line-ryo-modal-face)
+          (accent        . (+oreoline-accent-dark . telephone-line-accent-inactive))
+          (nil mode-line . mode-line-inactive)))
+  (when (featurep! +light)
+    (setq telephone-line-faces
+          '((evil          . (+oreoline-evil-light   . +oreoline-evil-inactive))
+            (modal         . telephone-line-modal-face)
+            (ryo           . telephone-line-ryo-modal-face)
+            (accent        . (+oreoline-accent-light . telephone-line-accent-inactive))
+            (nil mode-line . mode-line-inactive))))
+
+  ;; Seperators
+  (setq telephone-line-primary-left-separator    'telephone-line-abs-left
+        telephone-line-secondary-left-separator  'telephone-line-identity-hollow-left
+        telephone-line-primary-right-separator   'telephone-line-abs-right
+        telephone-line-secondary-right-separator 'telephone-line-identity-hollow-right)
+
+  ;; LSP segment
+  (telephone-line-defsegment +oreoline-lsp-segment ()
+    (if (bound-and-true-p lsp-mode)
+        (propertize "")
+      (propertize "")))
+
+  ;; Visual line check
+  (telephone-line-defsegment +oreoline-visual-segment ()
+    (if mark-active
+        (let ((lines (count-lines (region-beginning) (region-end)))
+              (chars (- (region-end) (region-beginning))))
+          (if (< lines 2)
+              (propertize (format "%sC" chars))
+            (propertize (format "%sL %sC" lines chars))))
+      (propertize "~")))
+
+  (setq
+   ;; LHS
+   telephone-line-lhs
+   '((evil   . (telephone-line-evil-tag-segment
+                telephone-line-buffer-modified-segment))
+     (accent . (telephone-line-filesize-segment
+                telephone-line-buffer-name-segment
+                telephone-line-erc-modified-channels-segment
+                telephone-line-process-segment))
+     (nil    . ()))
+   ;; RHS
+   telephone-line-rhs
+   '((nil    . (telephone-line-misc-info-segment))
+     (accent . (telephone-line-vc-segment
+                +oreoline-lsp-segment
+                telephone-line-major-mode-segment
+                telephone-line-flycheck-segment))
+     (modal  . (+oreoline-visual-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)
diff --git a/Doom/.config/doom/modules/private/oreoline/packages.el b/Doom/.config/doom/modules/private/oreoline/packages.el
new file mode 100644
index 0000000..9479896
--- /dev/null
+++ b/Doom/.config/doom/modules/private/oreoline/packages.el
@@ -0,0 +1,5 @@
+;; -*- no-byte-compile: t; -*-
+;;; ui/telephone/packages.el
+
+(package! telephone-line)
+(package! evil-anzu)