diff --git a/config/emacs/emacs.org b/config/emacs/emacs.org index 88308a32..50f2dbbd 100644 --- a/config/emacs/emacs.org +++ b/config/emacs/emacs.org @@ -191,109 +191,109 @@ Cause emacs overlay lol #+end_src * Custom Modeline #+begin_src emacs-lisp - ;; ill continue making this later - ;; (setq mode-line-format nil) + ;;ill continue making this later + (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,15 @@ 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 30) + ;; (doom-modeline-major-mode-icon nil) + ;; (doom-modeline-modal-modern-icon nil) + ;; )) #+end_src ** Hide Modeline #+begin_src emacs-lisp