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

codeberg is blocked in my country

Browse source
This commit is contained in:
Sakooooo 2023-12-23 17:10:06 +00:00
parent 1369141eb9
commit c3485892cb
Signed by: sako
GPG key ID: FE52FD65B76E4751
1 changed files with 88 additions and 89 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

177
config/emacs/init.el
View file

@ -65,8 +65,8 @@ kept-old-versions 5)
(require `package) (require `package)
(setq package-archives `(("mepla" . "https://melpa.org/packages/") (setq package-archives `(("mepla" . "https://melpa.org/packages/")
("org" . "https://orgmode.org/elpa/") ("org" . "https://orgmode.org/elpa/")
("elpa" . "https://elpa.gnu.org/packages/"))) ("elpa" . "https://elpa.gnu.org/packages/")))
(package-initialize) (package-initialize)
(unless package-archive-contents (unless package-archive-contents
@ -113,8 +113,8 @@ kept-old-versions 5)
(add-hook 'emacs-startup-hook (add-hook 'emacs-startup-hook
(lambda () (lambda ()
;;(setq gc-cons-threshold 16777216 ; 16mb ;;(setq gc-cons-threshold 16777216 ; 16mb
;; this could be really bad idk ;; this could be really bad idk
(setq gc-cons-threshold 100000000 (setq gc-cons-threshold 100000000
gc-cons-percentage 0.1))) gc-cons-percentage 0.1)))
(defun doom-defer-garbage-collection-h () (defun doom-defer-garbage-collection-h ()
@ -143,18 +143,18 @@ kept-old-versions 5)
(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.
@ -215,7 +215,7 @@ kept-old-versions 5)
((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)
@ -230,12 +230,12 @@ kept-old-versions 5)
'(: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)
@ -355,7 +355,7 @@ kept-old-versions 5)
embark-collect-mode embark-collect-mode
lsp-ui-imenu-mode lsp-ui-imenu-mode
pdf-annot-list-mode pdf-annot-list-mode
dashboard-mode) . turn-on-hide-mode-line-mode) dashboard-mode) . turn-on-hide-mode-line-mode)
(dired-mode . turn-off-hide-mode-line-mode))) (dired-mode . turn-off-hide-mode-line-mode)))
(use-package minions (use-package minions
@ -547,7 +547,7 @@ kept-old-versions 5)
;; archive thingy i forgot ;; archive thingy i forgot
(setq org-refile-targets (setq org-refile-targets
'(("archive.org" :maxlevel . 1))) '(("archive.org" :maxlevel . 1)))
;; save org buffer before refile ;; save org buffer before refile
(advice-add 'org-refile :after 'org-save-all-org-buffers) (advice-add 'org-refile :after 'org-save-all-org-buffers)
@ -575,85 +575,85 @@ kept-old-versions 5)
(add-to-list 'org-structure-template-alist '("py" . "src python")) (add-to-list 'org-structure-template-alist '("py" . "src python"))
(setq org-todo-keywords (setq org-todo-keywords
'((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d!)") '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d!)")
(sequence "BACKLOG(b)" "PLAN(p)" "READY(r)" "ACTIVE(a)" "REVIEW(v)" "WAIT(w@/!)" "HOLD(h)" "|" "COMPLETED(c)" "CANCELED(k@)"))) (sequence "BACKLOG(b)" "PLAN(p)" "READY(r)" "ACTIVE(a)" "REVIEW(v)" "WAIT(w@/!)" "HOLD(h)" "|" "COMPLETED(c)" "CANCELED(k@)")))
(setq org-refile-targets (setq org-refile-targets
'(("archive.org" :maxlevel . 1) '(("archive.org" :maxlevel . 1)
("tasks.org" :maxlevel . 1))) ("tasks.org" :maxlevel . 1)))
;; Save Org buffers after refiling! ;; Save Org buffers after refiling!
(advice-add 'org-refile :after 'org-save-all-org-buffers) (advice-add 'org-refile :after 'org-save-all-org-buffers)
(setq org-tag-alist (setq org-tag-alist
'((:startgroup) '((:startgroup)
; Put mutually exclusive tags here ; Put mutually exclusive tags here
(:endgroup) (:endgroup)
("@errand" . ?E) ("@errand" . ?E)
("@home" . ?H) ("@home" . ?H)
("@work" . ?W) ("@work" . ?W)
("agenda" . ?a) ("agenda" . ?a)
("planning" . ?p) ("planning" . ?p)
("publish" . ?P) ("publish" . ?P)
("batch" . ?b) ("batch" . ?b)
("note" . ?n) ("note" . ?n)
("idea" . ?i))) ("idea" . ?i)))
;; Configure custom agenda views ;; Configure custom agenda views
(setq org-agenda-custom-commands (setq org-agenda-custom-commands
'(("d" "Dashboard" '(("d" "Dashboard"
((agenda "" ((org-deadline-warning-days 7))) ((agenda "" ((org-deadline-warning-days 7)))
(todo "NEXT" (todo "NEXT"
((org-agenda-overriding-header "Next Tasks"))) ((org-agenda-overriding-header "Next Tasks")))
(tags-todo "agenda/ACTIVE" ((org-agenda-overriding-header "Active Projects"))))) (tags-todo "agenda/ACTIVE" ((org-agenda-overriding-header "Active Projects")))))
("n" "Next Tasks" ("n" "Next Tasks"
((todo "NEXT" ((todo "NEXT"
((org-agenda-overriding-header "Next Tasks"))))) ((org-agenda-overriding-header "Next Tasks")))))
("W" "Work Tasks" tags-todo "+work-email") ("W" "Work Tasks" tags-todo "+work-email")
;; Low-effort next actions ;; Low-effort next actions
("e" tags-todo "+TODO=\"NEXT\"+Effort<15&+Effort>0" ("e" tags-todo "+TODO=\"NEXT\"+Effort<15&+Effort>0"
((org-agenda-overriding-header "Low Effort Tasks") ((org-agenda-overriding-header "Low Effort Tasks")
(org-agenda-max-todos 20) (org-agenda-max-todos 20)
(org-agenda-files org-agenda-files))) (org-agenda-files org-agenda-files)))
("w" "Workflow Status" ("w" "Workflow Status"
((todo "WAIT" ((todo "WAIT"
((org-agenda-overriding-header "Waiting on External") ((org-agenda-overriding-header "Waiting on External")
(org-agenda-files org-agenda-files))) (org-agenda-files org-agenda-files)))
(todo "REVIEW" (todo "REVIEW"
((org-agenda-overriding-header "In Review") ((org-agenda-overriding-header "In Review")
(org-agenda-files org-agenda-files))) (org-agenda-files org-agenda-files)))
(todo "PLAN" (todo "PLAN"
((org-agenda-overriding-header "In Planning") ((org-agenda-overriding-header "In Planning")
(org-agenda-todo-list-sublevels nil) (org-agenda-todo-list-sublevels nil)
(org-agenda-files org-agenda-files))) (org-agenda-files org-agenda-files)))
(todo "BACKLOG" (todo "BACKLOG"
((org-agenda-overriding-header "Project Backlog") ((org-agenda-overriding-header "Project Backlog")
(org-agenda-todo-list-sublevels nil) (org-agenda-todo-list-sublevels nil)
(org-agenda-files org-agenda-files))) (org-agenda-files org-agenda-files)))
(todo "READY" (todo "READY"
((org-agenda-overriding-header "Ready for Work") ((org-agenda-overriding-header "Ready for Work")
(org-agenda-files org-agenda-files))) (org-agenda-files org-agenda-files)))
(todo "ACTIVE" (todo "ACTIVE"
((org-agenda-overriding-header "Active Projects") ((org-agenda-overriding-header "Active Projects")
(org-agenda-files org-agenda-files))) (org-agenda-files org-agenda-files)))
(todo "COMPLETED" (todo "COMPLETED"
((org-agenda-overriding-header "Completed Projects") ((org-agenda-overriding-header "Completed Projects")
(org-agenda-files org-agenda-files))) (org-agenda-files org-agenda-files)))
(todo "CANC" (todo "CANC"
((org-agenda-overriding-header "Cancelled Projects") ((org-agenda-overriding-header "Cancelled Projects")
(org-agenda-files org-agenda-files))))))) (org-agenda-files org-agenda-files)))))))
(setq org-capture-templates (setq org-capture-templates
`(("t" "Tasks / Projects") `(("t" "Tasks / Projects")
("tt" "Task" entry (file+olp "~/Projects/Code/emacs-from-scratch/OrgFiles/Tasks.org" "Inbox") ("tt" "Task" entry (file+olp "~/Projects/Code/emacs-from-scratch/OrgFiles/Tasks.org" "Inbox")
"* TODO %?\n %U\n %a\n %i" :empty-lines 1) "* TODO %?\n %U\n %a\n %i" :empty-lines 1)
("j" "Journal Entries") ("j" "Journal Entries")
("jj" "Journal" entry ("jj" "Journal" entry
(file+olp+datetree "~/Projects/Code/emacs-from-scratch/OrgFiles/Journal.org") (file+olp+datetree "~/Projects/Code/emacs-from-scratch/OrgFiles/Journal.org")
"\n* %<%I:%M %p> - Journal :journal:\n\n%?\n\n" "\n* %<%I:%M %p> - Journal :journal:\n\n%?\n\n"
;; ,(dw/read-file-as-string "~/Notes/Templates/Daily.org") ;; ,(dw/read-file-as-string "~/Notes/Templates/Daily.org")
@ -843,7 +843,7 @@ kept-old-versions 5)
(use-package js2-mode (use-package js2-mode
:straight t :straight t
:mode ("\\.js\\'" :mode ("\\.js\\'"
"\\.jsx\\'") "\\.jsx\\'")
:hook (js2-mode . lsp) :hook (js2-mode . lsp)
:config :config
(setq web-mode-markup-indent-offset 2) ; HTML (setq web-mode-markup-indent-offset 2) ; HTML
@ -854,7 +854,7 @@ kept-old-versions 5)
(use-package typescript-mode (use-package typescript-mode
:straight t :straight t
:mode ("\\.ts\\'" :mode ("\\.ts\\'"
"\\.tsx\\'") "\\.tsx\\'")
:hook (typescript-mode . lsp)) :hook (typescript-mode . lsp))
(define-derived-mode astro-mode web-mode "astro") (define-derived-mode astro-mode web-mode "astro")
@ -949,7 +949,7 @@ kept-old-versions 5)
:after lsp-mode :after lsp-mode
:hook (lsp-mode . company-mode) :hook (lsp-mode . company-mode)
:bind (:map company-active-map :bind (:map company-active-map
("<tab>" . company-complete-selection)) ("<tab>" . company-complete-selection))
(:map lsp-mode-map (:map lsp-mode-map
("<tab>" . company-indent-or-complete-common)) ("<tab>" . company-indent-or-complete-common))
:custom :custom
@ -969,7 +969,6 @@ kept-old-versions 5)
) )
(use-package fancy-compilation (use-package fancy-compilation
:straight t
:commands (fancy-compilation-mode)) :commands (fancy-compilation-mode))
(with-eval-after-load 'compile (with-eval-after-load 'compile