chris/emacs
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Org agenda keybindings and other additions

Browse source
This commit is contained in:
Chris Cochrun 2021-04-08 09:06:42 -05:00
parent de83e622af
commit ceaf098ddd
2 changed files with 50 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
README.org
View file

@ -813,16 +813,16 @@ Part of this config includes some special capture templates for my work as a you
"/home/chris/org/todo.org" "/home/chris/org/todo.org"
"/home/chris/org/newsletter.org" "/home/chris/org/newsletter.org"
)) ))
(add-to-list '("/home/chris/org/inbox.org" ;; (add-to-list '("/home/chris/org/inbox.org"
"/home/chris/org/notes.org" ;; "/home/chris/org/notes.org"
"/home/chris/org/repetition.org" ;; "/home/chris/org/repetition.org"
"/home/chris/org/tasks.org" ;; "/home/chris/org/tasks.org"
"/home/chris/org/tfc_plans.org" ;; "/home/chris/org/tfc_plans.org"
"/home/chris/org/ministry_team.org" ;; "/home/chris/org/ministry_team.org"
"/home/chris/org/todo.org" ;; "/home/chris/org/todo.org"
"/home/chris/org/newsletter.org" ;; "/home/chris/org/newsletter.org"
"/home/chris/org/lesson_*.org") ;; "/home/chris/org/lesson_*.org")
(expand-file-name )) ;; (expand-file-name ))
(setq org-id-method 'ts) (setq org-id-method 'ts)
@ -866,7 +866,8 @@ Part of this config includes some special capture templates for my work as a you
"q" 'org-agenda-quit "q" 'org-agenda-quit
"r" 'org-agenda-redo "r" 'org-agenda-redo
"d" 'org-agenda-deadline "d" 'org-agenda-deadline
"s" 'org-agenda-schedule) "s" 'org-agenda-schedule
"t" 'org-agenda-todo)
('normal org-columns-map ('normal org-columns-map
"j" 'outline-next-heading "j" 'outline-next-heading
"h" 'outline-previous-heading "h" 'outline-previous-heading

54
init.el
View file

@ -197,6 +197,8 @@
"ss" '(consult-line :which-key "consult search") "ss" '(consult-line :which-key "consult search")
"ww" '(other-window :which-key "other window") "ww" '(other-window :which-key "other window")
"wd" '(delete-window :which-key "other window") "wd" '(delete-window :which-key "other window")
"wv" '(evil-window-vsplit :which-key "split window vertically")
"ws" '(evil-window-split :which-key "split window horizontally")
";" '(execute-extended-command :which-key "execute command") ";" '(execute-extended-command :which-key "execute command")
":" '(eval-expression :which-key "evaluate expression") ":" '(eval-expression :which-key "evaluate expression")
) )
@ -364,6 +366,25 @@ vertically."
(use-package fish-mode (use-package fish-mode
:mode ("\\.fish\\'" . fish-mode)) :mode ("\\.fish\\'" . fish-mode))
(use-package qml-mode
:mode ("\\.qml\\'" . qml-mode)
:config
(use-package company-qml
:after qml-mode
:config
(add-to-list 'company-backends 'company-qml)
(setq company-qml-extra-qmltypes-files '("/home/chris/.Felgo/Felgo/gcc_64/import/VPlayPlugins/vplayplugins.qmltypes"
"/home/chris/.Felgo/Felgo/gcc_64/import/VPlayApps/vplayapps.qmltypes"
"/home/chris/.Felgo/Felgo/gcc_64/import/VPlay/vplay.qmltypes"
"/home/chris/.Felgo/Felgo/gcc_64/import/Felgo/felgo.qmltypes"
"/home/chris/.Felgo/Felgo/gcc_64/qml"))
(setq company-idle-delay 0.1)))
(use-package qt-pro-mode
:after qml-mode)
(use-package dired (use-package dired
:ensure nil :ensure nil
:straight nil :straight nil
@ -372,7 +393,7 @@ vertically."
"Open the file-at-point in the appropriate program" "Open the file-at-point in the appropriate program"
(interactive) (interactive)
(let ((file (ignore-errors (dired-get-file-for-visit)))) (let ((file (ignore-errors (dired-get-file-for-visit))))
(browse-url (file-truename file)))) (browse-url-xdg-open (file-truename file))))
:general :general
(chris/leader-keys (chris/leader-keys
:states 'normal :states 'normal
@ -500,7 +521,18 @@ vertically."
"/home/chris/org/tfc_plans.org" "/home/chris/org/tfc_plans.org"
"/home/chris/org/ministry_team.org" "/home/chris/org/ministry_team.org"
"/home/chris/org/todo.org" "/home/chris/org/todo.org"
"/home/chris/org/newsletter.org")) "/home/chris/org/newsletter.org"
))
;; (add-to-list '("/home/chris/org/inbox.org"
;; "/home/chris/org/notes.org"
;; "/home/chris/org/repetition.org"
;; "/home/chris/org/tasks.org"
;; "/home/chris/org/tfc_plans.org"
;; "/home/chris/org/ministry_team.org"
;; "/home/chris/org/todo.org"
;; "/home/chris/org/newsletter.org"
;; "/home/chris/org/lesson_*.org")
;; (expand-file-name ))
(setq org-id-method 'ts) (setq org-id-method 'ts)
@ -542,7 +574,10 @@ vertically."
"c" 'org-capture) "c" 'org-capture)
('normal org-agenda-mode-map ('normal org-agenda-mode-map
"q" 'org-agenda-quit "q" 'org-agenda-quit
"r" 'org-agenda-redo) "r" 'org-agenda-redo
"d" 'org-agenda-deadline
"s" 'org-agenda-schedule
"t" 'org-agenda-todo)
('normal org-columns-map ('normal org-columns-map
"j" 'outline-next-heading "j" 'outline-next-heading
"h" 'outline-previous-heading "h" 'outline-previous-heading
@ -1242,16 +1277,3 @@ interfere with the default `bongo-playlist-buffer'."
(setq gc-cons-threshold 2000000) (setq gc-cons-threshold 2000000)
(setq garbage-collection-messages nil) (setq garbage-collection-messages nil)
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(org-agenda-files
'("~/org/lesson_17_gospel_of_paul_s_3rd_mission.org" "/home/chris/org/inbox.org" "/home/chris/org/notes.org" "/home/chris/org/repetition.org" "/home/chris/org/tasks.org" "/home/chris/org/tfc_plans.org" "/home/chris/org/ministry_team.org" "/home/chris/org/todo.org" "/home/chris/org/newsletter.org")))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
)