49 lines
1.3 KiB
EmacsLisp
49 lines
1.3 KiB
EmacsLisp
; -*- lexical-binding: t; -*-
|
|
|
|
;;; Code:
|
|
|
|
|
|
;; Auto refresh files changed on disk
|
|
(global-auto-revert-mode t)
|
|
|
|
;; Make it easer to do 'alt-x'
|
|
(global-set-key "\C-x\C-m" 'execute-extended-command)
|
|
(global-set-key "\C-c\C-m" 'execute-extended-command)
|
|
|
|
;; I keep mising Cx-Cf, so make it easier
|
|
(global-set-key "\C-x\f" 'find-file)
|
|
|
|
;; For UK/IRL don't use right Alt key in Emacs, so we
|
|
;; can still use hash symbol etc.
|
|
(setq ns-right-alternate-modifier (quote none))
|
|
|
|
(setq inhibit-startup-message t)
|
|
(setq initial-scratch-message nil)
|
|
|
|
;; Disable menu, tool and scroll bars
|
|
(menu-bar-mode -1)
|
|
(tool-bar-mode -1)
|
|
(scroll-bar-mode -1)
|
|
|
|
;; line numbers
|
|
(global-display-line-numbers-mode 1)
|
|
|
|
;; word wrap over lines
|
|
(global-visual-line-mode t)
|
|
|
|
;; Add small window fringes
|
|
(set-fringe-mode 10)
|
|
|
|
;; Management of basic paths and caches
|
|
(setq user-emacs-directory (expand-file-name "~/.cache/emacs/")
|
|
url-history-file (expand-file-name "url/history" user-emacs-directory))
|
|
|
|
(setq auto-save-file-name-transforms
|
|
`((".*" ,(concat user-emacs-directory "auto-save/") t)))
|
|
(setq backup-directory-alist '(("" . "~/.emacs.d/emacs-backup")))
|
|
|
|
(setq custom-file (concat user-emacs-directory "custom.el"))
|
|
(when (file-exists-p custom-file)
|
|
(load custom-file))
|
|
|
|
(provide 'jg-core)
|