fixed it ifnally

This commit is contained in:
Sakooooo 2023-09-22 16:40:10 +00:00
parent 1e99e6670f
commit a6dfc8b929
Signed by: sako
GPG key ID: FE52FD65B76E4751
2 changed files with 218 additions and 126 deletions

View file

@ -14,25 +14,25 @@ M-x org-bable-tangle
* ui configuration * ui configuration
#+begin_src emacs-lisp #+begin_src emacs-lisp
;; UI/UX ;; UI/UX
(setq inhibit-startup-message t) (setq inhibit-splash-screen t)
;; make it look like neovim a little ;; make it look like neovim a little
(scroll-bar-mode -1) (scroll-bar-mode -1)
(tool-bar-mode -1) (tool-bar-mode -1)
(tooltip-mode -1) (tooltip-mode -1)
(set-fringe-mode 10) (set-fringe-mode 10)
(menu-bar-mode -1) (menu-bar-mode -1)
;; Line Numbers ;; Line Numbers
(column-number-mode) (column-number-mode)
(global-display-line-numbers-mode t) (global-display-line-numbers-mode t)
;; disable line numbers on some modes ;; disable line numbers on some modes
(dolist (mode '(org-mode-hook (dolist (mode '(org-mode-hook
term-mode-hook term-mode-hook
eshell-mode-hook eshell-mode-hook
treemacs-mode-hook)) treemacs-mode-hook))
(add-hook mode (lambda () (display-line-numbers-mode 0)))) (add-hook mode (lambda () (display-line-numbers-mode 0))))
;; Bell ;; Bell
(setq visible-bell t) (setq visible-bell t)
#+end_src #+end_src
* Keymaps * Keymaps
@ -249,45 +249,66 @@ M-x org-bable-tangle
#+end_src #+end_src
** Org-Mode ** Org-Mode
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun sakomacs/org-mode-setup () (defun sakomacs/org-mode-setup ()
(org-indent-mode) (org-indent-mode)
(variable-pitch-mode 1) (variable-pitch-mode 1)
(visual-line-mode 1)) (visual-line-mode 1))
(use-package org (use-package org
:hook (org-mode . sakomacs/org-mode-setup) :hook (org-mode . sakomacs/org-mode-setup)
:config :config
(setq org-ellipsis "▼") (setq org-ellipsis "▼")
(setq org-agenda-start-with-log-mode t) (setq org-agenda-start-with-log-mode t)
(setq org-log-done 'time) (setq org-log-done 'time)
(setq org-log-into-drawer t) (setq org-log-into-drawer t)
;; org habits thing ;; org habits thing
(require 'org-habit) (require 'org-habit)
(add-to-list 'org-modules 'org-habit) (add-to-list 'org-modules 'org-habit)
(setq org-habit-graph-column 60) (setq org-habit-graph-column 60)
;; archive thingy i forgot
(setq org-refile-targets
'(("Archive.org" :maxlevel . 1)
("Tasks.org" :maxlevel . 1)))
;; save org buffer before refile
(advice-add 'org-refile :after 'org-save-all-org-buffers)
;; org mode src thing
(require 'org-tempo)
(add-to-list 'org-structure-template-alist '("sh" . "src shell"))
(add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
(add-to-list 'org-structure-template-alist '("py" . "src python"))
(setq org-todo-keywords
'((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@)")))
;; archive thingy i forgot
(setq org-refile-targets (setq org-refile-targets
'(("archive.org" :maxlevel . 1))) '(("Archive.org" :maxlevel . 1)
("Tasks.org" :maxlevel . 1)))
;; save org buffer before refile ;; 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)
;; org mode src thing (setq org-tag-alist
(require 'org-tempo) '((:startgroup)
; Put mutually exclusive tags here
(:endgroup)
("@errand" . ?E)
("@home" . ?H)
("@work" . ?W)
("agenda" . ?a)
("planning" . ?p)
("publish" . ?P)
("batch" . ?b)
("note" . ?n)
("idea" . ?i)))
(add-to-list 'org-structure-template-alist '("sh" . "src shell")) ;; Configure custom agenda views
(add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp")) (setq org-agenda-custom-commands
(add-to-list 'org-structure-template-alist '("py" . "src python"))
;; extra keywords
(setq org-todo-keywords
'((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d!)")
(sequence "PLAN(p)" "READY(r)" "ACTIVE(a)" "HOLD(h)" "|" "COMPLETED(c)" "CANC(k@)") )
;; custom commands for org-agenda
(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"
@ -307,10 +328,20 @@ M-x org-bable-tangle
(org-agenda-files org-agenda-files))) (org-agenda-files org-agenda-files)))
("w" "Workflow Status" ("w" "Workflow Status"
((todo "WAIT"
((org-agenda-overriding-header "Waiting on External")
(org-agenda-files org-agenda-files)))
(todo "REVIEW"
((org-agenda-overriding-header "In Review")
(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"
((org-agenda-overriding-header "Project Backlog")
(org-agenda-todo-list-sublevels nil)
(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)))
@ -324,34 +355,49 @@ M-x org-bable-tangle
((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-agenda-files
'("~/org/tasks.org")
'("~/org/work.org"))
(setq org-adapt-indentation t)
(setq org-capture-templates (setq org-capture-templates
`(("t" "Tasks / Projects") `(("t" "Tasks / Projects")
("tt" "Task" entry (file+olp "~/org/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")
("jj" "Journal" entry
(file+olp+datetree "~/Projects/Code/emacs-from-scratch/OrgFiles/Journal.org")
"\n* %<%I:%M %p> - Journal :journal:\n\n%?\n\n"
;; ,(dw/read-file-as-string "~/Notes/Templates/Daily.org")
:clock-in :clock-resume
:empty-lines 1)
("jm" "Meeting" entry
(file+olp+datetree "~/Projects/Code/emacs-from-scratch/OrgFiles/Journal.org")
"* %<%I:%M %p> - %a :meetings:\n\n%?\n\n"
:clock-in :clock-resume
:empty-lines 1)
("w" "Workflows")
("we" "Checking Email" entry (file+olp+datetree "~/Projects/Code/emacs-from-scratch/OrgFiles/Journal.org")
"* Checking Email :email:\n\n%?" :clock-in :clock-resume :empty-lines 1)
("m" "Metrics Capture")
("mw" "Weight" table-line (file+headline "~/Projects/Code/emacs-from-scratch/OrgFiles/Metrics.org" "Weight")
"| %U | %^{Weight} | %^{Notes} |" :kill-buffer t))))
;; i need more bullets, i need more bullets, i need more bullets, bigger weapons, bigger weapons, bigger weapons ;; i need more bullets, i need more bullets, i need more bullets, bigger weapons, bigger weapons, bigger weapons
;; thanks for the protein sir ;; thanks for the protein sir
(use-package org-bullets (use-package org-bullets
:after org :after org
:hook (org-mode . org-bullets-mode) :hook (org-mode . org-bullets-mode)
:custom :custom
(org-bullets-bullet-list '("◉" "○" "●" "○" "●" "○" "●"))) (org-bullets-bullet-list '("◉" "○" "●" "○" "●" "○" "●")))
;; word ;; word
(defun sakomacs/org-mode-visual-fill () (defun sakomacs/org-mode-visual-fill ()
(setq visual-fill-column-width 100 (setq visual-fill-column-width 100
visual-fill-column-center-text t) visual-fill-column-center-text t)
(visual-fill-column-mode 1)) (visual-fill-column-mode 1))
(use-package visual-fill-column (use-package visual-fill-column
:hook (org-mode . sakomacs/org-mode-visual-fill)) :hook (org-mode . sakomacs/org-mode-visual-fill))
#+end_src #+end_src
** Treemacs ** Treemacs
#+begin_src emacs-lisp #+begin_src emacs-lisp

View file

@ -1,5 +1,5 @@
;; UI/UX ;; UI/UX
(setq inhibit-startup-message t) (setq inhibit-splash-screen t)
;; make it look like neovim a little ;; make it look like neovim a little
(scroll-bar-mode -1) (scroll-bar-mode -1)
(tool-bar-mode -1) (tool-bar-mode -1)
@ -215,8 +215,9 @@
(setq org-habit-graph-column 60) (setq org-habit-graph-column 60)
;; archive thingy i forgot ;; archive thingy i forgot
(setq org-refile-targets (setq org-refile-targets
'(("archive.org" :maxlevel . 1))) '(("Archive.org" :maxlevel . 1)
("Tasks.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)
@ -228,59 +229,104 @@
(add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp")) (add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
(add-to-list 'org-structure-template-alist '("py" . "src python")) (add-to-list 'org-structure-template-alist '("py" . "src python"))
;; extra keywords (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 "PLAN(p)" "READY(r)" "ACTIVE(a)" "HOLD(h)" "|" "COMPLETED(c)" "CANC(k@)") )
;; custom commands for org-agenda (setq org-refile-targets
(setq org-agenda-custom-commands '(("Archive.org" :maxlevel . 1)
'(("d" "Dashboard" ("Tasks.org" :maxlevel . 1)))
((agenda "" ((org-deadline-warning-days 7)))
(todo "NEXT"
((org-agenda-overriding-header "Next Tasks")))
(tags-todo "agenda/ACTIVE" ((org-agenda-overriding-header "Active Projects")))))
("n" "Next Tasks" ;; Save Org buffers after refiling!
((todo "NEXT" (advice-add 'org-refile :after 'org-save-all-org-buffers)
((org-agenda-overriding-header "Next Tasks")))))
("W" "Work Tasks" tags-todo "+work-email") (setq org-tag-alist
'((:startgroup)
; Put mutually exclusive tags here
(:endgroup)
("@errand" . ?E)
("@home" . ?H)
("@work" . ?W)
("agenda" . ?a)
("planning" . ?p)
("publish" . ?P)
("batch" . ?b)
("note" . ?n)
("idea" . ?i)))
;; Low-effort next actions ;; Configure custom agenda views
("e" tags-todo "+TODO=\"NEXT\"+Effort<15&+Effort>0" (setq org-agenda-custom-commands
((org-agenda-overriding-header "Low Effort Tasks") '(("d" "Dashboard"
(org-agenda-max-todos 20) ((agenda "" ((org-deadline-warning-days 7)))
(org-agenda-files org-agenda-files))) (todo "NEXT"
((org-agenda-overriding-header "Next Tasks")))
(tags-todo "agenda/ACTIVE" ((org-agenda-overriding-header "Active Projects")))))
("w" "Workflow Status" ("n" "Next Tasks"
(todo "PLAN" ((todo "NEXT"
((org-agenda-overriding-header "In Planning") ((org-agenda-overriding-header "Next Tasks")))))
(org-agenda-todo-list-sublevels nil)
(org-agenda-files org-agenda-files)))
(todo "READY"
((org-agenda-overriding-header "Ready for Work")
(org-agenda-files org-agenda-files)))
(todo "ACTIVE"
((org-agenda-overriding-header "Active Projects")
(org-agenda-files org-agenda-files)))
(todo "COMPLETED"
((org-agenda-overriding-header "Completed Projects")
(org-agenda-files org-agenda-files)))
(todo "CANC"
((org-agenda-overriding-header "Cancelled Projects")
(org-agenda-files org-agenda-files)))))))
(setq org-agenda-files ("W" "Work Tasks" tags-todo "+work-email")
'("~/org/tasks.org")
'("~/org/work.org"))
(setq org-adapt-indentation t) ;; Low-effort next actions
("e" tags-todo "+TODO=\"NEXT\"+Effort<15&+Effort>0"
((org-agenda-overriding-header "Low Effort Tasks")
(org-agenda-max-todos 20)
(org-agenda-files org-agenda-files)))
(setq org-capture-templates ("w" "Workflow Status"
((todo "WAIT"
((org-agenda-overriding-header "Waiting on External")
(org-agenda-files org-agenda-files)))
(todo "REVIEW"
((org-agenda-overriding-header "In Review")
(org-agenda-files org-agenda-files)))
(todo "PLAN"
((org-agenda-overriding-header "In Planning")
(org-agenda-todo-list-sublevels nil)
(org-agenda-files org-agenda-files)))
(todo "BACKLOG"
((org-agenda-overriding-header "Project Backlog")
(org-agenda-todo-list-sublevels nil)
(org-agenda-files org-agenda-files)))
(todo "READY"
((org-agenda-overriding-header "Ready for Work")
(org-agenda-files org-agenda-files)))
(todo "ACTIVE"
((org-agenda-overriding-header "Active Projects")
(org-agenda-files org-agenda-files)))
(todo "COMPLETED"
((org-agenda-overriding-header "Completed Projects")
(org-agenda-files org-agenda-files)))
(todo "CANC"
((org-agenda-overriding-header "Cancelled Projects")
(org-agenda-files org-agenda-files)))))))
(setq org-capture-templates
`(("t" "Tasks / Projects") `(("t" "Tasks / Projects")
("tt" "Task" entry (file+olp "~/org/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")
("jj" "Journal" entry
(file+olp+datetree "~/Projects/Code/emacs-from-scratch/OrgFiles/Journal.org")
"\n* %<%I:%M %p> - Journal :journal:\n\n%?\n\n"
;; ,(dw/read-file-as-string "~/Notes/Templates/Daily.org")
:clock-in :clock-resume
:empty-lines 1)
("jm" "Meeting" entry
(file+olp+datetree "~/Projects/Code/emacs-from-scratch/OrgFiles/Journal.org")
"* %<%I:%M %p> - %a :meetings:\n\n%?\n\n"
:clock-in :clock-resume
:empty-lines 1)
("w" "Workflows")
("we" "Checking Email" entry (file+olp+datetree "~/Projects/Code/emacs-from-scratch/OrgFiles/Journal.org")
"* Checking Email :email:\n\n%?" :clock-in :clock-resume :empty-lines 1)
("m" "Metrics Capture")
("mw" "Weight" table-line (file+headline "~/Projects/Code/emacs-from-scratch/OrgFiles/Metrics.org" "Weight")
"| %U | %^{Weight} | %^{Notes} |" :kill-buffer t))))
;; i need more bullets, i need more bullets, i need more bullets, bigger weapons, bigger weapons, bigger weapons ;; i need more bullets, i need more bullets, i need more bullets, bigger weapons, bigger weapons, bigger weapons
@ -294,7 +340,7 @@
;; word ;; word
(defun sakomacs/org-mode-visual-fill () (defun sakomacs/org-mode-visual-fill ()
(setq visual-fill-column-width 100 (setq visual-fill-column-width 100
visual-fill-column-center-text t) visual-fill-column-center-text t)
(visual-fill-column-mode 1)) (visual-fill-column-mode 1))
(use-package visual-fill-column (use-package visual-fill-column
@ -436,14 +482,14 @@
(use-package js2-mode (use-package js2-mode
:mode "\\.js\\'" :mode "\\.js\\'"
:hook (js2-mode . lsp-deferred)) :hook (js2-mode . lsp))
(add-hook 'c-mode-hook 'lsp) (add-hook 'c-mode-hook 'lsp)
(add-hook 'c++-mode-hook 'lsp) (add-hook 'c++-mode-hook 'lsp)
(use-package python-mode (use-package python-mode
:mode "\\.py\\'" :mode "\\.py\\'"
:hook (python-mode . lsp-deferred)) :hook (python-mode . lsp))
(use-package elpy (use-package elpy
:after python-mode :after python-mode
@ -456,7 +502,7 @@
(use-package haskell-mode (use-package haskell-mode
:mode "\\.hs\\'" :mode "\\.hs\\'"
:hook (python-mode . lsp-deferred)) :hook (python-mode . lsp))
(use-package yaml-mode (use-package yaml-mode
:mode ("\\.yaml\\'" :mode ("\\.yaml\\'"