vj-std-essentials.el

(set-register ?t '(file . "~/tempfile")) ;Use this instead of *scratch*

(show-paren-mode t)
(recentf-mode t)
(global-set-key (kbd "C-x C-r") 'recentf-open-files)
(which-function-mode)
(auto-compression-mode t)

;; Change annoying yes/no RET questions to single keypress of y or n
(fset 'yes-or-no-p 'y-or-n-p)

(prefer-coding-system 'utf-8)

;; Also show filename and vps project in title bar
(setq frame-title-format
  '("" invocation-name "@" system-name " "  " %f [" vps-project-name "]"))

(setq visible-bell t) ;; no beeps!

(setq-default indent-tabs-mode nil)     ; Do not use tabs for indent
(setq compilation-ask-about-save nil)   ; Just save files before compile
(setq find-file-existing-other-name t)

(add-hook 'after-save-hook 'executable-make-buffer-file-executable-if-script-p)

(require 'uniquify)
(setq uniquify-buffer-name-style 'post-forward)

(setq
  recentf-exclude '("\\.tags$")
  recentf-max-saved-items 200)

;; ------------------------------------------------------------

(iswitchb-mode t)

;; Make it possible for comma to start subprocessing (ANDing)

(defun iswitchb-my-keys ()
  "Add my keybindings for iswitchb."
    (define-key iswitchb-mode-map "," 'iswitchb-exclude-nonmatching))

(add-hook 'iswitchb-define-mode-map-hook 'iswitchb-my-keys)


(defun iswitchb-exclude-nonmatching()
  "Make iswitchb work on only the currently matching names."
  (interactive)
  (setq iswitchb-buflist iswitchb-matches)
  (setq iswitchb-rescan t)
  (delete-minibuffer-contents))

;; ------------------------------------------------------------

;; Use M-n/M-p in minibuffer to complete history entries based on prefix
(mapcar
 (function
  (lambda (x)
    (define-key x (kbd "ESC p") 'previous-complete-history-element)
    (define-key x (kbd "ESC n") 'next-complete-history-element)))
 (list minibuffer-local-completion-map minibuffer-local-isearch-map
       minibuffer-local-map minibuffer-local-must-match-map
       minibuffer-local-ns-map))

(provide 'vj-std-essentials)