diff --git a/config/emacs/emacs.org b/config/emacs/emacs.org index 50f2dbbd..4aea10ae 100644 --- a/config/emacs/emacs.org +++ b/config/emacs/emacs.org @@ -192,108 +192,108 @@ Cause emacs overlay lol * Custom Modeline #+begin_src emacs-lisp ;;ill continue making this later - (setq mode-line-format nil) + ;; (setq mode-line-format nil) - (kill-local-variable 'mode-line-format) + ;; (kill-local-variable 'mode-line-format) - (force-mode-line-update) + ;; (force-mode-line-update) - (setq-default mode-line-format - '((:eval (sakoline-render - ;; left - (quote ("%e" - sakoline-evil-mode - " " - sakoline-buffer-name - " " - sakoline-buffer-state)) - ;; right - (quote (sakoline-major-mode - ) - ))))) + ;; (setq-default mode-line-format + ;; '((:eval (sakoline-render + ;; ;; left + ;; (quote ("%e" + ;; sakoline-evil-mode + ;; " " + ;; sakoline-buffer-name + ;; " " + ;; sakoline-buffer-state)) + ;; ;; right + ;; (quote (sakoline-major-mode + ;; ) + ;; ))))) - (defun sakoline-render (left right) - "Return a string of `window-width' length. - Containing LEFT, and RIGHT aligned respectively." - (let ((available-width - (- (window-total-width) - (+ (length (format-mode-line left)) - (length (format-mode-line right)))))) - (append left - (list (format (format "%%%ds" available-width) "")) - right))) + ;; (defun sakoline-render (left right) + ;; "Return a string of `window-width' length. + ;; Containing LEFT, and RIGHT aligned respectively." + ;; (let ((available-width + ;; (- (window-total-width) + ;; (+ (length (format-mode-line left)) + ;; (length (format-mode-line right)))))) + ;; (append left + ;; (list (format (format "%%%ds" available-width) "")) + ;; right))) - (defvar-local sakoline-buffer-name - '(:eval - (propertize (buffer-name) 'face '(:foreground "#ffffff"))) - "Mode line variable that shows the buffer name.") + ;; (defvar-local sakoline-buffer-name + ;; '(:eval + ;; (propertize (buffer-name) 'face '(:foreground "#ffffff"))) + ;; "Mode line variable that shows the buffer name.") - (put 'sakoline-buffer-name 'risky-local-variable t) + ;; (put 'sakoline-buffer-name 'risky-local-variable t) - (defface sakoline-major-mode-color - '((t :foreground "grey")) - "Major Mode color for sakoline.") + ;; (defface sakoline-major-mode-color + ;; '((t :foreground "grey")) + ;; "Major Mode color for sakoline.") - (defun sakoline--major-mode-name () - "Return Capitalized Major Mode" - (capitalize (symbol-name major-mode))) + ;; (defun sakoline--major-mode-name () + ;; "Return Capitalized Major Mode" + ;; (capitalize (symbol-name major-mode))) - (defvar-local sakoline-major-mode - '(:eval - (propertize (sakoline--major-mode-name) 'face 'sakoline-major-mode-color))) + ;; (defvar-local sakoline-major-mode + ;; '(:eval + ;; (propertize (sakoline--major-mode-name) 'face 'sakoline-major-mode-color))) - (put 'sakoline-major-mode 'risky-local-variable t) + ;; (put 'sakoline-major-mode 'risky-local-variable t) - (defface sakoline-evil-visual-color - '((t :background "#6600cc" :foreground "black")) - "Evil Visual Color") + ;; (defface sakoline-evil-visual-color + ;; '((t :background "#6600cc" :foreground "black")) + ;; "Evil Visual Color") - (defface sakoline-evil-normal-color - '((t :background "#99ff99" :foreground "black")) - "Evil Visual Color") + ;; (defface sakoline-evil-normal-color + ;; '((t :background "#99ff99" :foreground "black")) + ;; "Evil Visual Color") - (defface sakoline-evil-insert-color - '((t :background "#00cc66" :foreground "black")) - "Evil Visual Color") + ;; (defface sakoline-evil-insert-color + ;; '((t :background "#00cc66" :foreground "black")) + ;; "Evil Visual Color") - (defface sakoline-evil-emacs-color - '((t :background "#9900ff" :foreground "black")) - "Evil Visual Color") + ;; (defface sakoline-evil-emacs-color + ;; '((t :background "#9900ff" :foreground "black")) + ;; "Evil Visual Color") - (defface sakoline-evil-operator-color - '((t :background "#ff3300" :foreground "black")) - "Evil Visual Color") + ;; (defface sakoline-evil-operator-color + ;; '((t :background "#ff3300" :foreground "black")) + ;; "Evil Visual Color") - (defvar-local sakoline-evil-mode - '(:eval (cond - ((eq evil-state 'visual) (propertize " VISUAL " 'face 'sakoline-evil-visual-color )) - ((eq evil-state 'normal) (propertize " NORMAL " 'face 'sakoline-evil-normal-color )) - ((eq evil-state 'insert) (propertize " INSERT " 'face 'sakoline-evil-insert-color )) - ((eq evil-state 'emacs) (propertize " EMACS " 'face 'sakoline-evil-emacs-color )) - ((eq evil-state 'operator) (propertize " OPERATOR " 'face 'sakoline-evil-operator-color)) - "Get current evil mode state"))) + ;; (defvar-local sakoline-evil-mode + ;; '(:eval (cond + ;; ((eq evil-state 'visual) (propertize " VISUAL " 'face 'sakoline-evil-visual-color )) + ;; ((eq evil-state 'normal) (propertize " NORMAL " 'face 'sakoline-evil-normal-color )) + ;; ((eq evil-state 'insert) (propertize " INSERT " 'face 'sakoline-evil-insert-color )) + ;; ((eq evil-state 'emacs) (propertize " EMACS " 'face 'sakoline-evil-emacs-color )) + ;; ((eq evil-state 'operator) (propertize " OPERATOR " 'face 'sakoline-evil-operator-color)) + ;; "Get current evil mode state"))) - (put 'sakoline-evil-mode 'risky-local-variable t) + ;; (put 'sakoline-evil-mode 'risky-local-variable t) - (defface sakoline-buffer-state-readonly - '((t :foreground "red")) - "Face for read-only buffer") - (defface sakoline-buffer-state-modified - '((t :foreground "orange")) - "Face for modified buffer") + ;; (defface sakoline-buffer-state-readonly + ;; '((t :foreground "red")) + ;; "Face for read-only buffer") + ;; (defface sakoline-buffer-state-modified + ;; '((t :foreground "orange")) + ;; "Face for modified buffer") - (defvar-local sakoline-buffer-state - '(:eval - (cond - (buffer-read-only - (propertize ">:(" - 'face 'sakoline-buffer-state-readonly - 'help-echo "buffer is read only")) - ((buffer-modified-p) - (propertize "!!!" - 'face 'sakoline-buffer-state-modified))))) + ;; (defvar-local sakoline-buffer-state + ;; '(:eval + ;; (cond + ;; (buffer-read-only + ;; (propertize ">:(" + ;; 'face 'sakoline-buffer-state-readonly + ;; 'help-echo "buffer is read only")) + ;; ((buffer-modified-p) + ;; (propertize "!!!" + ;; 'face 'sakoline-buffer-state-modified))))) - (put 'sakoline-buffer-state 'risky-local-variable t) + ;; (put 'sakoline-buffer-state 'risky-local-variable t) #+end_src * Packages @@ -404,15 +404,16 @@ Cause emacs overlay lol #+end_src ** Custom Modeline #+begin_src emacs-lisp - ;; (use-package doom-modeline - ;; :ensure t - ;; ;; :hook (after-init . doom-modeline-mode) - ;; :init (doom-modeline-mode 1) - ;; :custom ( - ;; (doom-modeline-height 30) - ;; (doom-modeline-major-mode-icon nil) - ;; (doom-modeline-modal-modern-icon nil) - ;; )) + (use-package doom-modeline + :ensure t + ;; :hook (after-init . doom-modeline-mode) + :init (doom-modeline-mode 1) + :custom ( + (doom-modeline-height 25) + (doom-modeline-bar-width 4) + (doom-modeline-major-mode-icon nil) + (doom-modeline-modal-modern-icon nil) + )) #+end_src ** Hide Modeline #+begin_src emacs-lisp