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

   1 ;;; -*- lexical-binding: t -*-
   2
   3 (require 'pastels-on-dark-theme)
   4
   5 (menu-bar-mode -1)
   6 (tool-bar-mode -1)
   7 (scroll-bar-mode -1)
   8
   9 (setq scroll-conservatively 1)
  10 (setq scroll-margin 1)
  11 (setq mouse-wheel-scroll-amount '(3))
  12 (setq mouse-wheel-progressive-speed nil)
  13
  14 (setq column-number-mode t)
  15 (setq line-number-mode t)
  16
  17 (show-paren-mode t)
  18
  19 (setq-default show-trailing-whitespace t)
  20
  21 (require 'uniquify)
  22 (setq uniquify-strip-common-suffix t)
  23 (setq uniquify-buffer-name-style 'post-forward)
  24
  25 (add-to-list 'delete-frame-functions #'my/kill-buffers-if-deleting-last-frame)
  26
  27 (setq frame-title-format '((:eval (funcall #'my/generate-frame-title))))
  28 (setq icon-title-format frame-title-format)
  29
  30 (add-to-list 'post-command-hook #'my/terminal-update-title)
  31
  32 (defalias 'yes-or-no-p 'y-or-n-p)