From a7ae2ce0627d67ff4130ee33e35764c767142fb0 Mon Sep 17 00:00:00 2001 From: Sakooooo <78461130+Sakooooo@users.noreply.github.com> Date: Fri, 12 Jan 2024 15:07:18 +0400 Subject: [PATCH] ill make my modeline later --- config/emacs/emacs.org | 203 ++++++++++++++++++++--------------------- 1 file changed, 99 insertions(+), 104 deletions(-) diff --git a/config/emacs/emacs.org b/config/emacs/emacs.org index cb6ac8c7..2e6a0435 100644 --- a/config/emacs/emacs.org +++ b/config/emacs/emacs.org @@ -191,108 +191,109 @@ Cause emacs overlay lol #+end_src * Custom Modeline #+begin_src emacs-lisp - (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 @@ -356,28 +357,22 @@ Cause emacs overlay lol #+end_src ** Custom Themes #+begin_src emacs-lisp - ;; (use-package doom-themes - ;; :ensure t - ;; :config - ;; ;; Global settings (defaults) - ;; (setq doom-themes-enable-bold t ; if nil, bold is universally disabled - ;; doom-themes-enable-italic t) ; if nil, italics is universally disabled - ;; ;; load the theme - ;; (load-theme 'doom-monokai-pro t) + (use-package doom-themes + :ensure t + :config + ;; Global settings (defaults) + (setq doom-themes-enable-bold t ; if nil, bold is universally disabled + doom-themes-enable-italic t) ; if nil, italics is universally disabled + ;; load the theme + (load-theme 'doom-monokai-pro t) - ;; (doom-themes-org-config) + (doom-themes-org-config) - ;; (doom-themes-treemacs-config) + (doom-themes-treemacs-config) - ;; ;; Enable flashing mode-line on errors - ;; (doom-themes-visual-bell-config)) + ;; Enable flashing mode-line on errors + (doom-themes-visual-bell-config)) - ;; (use-package timu-macos-theme - ;; :config - ;; (load-theme 'timu-macos t)) - - (use-package badger-theme - :config (load-theme 'badger t)) #+end_src ** All the Icons (to make doom-themes happy) #+begin_src emacs-lisp @@ -407,10 +402,10 @@ Cause emacs overlay lol #+end_src ** Custom Modeline #+begin_src emacs-lisp - ;; (use-package doom-modeline - ;; :ensure t - ;; :hook (after-init . doom-modeline-mode) - ;; :custom ((doom-modeline-height 40))) + (use-package doom-modeline + :ensure t + :hook (after-init . doom-modeline-mode) + :custom ((doom-modeline-height 40))) #+end_src ** Hide Modeline #+begin_src emacs-lisp