emacs

@@ -421,7 +421,7 @@
     (add-to-list ALIST (cons KEY PROP)))
   (alist-set "\\.pdf\\'" document-view 'org-file-apps)
   (alist-set "\\.djvu\\'" document-view 'org-file-apps)
-  ;; C-c C- s RET inserts block. See ":exports both" for results.
+  ;; C-c C-s RET inserts block. See ":exports both" for results.
   (org-babel-do-load-languages
    'org-babel-load-languages
    '((calc . t)
@@ -437,6 +437,8 @@
     "Does an ~org-refile~ and then a ~org-save-all-org-buffers~."
     (org-refile goto default-buffer rfloc msg) (org-save-all-org-buffers))
   (define-key org-mode-map (kbd "C-c C-w") 'my-org-refile)
+  ;; F8 opens GTD file
+  (global-set-key (kbd "<f8>") (lambda() (interactive)(find-file gtd-gtd)))
   )
 (use-package helm-org
   :ensure t
@@ -445,24 +447,10 @@
   (add-to-list 'helm-completing-read-handlers-alist '(org-capture . helm-org-completing-read-tags))
   (add-to-list 'helm-completing-read-handlers-alist '(org-set-tags . helm-org-completing-read-tags)))
 (use-package suomalainen-kalenteri
-  :ensure t)
+  :ensure t
+  :config
+  (set-face-attribute 'org-agenda-calendar-sexp nil
+                      :inherit 'org-level-2)
+  )
 ;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-
-
-
-
-(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.
- '(bbdb-mua-interactive-action '(query . create) nil nil "Customized with use-package bbdb")
- '(custom-safe-themes
-   '("4c7228157ba3a48c288ad8ef83c490b94cb29ef01236205e360c2c4db200bb18" default)))
-(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.
- )