blob: 8b6b61113a803a7552e12e89b0f4b930978ccb3a (
about) (
plain)
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
|
;;; Indent
(setq-default indent-tabs-mode nil)
;;; GUI
(menu-bar-mode 0)
(tool-bar-mode 0)
(scroll-bar-mode 0)
;;; ido
(ido-mode 1)
(ido-everywhere 1)
;;; ido-completing-read+
(ido-ubiquitous-mode 1)
;;; smex
(global-set-key (kbd "M-x") 'amx)
(global-set-key (kbd "M-X") 'amx-major-mode-commands)
(global-set-key (kbd "C-c C-c M-x") 'execute-extended-command)
;;; ido-at-point-mode
(ido-at-point-mode 1)
;;; icomplete
(require 'icomplete)
(icomplete-mode 1)
;;; Gnus
(setq gnus-completing-read-function 'gnus-ido-completing-read)
;;; Magit
(setq magit-completing-read-function 'magit-ido-completing-read)
;;; Org
(setq org-completion-use-ido t)
;;; SKK
(setq default-input-method "japanese-skk")
;;; Theme
(load-theme 'doom-laserwave t)
;;; modeline
(doom-modeline-mode 1)
(display-battery-mode 1)
;;; undo-tree-mode
(undo-tree-mode 1)
;;; Font
(set-face-attribute 'default nil :height 110)
;;; Paredit
(autoload 'enable-paredit-mode "paredit" "Turn on pseudo-structural editing of Lisp code." t)
(add-hook 'emacs-lisp-mode-hook #'enable-paredit-mode)
(add-hook 'eval-expression-minibuffer-setup-hook #'enable-paredit-mode)
(add-hook 'ielm-mode-hook #'enable-paredit-mode)
(add-hook 'lisp-mode-hook #'enable-paredit-mode)
(add-hook 'lisp-interaction-mode-hook #'enable-paredit-mode)
(add-hook 'scheme-mode-hook #'enable-paredit-mode)
;;; Guix
(with-eval-after-load 'geiser-guile
(add-to-list 'geiser-guile-load-path "~/src/guix"))
(with-eval-after-load 'yasnippet
(add-to-list 'yas-snippet-dirs "~/src/guix/etc/snippets"))
(setq user-full-name "Masaya Tojo")
(setq user-mail-address "masaya@tojo.tokyo")
(load-file "~/src/guix/etc/copyright.el")
(setq copyright-names-regexp
(format "%s <%s>" user-full-name user-mail-address))
(add-hook 'after-save-hook 'copyright-update)
;;; ACL2
(load "~/acl2-8.3/emacs/emacs-acl2.el")
|
