akko/doom-config
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

changes

Browse Source
This commit is contained in:
Akko
2023-11-15 10:49:16 +01:00
parent b448fa15b7
commit 916e376500
6 changed files with 455 additions and 173 deletions
Download Patch File Download Diff File Expand all files Collapse all files

274
config.el
View File

@@ -1,7 +1,3 @@
;;; .doom.d/config.el -*- lexical-binding: t; -*-
;; Place your private configuration here
(setq backup-directory-alist '(("~/.emacs.d/backups"))
delete-old-versions nil
version-control t
@@ -12,32 +8,39 @@
global-auto-revert-mode t
global-auto-revert-non-file-buffers t
auto-revert-verbose nil
custom-safe-themes t)
custom-safe-themes t
mouse-autoselect-window t
focus-follows-mouse t)
(add-hook 'term-mode-hook 'toggle-truncate-lines)
(fset 'yes-or-no-p 'y-or-n-p)
(defadvice projectile-project-root (around ignore-remote first activate)
(unless (file-remote-p default-directory) ad-do-it))
(if (string= (system-name) "illya")
(set-frame-font "Mononoki 12" nil t)
(set-frame-font "Mononoki 22" nil t))
(setq web-mode-script-padding 0
js-indent-level 2
js2-strict-missing-semi-warning nil)
(setq doom-theme 'doom-ayu-mirage)
(setq avy-all-windows nil)
(setq avy-timeout-seconds 0.2)
(setq avy-keys '(?a ?s ?d ?f ?k ?l ?; ?g ?h
?q ?w ?e ?r ?t ?y ?i ?p
?A ?S ?D ?F ?J ?K ?L))
(define-key evil-normal-state-map (kbd "C-.") #'avy-goto-char-timer)
(setq aw-keys '(?a ?s ?d ?f ?k ?l ?; ?g ?h
?q ?w ?e ?r ?t ?y ?i ?p
?A ?S ?D ?F ?J ?K ?L))
(display-time-mode 1)
(define-key evil-normal-state-map (kbd ";") 'evil-ex)
(define-key evil-normal-state-map (kbd "g a") 'paste-above)
(define-key evil-normal-state-map (kbd "g p") 'paste-below)
(global-set-key (kbd "C-x C-f") #'counsel-find-file)
(map! :leader
"." #'counsel-find-file)
; TODO fix
(map! :after counsel "C-s" #'swiper)
(after! evil-escape
(setq evil-escape-key-sequence "jj")
(setq-default evil-escape-delay 0.2))
(which-key-mode 1)
(setq which-key-idle-delay 0.25)
(defun doom/find-file-in-private-config () (interactive) (counsel-find-file doom-user-dir))
(setq ivy-height 10
ivy-count-format "(%d/%d) "
@@ -49,93 +52,99 @@
(counsel-describe-function . "")
(counsel-describe-variable . "")
(man . "")
(woman . "")))
(woman . ""))
ivy-read-action-function #'ivy-hydra-read-action)
(defun my-web-mode-hook ()
(setq web-mode-markup-indent-offset 2)
(setq web-mode-code-indent-offset 2)
(setq web-mode-css-indent-offset 2))
(add-hook 'web-mode-hook 'my-web-mode-hook)
(setq yas-triggers-in-field t)
(require 'key-chord)
(key-chord-mode t)
(key-chord-define evil-insert-state-map "jj" 'evil-normal-state)
(setq avy-all-windows nil
avy-timeout-seconds 0.2
avy-keys '(?a ?s ?d ?f ?k ?l ?; ?g ?h
?q ?w ?e ?r ?t ?y ?i ?p
?A ?S ?D ?F ?J ?K ?L))
(define-key evil-normal-state-map (kbd "C-.") #'avy-goto-char-timer)
(setq aw-keys '(?a ?s ?d ?f ?k ?l ?; ?g ?h
?q ?w ?e ?r ?t ?y ?i ?p
?A ?S ?D ?F ?J ?K ?L))
(if (string= (system-name) "illya")
(set-frame-font "Mononoki 12" nil t)
(set-frame-font "Mononoki 22" nil t))
(defadvice projectile-project-root (around ignore-remote first activate)
(unless (file-remote-p default-directory) ad-do-it))
(global-set-key (kbd "C-s") #'swiper)
(setq web-mode-script-padding 0
js-indent-level 2
js2-strict-missing-semi-warning nil
web-mode-markup-indent-offset 2
web-mode-code-indent-offset 2
web-mode-css-indent-offset 2)
(which-key-mode 1)
(setq which-key-idle-delay 0.25)
(setq python-shell-interpreter "ipython"
python-shell-interpreter-args "-i --simple-prompt")
(setq python-shell-completion-native-disabled-interpreters '("ipython"))
(setq org-startup-folded t)
(setq org-roam-directory (file-truename "/mnt/tenma/srv/boymind"))
; this seems to be broken right now
;(use-package! org-roam
; :config
; (setq org-roam-database-connector 'sqlite3))
(org-roam-db-autosync-mode)
(org-babel-do-load-languages
'org-babel-load-languages
'((ledger . t)
))
(setq akko/org-agenda-path (car (org-roam-id-find "7f9b4c89-d527-43be-8f6b-47658d87cc87"))
akko/org-tickler-path (car (org-roam-id-find "efe09517-236c-4665-af62-abfd5951a172"))
akko/org-projects-path (car (org-roam-id-find "36cd8b7e-8853-4986-8b1d-a186aa75a204"))
akko/org-inbox-path (car (org-roam-id-find "251c9862-a97c-4652-b9ee-6fcfc953cf5c"))
akko/org-someday-path (car (org-roam-id-find "22caafc8-f319-4d8a-ae64-534b1568e02e")))
(setq org-refile-targets '((akko/org-projects-path :maxlevel . 3)
(akko/org-someday-path :level . 1)
(akko/org-tickler-path :maxlevel . 2)))
(setq org-refile-use-outline-path 'title)
(setq org-agenda-files (list akko/org-agenda-path
akko/org-tickler-path
akko/org-projects-path))
(setq org-todo-keywords '((sequence "TODO(t)" "WAITING(w)" "|" "DONE(d)" "CANCELLED(c)")))
(setq org-agenda-custom-commands
'(("p" "Projects" alltodo ""
((org-agenda-overriding-header "Projects")
(org-agenda-skip-function #'akko/org-agenda-skip-all-siblings-but-first)
(org-agenda-files (list akko/org-projects-path))
(org-agenda-prefix-format '((todo . " %i %b")))))))
(defun akko/org-agenda-skip-all-siblings-but-first ()
"Skip all but the first non-done entry."
(let (should-skip-entry)
(unless (org-current-is-todo)
(setq should-skip-entry t))
(save-excursion
(while (and (not should-skip-entry) (org-goto-sibling t))
(when (org-current-is-todo)
(setq should-skip-entry t))))
(when should-skip-entry
(or (outline-next-heading)
(goto-char (point-max))))))
(defun org-current-is-todo ()
(string= "TODO" (org-get-todo-state)))
(add-hook 'term-mode-hook 'toggle-truncate-lines)
(add-to-list 'auto-mode-alist '("\\.tsx\\'" . typescript-mode))
(add-to-list 'auto-mode-alist '("\\.tsx\\'" . typescript-tsx-mode))
(setq treemacs--width-is-locked nil)
(setq doom-theme 'doom-ayu-mirage)
(display-time-mode 1)
(global-set-key (kbd "C-x C-f") #'counsel-find-file)
(map! :leader
"." #'counsel-find-file)
(after! evil-escape
(setq evil-escape-key-sequence "jj")
(setq-default evil-escape-delay 0.2))
(setq ivy-read-action-function #'ivy-hydra-read-action)
(defun my:is-end-of-line ()
"Compare point with end of line."
(let* ((pos (current-column))
(end-pos (save-excursion
(evil-end-of-line)
(current-column))))
(eq pos end-pos)))
(defun my:compare-with-end-of-word ()
"Compare point with end of word."
(let* ((pos (current-column))
(end-pos (save-excursion
(evil-backward-word-begin)
(evil-forward-word-end)
(current-column))))
(- pos end-pos)))
(defun my:point-is-space ()
"Check if point is whitespace."
(char-equal ?\s (char-after)))
(defun my:insert-after (func)
"Run FUNC after the end of word, ignoring whitespace."
(interactive)
(let ((relative-loc (my:compare-with-end-of-word)))
(cond ((my:is-end-of-line)
(end-of-line)
(call-interactively func))
((eq 0 relative-loc)
(evil-forward-char)
(call-interactively func))
((and (> 0 relative-loc) (not (my:point-is-space)))
(evil-forward-word-end)
(if (my:is-end-of-line)
(end-of-line)
(evil-forward-char))
(call-interactively func))
(t
(call-interactively func)))))
(setq mouse-autoselect-window t
focus-follows-mouse t)
(add-to-list 'auto-mode-alist '("\\.tsx\\'" . typescript-mode))
(setq lsp-enable-links nil)
(require 'ox-publish)
(defun blog/get-util (x)
@@ -252,76 +261,3 @@
(org-mode)
(org-time-stamp '(16))
(buffer-substring (point-min) (point-max))))
(add-to-list 'auto-mode-alist '("\\.tsx\\'" . typescript-tsx-mode))
(setq auto-mode-alist
(append '(("\\.tsx\\'" . typescript-tsx-mode))
auto-mode-alist))
(setq python-shell-interpreter "ipython"
python-shell-interpreter-args "-i --simple-prompt")
(setq python-shell-completion-native-disabled-interpreters '("ipython"))
(setq org-roam-directory (file-truename "/mnt/tenma/srv/boymind"))
(org-roam-db-autosync-mode)
(org-babel-do-load-languages
'org-babel-load-languages
'((ledger . t)
))
(require 'elcord)
(elcord-mode)
(use-package! org-roam
:config
(setq org-roam-database-connector 'sqlite3))
(setq akko/org-agenda-path (car (org-roam-id-find "7f9b4c89-d527-43be-8f6b-47658d87cc87"))
akko/org-tickler-path (car (org-roam-id-find "efe09517-236c-4665-af62-abfd5951a172"))
akko/org-projects-path (car (org-roam-id-find "36cd8b7e-8853-4986-8b1d-a186aa75a204"))
akko/org-inbox-path (car (org-roam-id-find "251c9862-a97c-4652-b9ee-6fcfc953cf5c"))
akko/org-someday-path (car (org-roam-id-find "22caafc8-f319-4d8a-ae64-534b1568e02e")))
(setq org-agenda-files (list akko/org-agenda-path
akko/org-tickler-path
akko/org-projects-path
akko/org-inbox-path
akko/org-someday-path))
(setq org-roam-capture-templates '(("d" "default" plain "%?"
:target (file+head "%<%Y%m%d%H%M%S>-${slug}.org"
"#+title: ${title}\n")
:unnarrowed t)
("i" "inbox" plain "* %?"
:target (node "inbox")
:unnarrowed t)))
(setq org-refile-targets
(list akko/org-projects-path akko/org-someday-path akko/org-tickler-path))
(setq org-todo-keywords '((sequence "TODO(t)" "WAITING(w)" "|" "DONE(d)" "CANCELLED(c)")))
(setq org-agenda-custom-commands
'(("p" "Projects" alltodo ""
((org-agenda-overriding-header "Projects")
(org-agenda-skip-function #'akko/org-agenda-skip-all-siblings-but-first)
(org-agenda-files (list akko/org-projects-path))
(org-agenda-prefix-format '((todo . " %i %b")))))))
(defun akko/org-agenda-skip-all-siblings-but-first ()
"Skip all but the first non-done entry."
(let (should-skip-entry)
(unless (org-current-is-todo)
(setq should-skip-entry t))
(save-excursion
(while (and (not should-skip-entry) (org-goto-sibling t))
(when (org-current-is-todo)
(setq should-skip-entry t))))
(when should-skip-entry
(or (outline-next-heading)
(goto-char (point-max))))))
(defun org-current-is-todo ()
(string= "TODO" (org-get-todo-state)))