113 lines
3.4 KiB
EmacsLisp
113 lines
3.4 KiB
EmacsLisp
;; Persist command history
|
||
(savehist-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)))
|
||
|
||
;; Resize windows
|
||
(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)
|
||
|
||
(use-package yasnippet
|
||
:config (yas-global-mode 1))
|
||
|
||
(use-package which-key
|
||
:diminish
|
||
:config
|
||
(which-key-mode)
|
||
(which-key-setup-side-window-bottom)
|
||
(setq which-key-idle-delay 0.1))
|
||
|
||
(use-package diminish
|
||
:defer 5
|
||
:config
|
||
(diminish 'org-indent-mode))
|
||
|
||
;; Note that ‘uniquify’ is builtin.
|
||
(require 'uniquify)
|
||
(setq uniquify-separator "/" ;; The separator in buffer names.
|
||
uniquify-buffer-name-style 'forward) ;; names/in/this/style
|
||
|
||
(use-package rg
|
||
:config
|
||
(global-set-key (kbd "M-s g") 'rg)
|
||
(global-set-key (kbd "M-s d") 'rg-dwim))
|
||
|
||
(use-package helm-rg)
|
||
|
||
;;;; Company configuration.
|
||
(use-package company
|
||
:ensure t
|
||
:defer t
|
||
:init (global-company-mode)
|
||
:config
|
||
(progn
|
||
(add-to-list 'completion-styles 'initials t)
|
||
(bind-key "M-<tab>" #'company-complete company-mode-map)
|
||
(setq company-tooltip-align-annotations t
|
||
tab-always-indent 'complete)
|
||
(setq company-dabbrev-downcase nil))
|
||
:diminish company-mode)
|
||
|
||
;;;; Evil mode configuration.
|
||
(use-package evil
|
||
:ensure t
|
||
:init ;; tweak evil's configuration before loading it
|
||
(setq evil-search-module 'evil-search
|
||
evil-ex-complete-emacs-commands nil
|
||
evil-vsplit-window-right t
|
||
evil-split-window-below t
|
||
evil-shift-round nil
|
||
evil-undo-system 'undo-tree
|
||
evil-want-C-u-scroll t)
|
||
:config ;; tweak evil after loading it
|
||
(use-package undo-tree)
|
||
(evil-mode)
|
||
(setq evil-want-C-u-scroll t)
|
||
(eval-after-load "evil-maps"
|
||
;; Unset Evil's "M-." keymap to enable symbol definition following.
|
||
(define-key evil-normal-state-map "\M-." nil)))
|
||
|
||
(add-hook 'evil-local-mode-hook 'turn-on-undo-tree-mode)
|
||
|
||
;;;; Heml mode configuration.
|
||
(use-package helm
|
||
:diminish
|
||
:init (helm-mode t)
|
||
:bind
|
||
("M-x" . helm-M-x)
|
||
("C-x C-f" . helm-find-files)
|
||
("C-x b" . helm-mini) ;; See buffers & recent files; more useful.
|
||
("C-x r b" . helm-filtered-bookmarks)
|
||
("C-x C-r" . helm-recentf) ;; Search for recently edited files
|
||
("C-c i" . helm-imenu)
|
||
("C-c h" . helm-command-prefix)
|
||
("C-h a" . helm-apropos)
|
||
:config
|
||
(setq helm-autoresize-max-height 0
|
||
helm-autoresize-min-height 20
|
||
helm-split-window-in-side-p t
|
||
helm-move-to-line-cycle-in-source t
|
||
helm-ff-search-library-in-sexp t
|
||
helm-scroll-amount 8
|
||
helm-ff-file-name-history-use-recentf t
|
||
helm-echo-input-in-header-line t)
|
||
(when (executable-find "firefox")
|
||
(setq helm-google-suggest-use-curl-p t)))
|
||
|
||
(setq frame-title-format
|
||
(list (format "%s %%S: %%j " (system-name))
|
||
'(buffer-file-name "%f" (dired-directory dired-directory "%b"))))
|
||
|
||
(use-package better-defaults)
|
||
|
||
(provide 'jenga-init)
|