Update emacs.org

This commit is contained in:
Sakooooo 2023-11-26 13:14:09 +04:00 committed by GitHub
parent 568d1913cf
commit a09a2466b2
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -389,29 +389,44 @@ Should make startup faster, taken from doom-emacs
"gci" `(forge-create-issue :which-key "issue") "gci" `(forge-create-issue :which-key "issue")
"gcp" `(forge-create-pullreq :which-key "pull request"))) "gcp" `(forge-create-pullreq :which-key "pull request")))
#+end_src #+end_src
** Emacs-Dashboard ** Dashboard
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package dashboard (use-package dashboard
:ensure t :ensure t
:straight t :straight t
:config :config
(setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*"))) (setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*")))
;; Configuration of Dashboard ;; Configuration of Dashboard
(setq dashboard-display-icons-p t) ;; display icons on both GUI and terminal (setq dashboard-display-icons-p t) ;; display icons on both GUI and terminal
(setq dashboard-icon-type 'nerd-icons) ;; use `nerd-icons' package (setq dashboard-icon-type 'nerd-icons) ;; use `nerd-icons' package
;; Set the title ;; Set the title
(setq dashboard-banner-logo-title "Emacs is vscode for nerds") (setq dashboard-banner-logo-title "Emacs is vscode for nerds")
;; Set the banner ;; Set the banner
(setq dashboard-startup-banner 'official) (setq dashboard-startup-banner 'official)
;; center everything ;; center everything
(setq dashboard-center-content t) (setq dashboard-center-content t)
;; jump thing ;; jump thing
(setq dashboard-show-shortcuts nil) (setq dashboard-show-shortcuts nil)
(setq dashboard-items '((projects . 5) (setq dashboard-items '((recent . 3)
(agenda . 5))) (projects . 3)
(setq dashboard-projects-switch-function 'counsel-projectile-switch-project-by-name) (agenda . 5)))
(setq dashboard-footer-messages '("I think I have Emacs pinky!")) (setq dashboard-projects-switch-function 'counsel-projectile-switch-project-by-name)
(dashboard-setup-startup-hook)) (setq dashboard-footer-messages '("I think I have Emacs pinky!"
"Eating a burger with no honey mustard"
"why are oranges called oranges?"
"but an apple is not called red"
"TODO find a replacement for hands"
"the best OS it just needs a good text editor"
"why are we still using one thread"
"goodness gracious!!!!"
"kanye west is literally me"
"i drive"
"happy waking up day"
"why are we still using lisp again?"
"one more ai application i swear to god"))
(dashboard-setup-startup-hook)
:hook
(dashboard-mode . hide-mode-line-mode))
#+end_src #+end_src
** Evil Mode (vim) ** Evil Mode (vim)
#+begin_src emacs-lisp #+begin_src emacs-lisp
@ -486,14 +501,8 @@ Should make startup faster, taken from doom-emacs
#+end_src #+end_src
** Org-Mode ** Org-Mode
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun sakomacs/org-mode-setup ()
(org-indent-mode)
(variable-pitch-mode 1)
(visual-line-mode 1))
(use-package org (use-package org
:straight t :straight t
: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)
@ -506,22 +515,22 @@ Should make startup faster, taken from doom-emacs
(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)))
;; 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)
;; org agenda files ;; org agenda files
(setq org-agenda-files (setq org-agenda-files
'("~/org/tasks.org" '("~/org/tasks.org"
"~/org/school.org" "~/org/school.org"
"~/org/daily.org" "~/org/daily.org"
"~/org/irl.org" "~/org/irl.org"
"~/org/work.org")) "~/org/work.org"))
;; Following ;; Following
(setq org-return-follows-link t) (setq org-return-follows-link t)
;; org mode src thing ;; org mode src thing
(require 'org-tempo) (require 'org-tempo)
@ -530,116 +539,109 @@ Should make startup faster, taken from doom-emacs
(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"))
(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")
:clock-in :clock-resume :clock-in :clock-resume
:empty-lines 1) :empty-lines 1)
("w" "Workflows") ("w" "Workflows")
("we" "Checking Email" entry (file+olp+datetree "~/Projects/Code/emacs-from-scratch/OrgFiles/Journal.org") ("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) "* Checking Email :email:\n\n%?" :clock-in :clock-resume :empty-lines 1)
("m" "Metrics Capture") ("m" "Metrics Capture")
("mw" "Weight" table-line (file+headline "~/Projects/Code/emacs-from-scratch/OrgFiles/Metrics.org" "Weight") ("mw" "Weight" table-line (file+headline "~/Projects/Code/emacs-from-scratch/OrgFiles/Metrics.org" "Weight")
"| %U | %^{Weight} | %^{Notes} |" :kill-buffer t)))) "| %U | %^{Weight} | %^{Notes} |" :kill-buffer t))))
;; make it look better ;; make it look better
(use-package org-superstar (use-package org-superstar
:after org :after org
:hook (org-mode . org-superstar-mode) :hook (org-mode . org-superstar-mode)
:custom :config
(org-superstar-headline-bullets-list'("◉" "○" "●" "○" "●" "○" "●"))) (setq org-superstar-headline-bullets-list '("◉" "○" "◈" "◎")))
(use-package olivetti
;; word :hook (org-mode . (lambda () (interactive) (olivetti-mode) (olivetti-set-width 100))))
(defun sakomacs/org-mode-visual-fill ()
(setq visual-fill-column-width 100
visual-fill-column-center-text t)
(visual-fill-column-mode 1))
(use-package visual-fill-column
:hook (org-mode . sakomacs/org-mode-visual-fill))
#+end_src #+end_src
** Org-Roam ** Org-Roam
#+begin_src emacs-lisp #+begin_src emacs-lisp