dotemacs/init.el at primary · gpadd/dotemacs · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
;; -*- lexical-binding: t; -*-

(setq gc-cons-threshold 64000000)
(add-hook 'after-init-hook #'(lambda ()
			       ;; Restore after startup
			       (setq gc-cons-threshold 800000)))
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))

(setq custom-file (expand-file-name "customize.el" user-emacs-directory))
(load custom-file)

(load-theme 'wombat)

(setopt ring-bell-function 'ignore
	calendar-week-start-day 1
	backup-inhibited t
	inhibit-startup-screen t
	initial-scratch-message ";;; -*- lexical-binding: t; -*-\n\n"
	frame-inhibit-implied-resize t

	dired-vc-rename-file t

	tool-bar-mode nil
	scroll-bar-mode nil
	column-number-mode t
	show-paren-mode t
	;; tooltip-mode -1
	;; menu-bar-mode -1

	;; display-line-numbers-type 't
	display-line-numbers-type 'relative

	confirm-nonexistent-file-or-buffer nil)

(global-display-line-numbers-mode)

(add-hook 'before-save-hook 'delete-trailing-whitespace)
(fset 'yes-or-no-p 'y-or-n-p)
(set-language-environment "UTF-8")

(global-set-key [f5] 'compile)
(global-set-key [f6] 'shell-command)
(global-set-key [f8] 'font-lock-mode)
(global-set-key [f9] 'recompile)

(global-set-key (kbd "C-c l") #'org-store-link)
(global-set-key (kbd "C-c a") #'org-agenda)
(global-set-key (kbd "C-c c") #'org-capture)

(use-package addutils
  :load-path "lisp/"
  :bind ("M-g M-g" . addutils-goto-line-relative))

(use-package org-id)

(use-package org-mem
  :defer
  :config
  (setq org-mem-do-sync-with-org-id t)
  (setq org-mem-watch-dirs
        (list "~/org"))
  (org-mem-updater-mode))

(use-package org-node
  :init
  (keymap-global-set "M-o n" org-node-global-prefix-map)
  (with-eval-after-load 'org
    (keymap-set org-mode-map "M-o n" org-node-org-prefix-map))
  :config
  (org-node-cache-mode))

(use-package paredit
  :ensure t
  :hook
  (scheme-mode . enable-paredit-mode)
  (emacs-lisp-mode . enable-paredit-mode)
  (lisp-mode . enable-paredit-mode))

(use-package rainbow-delimiters
  :ensure t
  :after paredit
  :hook
  (scheme-mode . rainbow-delimiters-mode)
  (emacs-lisp-mode . rainbow-delimiters-mode)
  (lisp-mode . rainbow-delimiters-mode)
  (lisp-interaction-mode . rainbow-delimiters-mode))

(use-package paren
  :ensure nil
  :init
  (setq show-paren-delay 0)
  :config
  (show-paren-mode 1))

(use-package evil
  :ensure t
  :init
  (setq evil-want-integration t) ;; This is optional since it's already set to t by default.
  (setq evil-want-keybinding nil)
  (setq evil-vsplit-window-right t)
  (setq evil-split-window-below t)
  ;;(evil-mode)
  :config
  (evil-set-undo-system 'undo-redo))

(use-package evil-collection
  :ensure t
  :after evil
  :config
  (setq evil-collection-mode-list '(dashboard dired ibuffer))
  (evil-collection-init))

(use-package evil-tutor
  :ensure t)

(add-to-list 'major-mode-remap-alist '(perl-mode . cperl-mode))