1. Fuco
  2. .emacs.d

Commits

Fuco  committed c1146ca

Move org-agenda keys setup into use-package for org-agenda

  • Participants
  • Parent commits 71e1ee0
  • Branches default

Comments (0)

Files changed (1)

File files/org-defs.el

View file
  • Ignore whitespace
          (prog1 (org-drill-presentation-prompt)
            (org-drill-hide-subheadings-if 'org-drill-entry-p)))))))
 
+(use-package org-agenda
+  :defer t
+  :config
+  (bind-keys :map org-agenda-mode-map
+             ("C-n" . org-agenda-next-item)
+             ("C-p" . org-agenda-previous-item)
+             ("P" . my-org-narrow-to-project)
+             ("U" . my-org-narrow-to-parent)
+             ("N" . my-org-narrow-to-subtree)
+             ("W" . my-org-widen)))
+
 (defface my-org-bold
   '((t (:weight bold :inherit font-lock-variable-name-face)))
   "The face used to highlight pair overlays.")
   '((t (:family "Consolas" :inherit font-lock-constant-face)))
   "The face used to highlight pair overlays.")
 
-
 (bind-keys :map org-mode-map
   ("TAB" . smart-tab)
   ("C-e" . my-end-of-code-or-line)
   ("C-x n N" . my-org-narrow-to-subtree)
   ("C-x n W" . my-org-widen))
 
-(bind-keys :map org-agenda-mode-map
-  ("C-n" . org-agenda-next-item)
-  ("C-p" . org-agenda-previous-item)
-  ("P" . my-org-narrow-to-project)
-  ("U" . my-org-narrow-to-parent)
-  ("N" . my-org-narrow-to-subtree)
-  ("W" . my-org-widen))
-
 (defun my-org-open-at-point (&optional arg)
   "Just like `org-open-at-point', but open link in this window."
   (interactive "P")