config/doom: update some basic bindings

This commit is contained in:
xeruf 2022-09-16 14:33:17 +02:00
parent 545c091ae0
commit 89d04ac4d6
2 changed files with 11 additions and 3 deletions

View File

@ -109,6 +109,7 @@ Version 2019-11-04 2021-02-16"
:leader :leader
"u" 'evil-prev-buffer "u" 'evil-prev-buffer
"i" 'evil-next-buffer "i" 'evil-next-buffer
"q" 'doom/save-and-kill-buffer
"bq" 'doom/save-and-kill-buffer "bq" 'doom/save-and-kill-buffer
"#" 'xah/open-in-external-app "#" 'xah/open-in-external-app
"-" 'evil-quick-diff "-" 'evil-quick-diff
@ -121,7 +122,7 @@ Version 2019-11-04 2021-02-16"
"SN" '+snippets/new "SN" '+snippets/new
"Sm" 'smerge-mode "Sm" 'smerge-mode
"m;" 'comment-line "m;" 'comment-line
"Q" 'save-buffers-kill-terminal "Q" 'save-buffers-kill-terminal ; or evil-quit-all?
:desc "Dragon current buffer" "d" 'xf/dragon :desc "Dragon current buffer" "d" 'xf/dragon
:desc "Update DB & Quit" "WU" (lambda () (interactive) (xf/org-roam-update) (save-buffers-kill-terminal)) :desc "Update DB & Quit" "WU" (lambda () (interactive) (xf/org-roam-update) (save-buffers-kill-terminal))
:map ctl-x-map :map ctl-x-map
@ -168,6 +169,7 @@ Version 2019-11-04 2021-02-16"
(add-to-list 'auto-mode-alist '("\\.twee\\'" . twee-chapbook-mode)) (add-to-list 'auto-mode-alist '("\\.twee\\'" . twee-chapbook-mode))
(add-hook 'twee-chapbook-mode-hook 'twee-mode) (add-hook 'twee-chapbook-mode-hook 'twee-mode)
(add-to-list 'auto-mode-alist `("\\.scss.erb\\'" . scss-mode))
(add-to-list 'auto-mode-alist `("\\.erb\\'" . html-mode)) (add-to-list 'auto-mode-alist `("\\.erb\\'" . html-mode))
(whitespace-mode 0) (whitespace-mode 0)
@ -285,6 +287,7 @@ Version 2019-11-04 2021-02-16"
(map! :map org-mode-map (map! :map org-mode-map
:leader :leader
"\\" 'org-ctrl-c-ctrl-c "\\" 'org-ctrl-c-ctrl-c
:desc "Agenda" "oA" (lambda () (interactive) (org-agenda nil "d"))
:localleader :localleader
"C" 'org-clock-in "C" 'org-clock-in
"v" 'org-insert-heading "v" 'org-insert-heading
@ -299,6 +302,9 @@ Version 2019-11-04 2021-02-16"
"ra" 'org-change-tag-in-region "ra" 'org-change-tag-in-region
"lk" 'counsel-org-link "lk" 'counsel-org-link
"gR" 'org-mode-restart "gR" 'org-mode-restart
:desc "Low Priority" "pc" (lambda () (interactive) (org-priority "C"))
:desc "Medium Priority" "pb" (lambda () (interactive) (org-priority "B"))
:desc "High Priority" "pa" (lambda () (interactive) (org-priority "A"))
:desc "Set ID property" "lI" (lambda () (interactive) (org-set-property "ID" :desc "Set ID property" "lI" (lambda () (interactive) (org-set-property "ID"
(let ((heading (org-get-heading t t t t))) (let ((heading (org-get-heading t t t t)))
(if heading (org-read-property-value "ID" nil (downcase (s-replace-regexp "[^[:alnum:][:digit:]]\+" "-" heading))) (file-name-sans-extension (file-name-nondirectory buffer-file-name)))))) (if heading (org-read-property-value "ID" nil (downcase (s-replace-regexp "[^[:alnum:][:digit:]]\+" "-" heading))) (file-name-sans-extension (file-name-nondirectory buffer-file-name))))))
@ -321,6 +327,8 @@ Version 2019-11-04 2021-02-16"
org-priority-start-cycle-with-default nil) org-priority-start-cycle-with-default nil)
(setq org-priority-faces '((65 . error) (66 . "DarkGoldenRod") (67 . warning) (68 . "bisque") (69 . "grey"))) (setq org-priority-faces '((65 . error) (66 . "DarkGoldenRod") (67 . warning) (68 . "bisque") (69 . "grey")))
(push "PERM(e)" (cdr (car org-todo-keywords)))
;; Org startup - https://orgmode.org/manual/In_002dbuffer-Settings.html ;; Org startup - https://orgmode.org/manual/In_002dbuffer-Settings.html
(setq org-startup-folded 'show2levels (setq org-startup-folded 'show2levels
org-display-remote-inline-images 'cache org-display-remote-inline-images 'cache

View File

@ -17,7 +17,7 @@
(if (file-equal-p command-line-default-directory "~") (if (file-equal-p command-line-default-directory "~")
(setq default-directory org-directory)) (setq default-directory org-directory))
(setq org-agenda-files (append (setq org-agenda-files (append
(directory-files-recursively (expand-file-name "project/" org-directory) "\\`[^.]*\\'" 't) (directory-files-recursively (expand-file-name "project/" org-directory) ".org\\'")
(list (expand-file-name "inbox/")) (list (expand-file-name "inbox/"))
)) ))
)) ))