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

   1 ;;; -*- lexical-binding: t -*-
   2
   3 (require 'pastels-on-dark-theme)
   4
   5 (setq default-frame-alist '((vertical-scroll-bars)
   6                             (background-mode . dark)
   7                             (alpha . 90)
   8                             (font . "monospace 11")))
   9
  10 (menu-bar-mode -1)
  11 (tool-bar-mode -1)
  12 (scroll-bar-mode -1)
  13
  14 (setq scroll-conservatively 1)
  15 (setq scroll-margin 1)
  16 (setq mouse-wheel-scroll-amount '(3))
  17 (setq mouse-wheel-progressive-speed nil)
  18
  19 (setq column-number-mode t)
  20 (setq line-number-mode t)
  21
  22 (show-paren-mode t)
  23
  24 (dolist (hook '(prog-mode-hook text-mode-hook))
  25   (add-hook hook (lambda ()
  26                    (setq show-trailing-whitespace t))))
  27
  28 (setq shift-select-mode nil)
  29 (delete-selection-mode t)
  30 (setq sentence-end-double-space nil)
  31
  32 (require 'uniquify)
  33 (setq uniquify-strip-common-suffix t)
  34 (setq uniquify-buffer-name-style 'post-forward)
  35
  36 (defalias 'yes-or-no-p 'y-or-n-p)
  37
  38 (setq find-file-visit-truename t)
  39
  40 (setq disabled-command-function nil)
  41
  42 (setq save-interprogram-paste-before-kill t)
  43
  44 (setq undo-limit 10000000)
  45 (setq undo-strong-limit undo-limit)