   ;; TODO: Don't automatically scroll down on new message.
   ;; TODO: Comment color non-messages (people joining/quiting).
   ;; TODO: Urgency hint and highlight on nick mentions.
+  ;; TODO: Place miscellaneous functions like this as a separate library file
+  ;; that use-package loads as a library when needed.
+  ;; (defun x-urgency-hint (frame arg &optional source)
+  ;;   "Enable or disables urgency hint for the frame FRAME.
+  ;; Set ARG to non-nil to enable urgency hint, nil to disable."
+  ;;   (let* ((wm-hints (append (x-window-property
+  ;;                             "WM_HINTS" frame "WM_HINTS" source nil t) nil))
+  ;;          (flags (car wm-hints)))
+  ;;     (setcar wm-hints (if arg
+  ;;                          (logior flags #x100)
+  ;;                        (logand flags (lognot #x100))))
+  ;;     (x-change-window-property "WM_HINTS" wm-hints frame "WM_HINTS" 32 t)))
   )
 
 (use-package ibuffer

       (top-or-bottom . bottom)
       (top-or-bottom-pos . 0)))))

(use-package fringe
  :demand t :config (fringe-mode '(0 . nil)))


(dolist (path '("~/ui/emacs/.emacs.d/my-custom-keybindings" "~/.emacs.d/lisp"))
  (add-to-list 'load-path path))

;; Packages
;; ________
