init.el

@@ -404,8 +404,7 @@
       describe-bindings-outline t       ; TODO? help.el
       redisplay-skip-fontification-on-input t
       undo-limit 80000000
-      async-shell-command-buffer 'new-buffer
+      async-shell-command-buffer 'new-buffer)
-      byte-compile-warnings '(not docstrings))
 
 (put 'set-goal-column 'disabled nil)
 
@@ -520,6 +519,10 @@
   :config (progn
             (tab-bar-history-mode +1)))
 
+(use-package warnings
+  :config (cl-pushnew '(undo discard-info) warning-suppress-types
+                      :test #'equal))
+
 (use-package window
   :init (setq switch-to-buffer-obey-display-actions t
               switch-to-buffer-in-dedicated-window 'pop
@@ -748,6 +751,7 @@
              db/org-mark-current-default-task
              db/export-diary
              db/org-insert-checklist
+             db/org-copy-template
              db/org-copy-body-from-item-to-point
              db/org-find-links-to-current-item
              db/org-add-link-to-other-item
@@ -1451,15 +1455,7 @@ point to the beginning of buffer first."
 (use-package flycheck
   :ensure t
   :commands (global-flycheck-mode flycheck-mode)
-  :init (setq flycheck-emacs-lisp-load-path 'inherit
+  :init (setq flycheck-emacs-lisp-load-path 'inherit))
-              ;; Hack: inherit `byte-compile-warnings' setting in Emacs
-              ;; subprocess; this value is only set once upon starting Emacs, so
-              ;; make sure to manually update this setting when updating
-              ;; `byte-compile-warnings'.
-              flycheck-emacs-args `("-Q"
-                                    "--batch"
-                                    "--eval" ,(message "(setq byte-compile-warnings (quote %s))"
-                                                       byte-compile-warnings))))
 
 (use-package git-commit
   :commands (global-git-commit-mode)

site-lisp/db-org.el

@@ -487,10 +487,10 @@ Work task and home task are determined by the current values of
 (defun db/org-planned-tasks-in-range (start-date end-date &optional org-ql-match)
   "Return list of tasks planned between START-DATE and END-DATE.
 
-This function will search through the files returned by calling
+This function will search through the files returned by
-the function `org-agenda-files' for all tasks that are scheduled,
+`org-agenda-files' (the function) for all tasks that are
-have an active timestamp, or are deadline in the given time
+scheduled, have an active timestamp, or are deadline in the given
-range.
+time range.
 
 The result has the form (TOTAL-TIME . TASKS), where TASKS is a
 list of cons cells (ID . REMAINING-EFFORT).  REMAINING-EFFORT is
@@ -541,9 +541,7 @@ imposed on the respective time range."
     (cons total-time tasks)))
 
 (defun org-dblock-write:db/org-workload-report (params)
-  "Write workload report for all tasks.
+  "Write workload report based on tasks in `org-agenda-files'.
-
-Tasks are read from files in the variable `org-agenda-files'
 
 PARAMS is a property list of the following parameters:
 
@@ -633,9 +631,7 @@ everything understood by `org-read-date'."
 (org-dynamic-block-define "db/org-workload-report" #'db/org-insert-workload-report)
 
 (defun org-dblock-write:db/org-workload-overview-report (params)
-  "Write an overview workload report for all tasks.
+  "Write an overview workload report based on tasks in `org-agenda-files'.
-
-Tasks are read from files in the variable `org-agenda-files'.
 
 This overview report will list the amount of work planned for
 increasing intervals of time until a given end date is reached.
@@ -808,8 +804,7 @@ forces clocking in of the default task."
   ("b" (db/org-clock-in-break-task) "break")
   ("i" (lambda ()
          (interactive)
-         (org-clock-in '(4)))
+         (org-clock-in '(4))) "interactive")
-      "interactive")
   ("a" counsel-org-goto-all "goto")
   ("o" org-clock-out "clock out")
   ("l" db/org-clock-in-last-task "last")
@@ -1010,7 +1005,7 @@ Checklists are inserted before the first child, if existent, or
 at the end of the subtree.
 
 After inserting a checklist, add the property
-CHECKLIST_INSERTED_P with value t to item at point.  Checklists
+CHECKLIST_INSERTED_P with value `t' to item at point.  Checklists
 are not inserted if this property with this value is already
 present, to avoid double insertions of checklists.
 
@@ -1030,10 +1025,9 @@ Relevant backlinks are Org items and are determined as follows:
 
 - the backlink item must not be scheduled in the future;
 
-- the backlink item must be contained in a file in the variables
+- the backlink item must be contained in a file from
   `org-agenda-files' or `org-agenda-text-search-extra-files', but
-  not in an archive file (i.e., archives are excluded from the
+  not in an archive file (i.e., archives are excluded from the search)
-  search);
 
 - the backlink item must not have the CHECKLIST_NO_BACKLINK
   property set to nil (with inheritance not being considered,
@@ -1352,10 +1346,10 @@ not."
 When ARG is nil, this functions by default searches through the
 current buffer if that one is an Org buffer and is associated
 with a file, and `db/org-default-org-file' otherwise.  If the
-current buffer is associated with a file from the variable
+current buffer is associated with a file from `org-agenda-files',
-`org-agenda-files', though, the search is extended through all
+though, the search is extended through all agenda files (the
-agenda files (the rationale being that Org agenda files are
+rationale being that Org agenda files are always considered to be
-always considered to be one large data collection).
+one large data collection).
 
 When ARG is non-nil, search through all files in the variables
 `org-agenda-files', `org-agenda-text-search-extra-files', and the
@@ -1534,9 +1528,9 @@ If the optional ORG-QL-MATCH is given and is a valid `org-ql' query in
 sexp syntax, filter the list for all items matching this query.
 If ARCHIVES is given, also include archive files.
 
-The search is conducted over all files returned by calling the
+The search is conducted over all files returned by
-function `org-agenda-files', including archives, as well as all
+`org-agenda-files' including archives, as well as all files
-files referenced in `org-agenda-text-search-extra-files'."
+referenced in `org-agenda-text-search-extra-files'."
 
   (let ((extra-files org-agenda-text-search-extra-files)
         files)