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

   1 ;;; -*- lexical-binding: t -*-
   2
   3 (menu-bar-mode -1)
   4 (tool-bar-mode -1)
   5 (scroll-bar-mode -1)
   6
   7 (require 'pastels-on-dark-theme)
   8 (setq frame-background-mode 'dark)
   9
  10 (setq default-frame-alist '((vertical-scroll-bars)
  11                             (background-mode . dark)
  12                             (alpha . 95)
  13                             (font . "monospace 11")))
  14
  15 (require 'ansi-color)
  16 (setq ansi-color-names-vector
  17       '("#000000"
  18         "#fc391f"
  19         "#31e722"
  20         "#eaec23"
  21         "#4856f7"
  22         "#f935f8"
  23         "#14f0f0"
  24         "#e9ebeb"))
  25 (setq ansi-color-map (ansi-color-make-color-map))
  26
  27 (add-to-list 'term-file-aliases
  28                  '("screen.xterm-256color" . "screen-256color"))
  29
  30 (setq scroll-conservatively 1)
  31 (setq scroll-margin 1)
  32 (setq mouse-wheel-scroll-amount '(3))
  33 (setq mouse-wheel-progressive-speed nil)
  34
  35 (setq column-number-mode t)
  36 (setq line-number-mode t)
  37
  38 (show-paren-mode t)
  39
  40 (dolist (hook '(prog-mode-hook text-mode-hook))
  41   (add-hook hook (lambda ()
  42                    (setq show-trailing-whitespace t))))
  43
  44 (setq shift-select-mode nil)
  45 (delete-selection-mode t)
  46 (setq sentence-end-double-space nil)
  47
  48 (require 'uniquify)
  49 (setq uniquify-strip-common-suffix t)
  50 (setq uniquify-buffer-name-style 'post-forward)
  51
  52 (defalias 'yes-or-no-p 'y-or-n-p)
  53
  54 (setq find-file-visit-truename t)
  55
  56 (setq disabled-command-function nil)
  57
  58 (setq save-interprogram-paste-before-kill t)
  59
  60 (setq undo-limit 10000000)
  61 (setq undo-strong-limit undo-limit)