   "Determine if a string is empty.  `nil' is treated as empty
 string."
   (or (null str)
-      (and (stringp str)
-           (= 0 (length str)))))
+    (and (stringp str)
+      (= 0 (length str)))))
 
 (defun ~alist-get (alist key)
   "Return just the value associated with the key in an alist."

(defun shorten-directory (dir max-length)
  "Show up to `max-length' characters of a directory name `dir'."
  (let ((path (reverse (split-string (abbreviate-file-name dir) "/")))
        (output ""))
    (when (and path (equal "" (car path)))
      (setq path (cdr path)))
    (while (and path (< (length output) (- max-length 4)))

  (save-restriction
    (narrow-to-region φbegin φend)
    (xah-replace-regexp-pairs-region
      (point-min)
      (point-max)
      '(["  +" " "]))
    (xah-replace-pairs-region
      (point-min)
      (point-max)
      '(
         ["\n" ""]
         [" /* " "/*"]
         [" */ " "*/"]
         [" {" "{"]
         ["{ " "{"]
         ["; " ";"]
         [": " ":"]
         [";}" "}"]
         ["}" "}\n"]
         ))))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
