sako/nixos
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

mama leone she left a note at the door

Browse source
This commit is contained in:
Sakooooo 2023-12-23 16:46:19 +00:00
parent 7ea0ed1bb5
commit 53fa64314c
Signed by: sako
GPG key ID: FE52FD65B76E4751
1 changed files with 121 additions and 112 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

233
config/emacs/init.el
View file

@ -138,44 +138,27 @@ kept-old-versions 5)
(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
;; `("%e" '((:eval (sakoline-render
;; sakoline-evil-mode ;; left
(quote ("%e"
sakoline-evil-mode
" "
sakoline-buffer-name
" "
sakoline-buffer-state))
;; right
(quote (sakoline-major-mode
)
)))))
;; ;; begin BUFFER name (defun sakoline-render (left right)
;; " "
;; sakoline-buffer-name
;; " "
;; sakoline-buffer-state
;; " "
;; ;; everything under here goes to the right
;; 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. "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))
@ -184,77 +167,77 @@ Containing LEFT, and RIGHT aligned respectively."
(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 "#669999"))) (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)
(message "setting up packages") (message "setting up packages")
@ -315,22 +298,27 @@ Containing LEFT, and RIGHT aligned respectively."
:config :config
(setq ivy-inital-inputs-alist nil)) (setq ivy-inital-inputs-alist nil))
(use-package doom-themes ;; (use-package doom-themes
:straight t ;; :straight t
:ensure t ;; :ensure t
:config ;; :config
;; Global settings (defaults) ;; ;; Global settings (defaults)
(setq doom-themes-enable-bold t ; if nil, bold is universally disabled ;; (setq doom-themes-enable-bold t ; if nil, bold is universally disabled
doom-themes-enable-italic t) ; if nil, italics is universally disabled ;; doom-themes-enable-italic t) ; if nil, italics is universally disabled
;; load the theme ;; ;; load the theme
(load-theme 'doom-monokai-pro t) ;; (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 ;; ;; Enable flashing mode-line on errors
(doom-themes-visual-bell-config)) ;; (doom-themes-visual-bell-config))
(use-package timu-macos-theme
:straight t
:config
(load-theme 'timu-macos t))
(use-package all-the-icons) (use-package all-the-icons)
@ -455,6 +443,7 @@ Containing LEFT, and RIGHT aligned respectively."
(setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*"))) (setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*")))
(setq dashboard-center-content t) (setq dashboard-center-content t)
(setq dashboard-projects-backend 'projectile) (setq dashboard-projects-backend 'projectile)
(setq dashboard-startup-banner "~/.emacs.d/dashboard.png")
(setq dashboard-footer-messages '("i think i have emacs pinky" (setq dashboard-footer-messages '("i think i have emacs pinky"
"why are we still using lisp again?" "why are we still using lisp again?"
"why is this running on 1/16 threads?!?!?" "why is this running on 1/16 threads?!?!?"
@ -472,8 +461,8 @@ Containing LEFT, and RIGHT aligned respectively."
(projects . 3) (projects . 3)
(agenda . 5))) (agenda . 5)))
(setq dashboard-image-banner-max-height 250) (setq dashboard-image-banner-max-height 200)
(setq dashboard-image-banner-max-width 500) (setq dashboard-image-banner-max-width 300)
(setq dashboard-page-separator "\n\n") (setq dashboard-page-separator "\n\n")
(dashboard-setup-startup-hook)) (dashboard-setup-startup-hook))
@ -485,7 +474,6 @@ Containing LEFT, and RIGHT aligned respectively."
(setq evil-want-keybinding nil) (setq evil-want-keybinding nil)
(setq evil-want-C-u-scroll t) (setq evil-want-C-u-scroll t)
(setq evil-want-C-i-jump nil) (setq evil-want-C-i-jump nil)
:hook (evil-mode . sakomacs/evil-hook)
:ensure t :ensure t
:demand :demand
:config :config
@ -680,12 +668,12 @@ Containing LEFT, and RIGHT aligned respectively."
:straight t :straight t
:ensure t :ensure t
:custom :custom
(org-roam-directory "~/org" (org-roam-directory "~/org/notes")
:bind (("C-c n l" . org-roam-buffer-toggle) :bind (("C-c n l" . org-roam-buffer-toggle)
("C-c n f" . org-roam-node-find) ("C-c n f" . org-roam-node-find)
("C-c n i" . org-roam-node-insert)) ("C-c n i" . org-roam-node-insert))
:config :config
(org-roam-setup))) (org-roam-setup))
(use-package treemacs (use-package treemacs
:ensure t :ensure t
@ -1088,6 +1076,27 @@ Containing LEFT, and RIGHT aligned respectively."
(use-package ement (use-package ement
:straight t) :straight t)
(if (eq system-type 'gnu/linux)
(use-package mu4e
:load-path "//wsl.localhost/Debian/usr/share/emacs/site-lisp/elpa-src/mu4e-1.8.14"
:custom
(mu4e-mu-binary "wsl mu")))
;; global defaults
;; (use-package mu4e
;; :custom
;; mu4e-update-interval 300
;; )
;; we need this regardless of platform
(use-package smtpmail
:straight t)
(use-package epg
:straight t
:config
(setq epg-inentry-mode 'loopback))
(org-babel-do-load-languages (org-babel-do-load-languages
'org-babel-load-languages 'org-babel-load-languages
'((emacs-lisp . t) '((emacs-lisp . t)