   (require 'fringe)
   (fringe-mode 10))
 
+(setq default-frame-alist '((cursor-type  . bar))
+      frame-title-format '(:eval (pjones:frame-title-file-name)))
+
 (add-hook 'after-init-hook 'pjones:configure-new-frame)
 (add-hook 'after-make-frame-functions 'pjones:configure-new-frame)
 

      custom-file "~/.emacs.d/pjones/lisp/custom.el") ; To keep Emacs happy

;; Frame setup
(setq default-frame-alist
      '((cursor-type  . bar)
        (cursor-color . "yellow")))

(defun pjones:configure-new-frame (&optional frame)
  "Hook to configure a new frame."

      disabled-command-function nil      ; Disable novice user protection
      truncate-partial-width-windows nil ; When windows don't fill the frame
      mark-even-if-inactive t            ; Use the mark without a region
      next-line-add-newlines t)          ; Create new lines by moving down

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