update
This commit is contained in:
parent
f345ee835b
commit
79831e6074
GPG key ID:
FE52FD65B76E4751
1 changed files with 92 additions and 92 deletions
|
|
@ -191,109 +191,109 @@ Cause emacs overlay lol
|
||||||
#+end_src
|
#+end_src
|
||||||
* Custom Modeline
|
* Custom Modeline
|
||||||
#+begin_src emacs-lisp
|
#+begin_src emacs-lisp
|
||||||
;; ill continue making this later
|
;;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
|
(setq-default mode-line-format
|
||||||
;; '((:eval (sakoline-render
|
'((:eval (sakoline-render
|
||||||
;; ;; left
|
;; left
|
||||||
;; (quote ("%e"
|
(quote ("%e"
|
||||||
;; sakoline-evil-mode
|
sakoline-evil-mode
|
||||||
;; " "
|
" "
|
||||||
;; sakoline-buffer-name
|
sakoline-buffer-name
|
||||||
;; " "
|
" "
|
||||||
;; sakoline-buffer-state))
|
sakoline-buffer-state))
|
||||||
;; ;; right
|
;; right
|
||||||
;; (quote (sakoline-major-mode
|
(quote (sakoline-major-mode
|
||||||
;; )
|
)
|
||||||
;; )))))
|
)))))
|
||||||
|
|
||||||
;; (defun sakoline-render (left right)
|
(defun sakoline-render (left right)
|
||||||
;; "Return a string of `window-width' length.
|
"Return a string of `window-width' length.
|
||||||
;; Containing LEFT, and RIGHT aligned respectively."
|
Containing LEFT, and RIGHT aligned respectively."
|
||||||
;; (let ((available-width
|
(let ((available-width
|
||||||
;; (- (window-total-width)
|
(- (window-total-width)
|
||||||
;; (+ (length (format-mode-line left))
|
(+ (length (format-mode-line left))
|
||||||
;; (length (format-mode-line right))))))
|
(length (format-mode-line right))))))
|
||||||
;; (append left
|
(append left
|
||||||
;; (list (format (format "%%%ds" available-width) ""))
|
(list (format (format "%%%ds" available-width) ""))
|
||||||
;; right)))
|
right)))
|
||||||
|
|
||||||
;; (defvar-local sakoline-buffer-name
|
(defvar-local sakoline-buffer-name
|
||||||
;; '(:eval
|
'(:eval
|
||||||
;; (propertize (buffer-name) 'face '(:foreground "#ffffff")))
|
(propertize (buffer-name) 'face '(:foreground "#ffffff")))
|
||||||
;; "Mode line variable that shows the buffer name.")
|
"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
|
(defface sakoline-major-mode-color
|
||||||
;; '((t :foreground "grey"))
|
'((t :foreground "grey"))
|
||||||
;; "Major Mode color for sakoline.")
|
"Major Mode color for sakoline.")
|
||||||
|
|
||||||
;; (defun sakoline--major-mode-name ()
|
(defun sakoline--major-mode-name ()
|
||||||
;; "Return Capitalized Major Mode"
|
"Return Capitalized Major Mode"
|
||||||
;; (capitalize (symbol-name major-mode)))
|
(capitalize (symbol-name major-mode)))
|
||||||
|
|
||||||
;; (defvar-local sakoline-major-mode
|
(defvar-local sakoline-major-mode
|
||||||
;; '(:eval
|
'(:eval
|
||||||
;; (propertize (sakoline--major-mode-name) 'face 'sakoline-major-mode-color)))
|
(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
|
(defface sakoline-evil-visual-color
|
||||||
;; '((t :background "#6600cc" :foreground "black"))
|
'((t :background "#6600cc" :foreground "black"))
|
||||||
;; "Evil Visual Color")
|
"Evil Visual Color")
|
||||||
|
|
||||||
;; (defface sakoline-evil-normal-color
|
(defface sakoline-evil-normal-color
|
||||||
;; '((t :background "#99ff99" :foreground "black"))
|
'((t :background "#99ff99" :foreground "black"))
|
||||||
;; "Evil Visual Color")
|
"Evil Visual Color")
|
||||||
|
|
||||||
;; (defface sakoline-evil-insert-color
|
(defface sakoline-evil-insert-color
|
||||||
;; '((t :background "#00cc66" :foreground "black"))
|
'((t :background "#00cc66" :foreground "black"))
|
||||||
;; "Evil Visual Color")
|
"Evil Visual Color")
|
||||||
|
|
||||||
;; (defface sakoline-evil-emacs-color
|
(defface sakoline-evil-emacs-color
|
||||||
;; '((t :background "#9900ff" :foreground "black"))
|
'((t :background "#9900ff" :foreground "black"))
|
||||||
;; "Evil Visual Color")
|
"Evil Visual Color")
|
||||||
|
|
||||||
;; (defface sakoline-evil-operator-color
|
(defface sakoline-evil-operator-color
|
||||||
;; '((t :background "#ff3300" :foreground "black"))
|
'((t :background "#ff3300" :foreground "black"))
|
||||||
;; "Evil Visual Color")
|
"Evil Visual Color")
|
||||||
|
|
||||||
;; (defvar-local sakoline-evil-mode
|
(defvar-local sakoline-evil-mode
|
||||||
;; '(:eval (cond
|
'(:eval (cond
|
||||||
;; ((eq evil-state 'visual) (propertize " VISUAL " 'face 'sakoline-evil-visual-color ))
|
((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 'normal) (propertize " NORMAL " 'face 'sakoline-evil-normal-color ))
|
||||||
;; ((eq evil-state 'insert) (propertize " INSERT " 'face 'sakoline-evil-insert-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 'emacs) (propertize " EMACS " 'face 'sakoline-evil-emacs-color ))
|
||||||
;; ((eq evil-state 'operator) (propertize " OPERATOR " 'face 'sakoline-evil-operator-color))
|
((eq evil-state 'operator) (propertize " OPERATOR " 'face 'sakoline-evil-operator-color))
|
||||||
;; "Get current evil mode state")))
|
"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
|
(defface sakoline-buffer-state-readonly
|
||||||
;; '((t :foreground "red"))
|
'((t :foreground "red"))
|
||||||
;; "Face for read-only buffer")
|
"Face for read-only buffer")
|
||||||
;; (defface sakoline-buffer-state-modified
|
(defface sakoline-buffer-state-modified
|
||||||
;; '((t :foreground "orange"))
|
'((t :foreground "orange"))
|
||||||
;; "Face for modified buffer")
|
"Face for modified buffer")
|
||||||
|
|
||||||
;; (defvar-local sakoline-buffer-state
|
(defvar-local sakoline-buffer-state
|
||||||
;; '(:eval
|
'(:eval
|
||||||
;; (cond
|
(cond
|
||||||
;; (buffer-read-only
|
(buffer-read-only
|
||||||
;; (propertize ">:("
|
(propertize ">:("
|
||||||
;; 'face 'sakoline-buffer-state-readonly
|
'face 'sakoline-buffer-state-readonly
|
||||||
;; 'help-echo "buffer is read only"))
|
'help-echo "buffer is read only"))
|
||||||
;; ((buffer-modified-p)
|
((buffer-modified-p)
|
||||||
;; (propertize "!!!"
|
(propertize "!!!"
|
||||||
;; 'face 'sakoline-buffer-state-modified)))))
|
'face 'sakoline-buffer-state-modified)))))
|
||||||
|
|
||||||
;; (put 'sakoline-buffer-state 'risky-local-variable t)
|
(put 'sakoline-buffer-state 'risky-local-variable t)
|
||||||
|
|
||||||
#+end_src
|
#+end_src
|
||||||
* Packages
|
* Packages
|
||||||
|
|
@ -404,15 +404,15 @@ Cause emacs overlay lol
|
||||||
#+end_src
|
#+end_src
|
||||||
** Custom Modeline
|
** Custom Modeline
|
||||||
#+begin_src emacs-lisp
|
#+begin_src emacs-lisp
|
||||||
(use-package doom-modeline
|
;; (use-package doom-modeline
|
||||||
:ensure t
|
;; :ensure t
|
||||||
;; :hook (after-init . doom-modeline-mode)
|
;; ;; :hook (after-init . doom-modeline-mode)
|
||||||
:init (doom-modeline-mode 1)
|
;; :init (doom-modeline-mode 1)
|
||||||
:custom (
|
;; :custom (
|
||||||
(doom-modeline-height 30)
|
;; (doom-modeline-height 30)
|
||||||
(doom-modeline-major-mode-icon nil)
|
;; (doom-modeline-major-mode-icon nil)
|
||||||
(doom-modeline-modal-modern-icon nil)
|
;; (doom-modeline-modal-modern-icon nil)
|
||||||
))
|
;; ))
|
||||||
#+end_src
|
#+end_src
|
||||||
** Hide Modeline
|
** Hide Modeline
|
||||||
#+begin_src emacs-lisp
|
#+begin_src emacs-lisp
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue