From 12ab87fbf71d413d0475b19967d3b7f65466f44b Mon Sep 17 00:00:00 2001 From: Sako <78461130+Sakooooo@users.noreply.github.com> Date: Sun, 17 Dec 2023 13:36:18 +0400 Subject: [PATCH] Update emacs.org --- config/emacs/emacs.org | 158 ++++++++++++++++++++++------------------- 1 file changed, 84 insertions(+), 74 deletions(-) diff --git a/config/emacs/emacs.org b/config/emacs/emacs.org index 55040dbf..7cf04d4b 100644 --- a/config/emacs/emacs.org +++ b/config/emacs/emacs.org @@ -181,98 +181,104 @@ Should make startup faster, taken from doom-emacs #+end_src * Custom Modeline #+begin_src emacs-lisp - (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 - `("%e" - sakoline-evil-mode + (setq-default mode-line-format + `("%e" + sakoline-evil-mode - ;; begin BUFFER name - " " + ;; begin BUFFER name + " " - sakoline-buffer-name + sakoline-buffer-name - " " - sakoline-buffer-state - sakoline-major-mode - - )) + " " + sakoline-buffer-state + sakoline-major-mode + + )) + (defvar-local sakoline-buffer-name + '(:eval + (propertize (buffer-name) 'face '(:foreground "#669999"))) + "Mode line variable that shows the buffer name.") + (put 'sakoline-buffer-name 'risky-local-variable t) - (defvar-local sakoline-buffer-name - '(:eval - (propertize (buffer-name) 'face '(:foreground "#669999"))) - "Mode line variable that shows the buffer name.") + (defface sakoline-major-mode-color + '((t :foreground "grey")) + "Major Mode color for sakoline.") - (put 'sakoline-buffer-name 'risky-local-variable t) + (defun sakoline--major-mode-name () + "Return Capitalized Major Mode" + (capitalize (symbol-name major-mode))) - (defface sakoline-major-mode-color - '((t :foreground "grey")) - "Major Mode color for sakoline.") + (defvar-local sakoline-major-mode + '(:eval + (propertize (sakoline--major-mode-name) 'face 'sakoline-major-mode-color))) - (defun sakoline--major-mode-name () - "Return Capitalized Major Mode" - (capitalize (symbol-name major-mode))) + (put 'sakoline-major-mode 'risky-local-variable t) - (defvar-local sakoline-major-mode - '(:eval - (propertize (sakoline--major-mode-name) 'face 'sakoline-major-mode-color))) + (defface sakoline-evil-visual-color + '((t :background "#6600cc" :foreground "black")) + "Evil Visual Color") - (put 'sakoline-major-mode 'risky-local-variable t) + (defface sakoline-evil-normal-color + '((t :background "#99ff99" :foreground "black")) + "Evil Visual Color") - (defface sakoline-evil-visual-color - '((t :background "#6600cc" :foreground "black")) - "Evil Visual Color") + (defface sakoline-evil-insert-color + '((t :background "#00cc66" :foreground "black")) + "Evil Visual Color") - (defface sakoline-evil-normal-color - '((t :background "#99ff99" :foreground "black")) - "Evil Visual Color") + (defface sakoline-evil-emacs-color + '((t :background "#9900ff" :foreground "black")) + "Evil Visual Color") - (defface sakoline-evil-insert-color - '((t :background "#00cc66" :foreground "black")) - "Evil Visual Color") + (defface sakoline-evil-operator-color + '((t :background "#ff3300" :foreground "black")) + "Evil Visual Color") - (defface sakoline-evil-emacs-color - '((t :background "#9900ff" :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"))) - (defface sakoline-evil-operator-color - '((t :background "#ff3300" :foreground "black")) - "Evil Visual Color") + (put 'sakoline-evil-mode 'risky-local-variable t) - (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"))) + (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") - (put 'sakoline-evil-mode 'risky-local-variable t) + (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))))) - (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))))) + ;; some weird spacing bullshit + ;; weird how its not built in + (defun sakoline-line-render (left right) + "Return a string of `window-width' length containing LEFT, and RIGHT + aligned respectively." + (let* ((available-width (- (window-width) (length left) 2))) + (format (format " %%s %%%ds " available-width) left right))) #+end_src * Packages ** Log state @@ -604,7 +610,7 @@ Should make startup faster, taken from doom-emacs :straight t :hook (org-mode . org-indent-mode) :config - (setq org-ellipsis "▼") + (setq org-ellipsis " ↓") (setq org-agenda-start-with-log-mode t) (setq org-log-done 'time) (setq org-log-into-drawer t) @@ -734,6 +740,7 @@ We have to compete with notion somehow right? *** Olivetti #+begin_src emacs-lisp (use-package olivetti + :straight t :hook (org-mode . (lambda () (interactive) (olivetti-mode) (olivetti-set-width 100)))) #+end_src ** Org-Roam @@ -1050,9 +1057,12 @@ make sure to setup authinfo #+end_src ***** Markdown #+begin_src emacs-lisp - (use-package markdown-mode - :straight t - :hook (markdown-mode . visual-line-mode)) + (use-package markdown-mode + :straight t + :hook (markdown-mode . visual-line-mode)) + + (use-package markdown-preview-mode + :straight t) #+end_src *** Commenter #+begin_src emacs-lisp