Reuse windows to display buffers by default

init.el

@@ -526,7 +526,8 @@
 (use-package window
   :init (setq switch-to-buffer-obey-display-actions t
               switch-to-buffer-in-dedicated-window 'pop
-              recenter-positions '(top middle bottom))
+              recenter-positions '(top middle bottom)
+              display-buffer-base-action '(display-buffer-reuse-window))
   :config (progn
             (add-to-list 'display-buffer-alist
                          '("^\\*Async Shell Command*" display-buffer-no-window))

site-lisp/db-org.el

@@ -405,6 +405,9 @@ is clocked in."
   (unless (derived-mode-p 'org-mode)
     (user-error "Not in Org mode buffer, aborting"))
 
+  ;; XXX: This does not take into account the current setting of
+  ;; CLOCK_MODELINE_TOTAL.
+
   (let ((at-current-clock-p (and (markerp org-clock-hd-marker)
                                  (save-mark-and-excursion ; from `org-clock-in'
                                    (org-back-to-heading t)