emacs/my-generic-stuff.el

   1 ;; inhibit splash screen
   2 (setq inhibit-splash-screen t)
   3
   4 ;; prevent backup file creation
   5 (setq make-backup-files nil)
   6
   7 (transient-mark-mode t)
   8
   9 ;; disable startup message
  10 (setq inhibit-startup-message t)
  11
  12 ;; Show column number at bottom of screen
  13 (column-number-mode 1)
  14
  15 ;; alias y to yes and n to no
  16 (defalias 'yes-or-no-p 'y-or-n-p)
  17
  18 ;; Pgup/dn will return exactly to the starting point.
  19 (setq scroll-preserve-screen-position 1)
  20
  21 ;; format the title-bar to always include the buffer name
  22 (setq frame-title-format "emacs - %b")
  23
  24 ;; scroll just one line when hitting the bottom of the window
  25 (setq scroll-step 1)
  26 (setq scroll-conservatively 1)
  27
  28 ;; scroll bar
  29 (setq toggle-scroll-bar t)
  30
  31 ;; iswitchb
  32 (setq iswitchb-mode t)
  33
  34 (setq cursor-type 'bar)
  35
  36 ;; how long to wait?
  37 (setq show-paren-delay 0)
  38 ;; turn paren-mode on
  39
  40 ;; alternatives are 'parenthesis' and 'mixed'
  41 ;(setq show-paren-style 'expression)
  42
  43 ;; font lock
  44 (global-font-lock-mode t)
  45
  46 ;; which-function mode
  47 (setq-default indent-tabs-mode nil)
  48 (add-hook 'emacs-lisp-mode-hook
  49           (lambda () (which-function-mode t)))
  50
  51 ;; iswitch
  52 (iswitchb-mode 1)
  53
  54 ;; smooth scroll
  55 (setq scroll-conservatively 1)
  56 (put 'upcase-region 'disabled nil)
  57 (put 'downcase-region 'disabled nil)
  58
  59 ;; cut and paste with the rest of ecosystem in X
  60 (setq x-select-enable-clipboard t)
  61
  62 ;; remove toolbar
  63 (if (> emacs-major-version 20)
  64     (tool-bar-mode -1))
  65
  66 ;; completions enhancements
  67 (icomplete-mode t)
  68
  69 ;; Interactively Do Things mode
  70 (require 'ido)
  71 (ido-mode t)
  72 (setq ido-enable-flex-matching t)
  73 (setq ido-enable-last-directory-history nil)
  74
  75 ;; browse kill ring
  76 (when (require 'browse-kill-ring nil 'noerror)
  77   (browse-kill-ring-default-keybindings))
  78
  79 ;;; displays "\" at the end of lines that wrap
  80 (setq longlines-show-hard-newlines t)
  81
  82 ;; cursor
  83 (setq-default cursor-type '(bar . 2))
  84 (set-cursor-color "#ff0000")