-;;; ui.el -- User Interface and Theme Configuration.
+;;; ui.el -- User Interface and Theme Configuration.  -*- lexical-binding: t; -*-
 ;;
 ;;; Commentary:
 ;;

                      (if (listp dired-directory) (car dired-directory) dired-directory)))))
    (concat "Emacs: " (or file (buffer-name)))))

(defun pjones:configure-new-frame (&optional frame)
  "Hook to configure new frame FRAME."
  (dolist (mode '(menu-bar-mode tool-bar-mode scroll-bar-mode))
    (if (and (fboundp mode) (symbol-value mode))
        (funcall mode -1)))
  (blink-cursor-mode)
  (require 'fringe)
  (fringe-mode 10))

(add-to-list 'default-frame-alist '(cursor-type  . bar))
(setq frame-title-format '(:eval (pjones:frame-title-file-name)))

 '(x-mouse-click-focus-ignore-position nil)
 '(x-underline-at-descent-line t))

;; Default variables that become buffer/frame local.
(setq-default
 cursor-in-non-selected-windows 'hollow ; Self-explanatory
