emacs-config/lisp/04-custom-init.el

;;; 04-custom-init --- Provide custom basic init for emacs

;;; Commentary:

;;; Code:

(defvar backup-dir (expand-file-name "~/.emacs.d/backup/") "Set the default location of file backups.")
;; (defvar autosave-dir (expand-file-name "~/.emacs.d/autosave/") "Set the default location of autosaves.")

(cond ((member "PragmataPro Liga" (font-family-list))
       (set-face-attribute 'default nil :font "PragmataPro Liga-16")))

(setq-default initial-scratch-message nil
              backup-directory-alist (list (cons ".*" backup-dir))
              ;; auto-save-list-file-prefix autosave-dir
              ;; auto-save-file-name-transforms `((".*" ,autosave-dir t))
              )

;; Turn off the menus, scrollbars, and toolbars
(menu-bar-mode 0)
(scroll-bar-mode 0)
(tool-bar-mode 0)
(horizontal-scroll-bar-mode 0)
;; Revert to file on disk if it changes
(global-auto-revert-mode t)
;; Highlight the current line
(when window-system (global-hl-line-mode t))
;; Global line numbering
(global-linum-mode 0)
;; Show the column number after the line number (i.e. 50:57)
(column-number-mode t)
;; C-c <left>|<right> to undo|redo window changes like adding buffers.
(winner-mode t)
;; Show matching paren
(show-paren-mode t)
;; Pretty Symbols
(when window-system (global-prettify-symbols-mode t))

;; Meta-b better defaults testStringHereToTestBelow_Setting
(global-subword-mode 1)

;; Indent w/spaces only
(setq indent-tabs-mode nil
      tab-width 4)
(setq-default indent-tabs-mode nil
              tab-width 4)
;; This will expand 4 8 12 16 ... 200
(setq tab-stop-list (number-sequence 4 200 4))

;; Prevent stale elisp bytecode
(setq load-prefer-newer t)
;; Add newline on save
(setq require-final-newline t)

;; C-c to copy in Linux can be pasted in emacs
(setq select-enable-clipboard t)
;; after mouse selection can be pasted in emacs
(setq select-enable-primary t)
;; Paste at current point, not mouse location when "middle-clicking"
(setq mouse-yank-at-point t)

(add-hook 'prog-mode-hook (lambda() (add-hook 'before-save-hook #'delete-trailing-whitespace t t)))

;; Set auth source
;; (setq auth-sources '("~/.authinfo.gpg"))

;; Set window location/size
(if (eq system-type 'darwin)
    (progn
      (set-frame-position (selected-frame) 811 816)
      (set-frame-height (selected-frame) 55)
      (set-frame-width (selected-frame) 220))
  (message "Don't configure location for other OSes"))

(defalias 'yes-or-no-p 'y-or-n-p)

(defvar browse-url-generic-program)
(defvar engine/browser-function)
;; (setq ; browse-url-generic-program "/Applications/Google\ Chrome.app/Contents/MacOS/Google\ Chrome"
;; browse-url-browser-function 'browse-url-generic)

(setq browse-url-browser-function 'browse-url-generic
      engine/browser-function 'browse-url-generic
      ;; Chrome because Firefox will complain that a copy is already open.
      browse-url-generic-program "/Applications/Google Chrome.app/Contents/MacOS/Google Chrome")

(defun display-startup-echo-area-message ()
  "Display startup echo area message."
  (message "Initialized in %s" (emacs-init-time)))

(provide '04-custom-init)
;;; 04-custom-init.el ends here