40 lines
1.2 KiB
EmacsLisp
40 lines
1.2 KiB
EmacsLisp
|
;; Persist command history
|
||
|
(savehist-mode 1)
|
||
|
|
||
|
;; Disable the splash screen (to enable it agin, replace the t with 0).
|
||
|
(setq inhibit-splash-screen t)
|
||
|
|
||
|
;; Disable the menu.
|
||
|
(tool-bar-mode -1)
|
||
|
;; Enable transient mark mode.
|
||
|
(transient-mark-mode 1)
|
||
|
|
||
|
;; Highlight paired parentheses when cursor is over one.
|
||
|
(show-paren-mode 1)
|
||
|
|
||
|
;;;; TAGS configuration.
|
||
|
;; Goto tag with M-.
|
||
|
(global-set-key "\M-." 'etags-select-find-tag)
|
||
|
;; Automatically load TAGS file (if exists) when opening emacs.
|
||
|
(let ((my-tags-file (locate-dominating-file default-directory "TAGS")))
|
||
|
(when my-tags-file
|
||
|
(message "Loading tags file: %s" my-tags-file)
|
||
|
(visit-tags-table my-tags-file)))
|
||
|
|
||
|
;;(setq split-height-threshold nil)
|
||
|
;;(setq split-width-threshold 0)
|
||
|
(global-set-key (kbd "S-C-h") 'shrink-window-horizontally)
|
||
|
(global-set-key (kbd "S-C-l") 'enlarge-window-horizontally)
|
||
|
(global-set-key (kbd "S-C-j") 'shrink-window)
|
||
|
(global-set-key (kbd "S-C-k") 'enlarge-window)
|
||
|
|
||
|
(setq-default display-line-numbers-type 'absolute
|
||
|
display-line-numbers-current-absolute t
|
||
|
display-line-numbers-width 4
|
||
|
display-line-numbers-widen t)
|
||
|
|
||
|
(add-hook 'text-mode-hook #'display-line-numbers-mode)
|
||
|
(add-hook 'prog-mode-hook #'display-line-numbers-mode)
|
||
|
|
||
|
(provide 'jenga-emacs)
|