                            (interactive)
                            (progn
                              (if (get-buffer "*Occur*")
-                               (kill-buffer "*Occur*"))
+				                       (kill-buffer "*Occur*"))
                              (delete-other-windows)
                              (my/find-emacs-init-file)
                              ;; Occurences of "C-=" or "s-", excluding this and next line ;-)

          ("C-= s i k"   . string-inflection-kebab-case)))

(use-package treemacs
  :defer 2
  :bind (
          ("C-= b t"   . treemacs))
  :custom

  (untabify (point-min) (point-max))

  ;; No trailing white space
  (delete-trailing-whitespace (point-min) (point-max))

  ;; No spaces/tabs before headings
  (query-replace-regexp
    "^[ ]+\\(#+.*\\)" "\\1"
    nil (point-min) (point-max))

  ;; Timestamps titles are H2
  (query-replace-regexp
    "^# 202" "## 202"
    nil (point-min) (point-max))

  ;; Headings are always followed by a newline
  (query-replace-regexp
    "\\(##+ .*\\)
\\([^
]+\\)" "\\1

\\2"
    nil (point-min) (point-max))

  ;; No consecutive newlines but just one
  (query-replace-regexp "^

+" "
" nil (point-min) (point-max))

  ;; Isolated **emphasis** on a single line after a newline should
  ;; really be without emphasis but with a colon inserted after:
  (query-replace-regexp "

\\*\\*\\(.*\\)\\*\\*$" "

\\1:
"
    nil (point-min) (point-max))

  ;; No empty list items
  (query-replace-regexp
    " *- *$" ""
    nil (point-min) (point-max))

  ;; Lists must start with an empty line:
  ;;  (query-replace-regexp "^\\( *-.*\\)
  ;;\\(- .*\\)" "\\1
  ;;
  ;;\\2" nil (point-min) (point-max))

  ;; And, to apply this regex to multiple files, you can mark the
  ;; files in Dired and type Q to do a query-replace-regexp on all the
