emacs/org/config-org-keyboard.el

42 lines
1.6 KiB
EmacsLisp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Setup global keys
(global-set-key (kbd "C-c l") 'org-store-link)
(global-set-key (kbd "C-c a") 'org-agenda)
(global-set-key (kbd "C-c c") 'org-capture)
(global-set-key (kbd "C-c z") 'org-attach)
(global-set-key (kbd "C-c m x") 'org-cut-subtree)
(global-set-key (kbd "C-c m r") 'org-archive-subtree)
(global-set-key (kbd "C-c m f") 'org-refile)
(global-set-key (kbd "C-c m s") 'org-agenda-schedule)
(global-set-key (kbd "C-c m d") 'org-agenda-deadline)
(global-set-key (kbd "C-c d v")
(lambda () (interactive) (dired "~/org/Document_Archive"))
)
(global-set-key (kbd "C-c d n")
(lambda () (interactive) (find-file "~/org/_index.org"))
)
(when (not kmn/is-dayjob)
(global-set-key (kbd "C-c d t")
(lambda () (interactive) (find-file "~/org/orgzly/_todo.org"))
)
(global-set-key (kbd "C-c d s")
(lambda () (interactive) (find-file "~/org/orgzly/_slipbox.org"))
)
(global-set-key (kbd "C-c d h")
(lambda () (interactive) (find-file "~/org/health/_health.org"))
)
(global-set-key (kbd "C-c d p")
(lambda () (interactive) (find-file "~/org/photography/_photography.org"))
)
(global-set-key (kbd "C-c d r") 'kmn/workspace-org-culinary)
)
(when kmn/is-dayjob
(global-set-key (kbd "C-c d t")
(lambda () (interactive) (find-file "~/org/_todo.org"))
)
(global-set-key (kbd "C-c d s")
(lambda () (interactive) (find-file "~/org/_slipbox.org"))
)
)