code.delx.au - dotemacs/blob - lisp/my-gui.el

   1 (require 'pastels-on-dark-theme)
   2
   3 (menu-bar-mode -1)
   4 (tool-bar-mode -1)
   5 (scroll-bar-mode -1)
   6
   7 (setq scroll-conservatively 1)
   8 (setq scroll-margin 1)
   9 (setq mouse-wheel-scroll-amount '(3))
  10 (setq mouse-wheel-progressive-speed nil)
  11
  12 (setq column-number-mode t)
  13 (setq line-number-mode t)
  14
  15 (show-paren-mode t)
  16
  17 (setq show-trailing-whitespace t)
  18
  19 (require 'uniquify)
  20 (setq uniquify-strip-common-suffix t)
  21 (setq uniquify-buffer-name-style 'post-forward)
  22
  23 (add-to-list 'delete-frame-functions #'kill-buffers-if-deleting-last-frame)
  24
  25 (setq frame-title-format
  26       '((:eval (if (buffer-file-name)
  27                    (concat
  28                     (file-name-nondirectory (buffer-file-name))
  29                     (if (buffer-modified-p)
  30                         " +")
  31                     " ("
  32                     (abbreviate-file-name (substring (file-name-directory (buffer-file-name)) 0 -1))
  33                     ") - Emacs"
  34                     )
  35                  (concat
  36                   "%b"
  37                   (if (buffer-modified-p)
  38                       " +")
  39                   " - Emacs")))))
  40 (setq icon-title-format frame-title-format)