code.delx.au - dotemacs/blob - text-edit/init.el

   1 ;;; -*- lexical-binding: t -*-
   2
   3 (dolist (pkg '("~/.emacs.d/text-edit"
   4                "~/.emacs.d/text-edit/change-inner"
   5                "~/.emacs.d/text-edit/expand-region"
   6                "~/.emacs.d/text-edit/highlight-symbol"
   7                "~/.emacs.d/text-edit/jump-char"
   8                "~/.emacs.d/text-edit/yasnippet"))
   9   (add-to-list 'load-path pkg))
  10
  11 ;;;;;;;;;;;;;;;;;
  12 ;; My packages ;;
  13 ;;;;;;;;;;;;;;;;;
  14
  15 (require 'my-buffer-navigation)
  16 (global-set-key (kbd "C-x b") 'my/switch-to-previous-buffer)
  17
  18 (require 'my-find-test-file)
  19 (global-set-key (kbd "C-x t") 'my/find-prod-or-test-file)
  20
  21 (require 'my-frame-title)
  22 (setq frame-title-format '((:eval (funcall #'my/generate-frame-title))))
  23 (setq icon-title-format frame-title-format)
  24 (add-to-list 'post-command-hook #'my/terminal-update-title)
  25
  26 (require 'my-kill-buffers)
  27 (add-to-list 'delete-frame-functions #'my/kill-buffers-if-deleting-last-frame)
  28 (global-set-key (kbd "C-x c") 'my/kill-buffers-not-in-frame)
  29
  30 (require 'my-line-editing)
  31 (global-set-key (kbd "C-o") 'my/open-line-above)
  32 (global-set-key (kbd "M-o") 'my/open-line-below)
  33 (global-set-key (kbd "C-c c") 'my/copy-line)
  34 (global-set-key (kbd "C-c s") 'my/substitute-line)
  35
  36 (require 'my-new-scratch-buffer)
  37
  38 (require 'my-recentf)
  39 (setq recentf-save-file "~/.cache/emacs/recentf")
  40 (setq recentf-exclude '("/\\.emacs\\.d/recentf$" "/\\.git/"))
  41 (setq recentf-max-saved-items 1000)
  42 (recentf-mode 1)
  43 (my/recentf-auto-cleanup-and-save)
  44
  45 (require 'my-window-resize)
  46 (global-set-key (kbd "C-x 9") 'my/window-resize-mode)
  47
  48 ;;;;;;;;;;;;;;;;;;;;;;;;;;
  49 ;; Third-party packages ;;
  50 ;;;;;;;;;;;;;;;;;;;;;;;;;;
  51
  52 (require 'change-inner)
  53 (global-set-key (kbd "M-i") 'change-inner)
  54
  55 (require 'expand-region)
  56 (global-set-key (kbd "M-=") 'er/expand-region)
  57
  58 (require 'highlight-symbol)
  59 (add-hook 'prog-mode-hook #'highlight-symbol-mode)
  60 (add-hook 'prog-mode-hook #'highlight-symbol-nav-mode)
  61 (setq highlight-symbol-idle-delay 0.5)
  62
  63 (require 'jump-char)
  64 (global-set-key (kbd "M-g f") 'jump-char-forward)
  65
  66 (require 'yasnippet)
  67 (add-hook 'prog-mode-hook #'yas-minor-mode)
  68 (add-hook 'python-mode-hook
  69           (lambda () (set (make-local-variable 'yas-indent-line) 'fixed)))
  70 (yas-reload-all)