       (setq org-bullets-bullet-list '("#" "##" "###" "####")))
 
     ;; capture
+    (defun my-heading-of-new-tasks ()
+      "The heading for next reporting day (Tuesday)."
+      (concat "Week ending " (string-trim (shell-command-to-string "date -d 'next Tuesday' +%Y-%m-%d"))))
     (setq org-default-notes-file my-default-notes-file)
+    (add-hook 'org-capture-mode-hook 'evil-insert-state)
     (setq org-capture-templates
-          '(("t" "Todo" entry (file+headline org-default-notes-file "Tasks")
+          `(("t" "Todo" entry (file+olp org-default-notes-file ,(my-heading-of-new-tasks) "Tasks")
              "* TODO %?\n:PROPERTIES:\n:Created: %U\n:END:\n  %i\n  %a"
              :created t)))
 


(use-package writeroom-mode)

(use-package org
  :init
  (add-to-list 'auto-mode-alist `(,(concat org-directory "/.*'") . org-mode))
  :config
  (progn
    ;; fontify code in code blocks
    (setq org-src-fontify-natively t)

    ;; bullets


            (tags priority-down category-keep)
            (search category-keep)))
    (setq org-deadline-warning-days 14)
    (setq org-log-states-order-reversed nil)

    ;; specialized agenda for reporting

    ;; (add-to-list 'org-agenda-custom-commands
    ;;              '("W" "Weekly review"
    ;;                agenda ""
    ;;                ((org-agenda-span 8)
    ;;                 (org-agenda-start-day "-8d")
    ;;                 (org-agenda-start-on-weekday 2)
    ;;                 (org-agenda-start-with-log-mode t)
    ;;                 (org-agenda-skip-function
    ;;                  '(org-agenda-skip-entry-if 'nottodo 'done)))))
    ))

(use-package adoc-mode
  :init
