;;; Indent
(setq-default indent-tabs-mode nil)
;;; GUI
(scroll-bar-mode 0)
(tool-bar-mode -1)
;; (add-to-list 'default-frame-alist '(tool-bar-position . left))
(setq ring-bell-function 'ignore)
(menu-bar-mode -1)
(tab-bar-mode -1)
;;; helm
(global-set-key (kbd "M-x") 'helm-M-x)
(helm-mode t)
;;; Projectile
(projectile-mode +1)
(define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map)
;;; Org
(setq org-directory "~/org")
(setq org-agenda-files (list org-directory))
(global-set-key (kbd "C-c a") 'org-agenda)
(global-set-key (kbd "C-c l") 'org-store-link)
(global-set-key (kbd "C-c c") 'org-capture)
(setq org-default-notes-file (concat org-directory "/notes.org"))
(add-hook 'org-mode-hook
(lambda ()
(set-face-attribute 'org-document-title nil :height 1.4)
(set-face-attribute 'org-level-1 nil :height 1.3)
(set-face-attribute 'org-level-2 nil :height 1.2)
(set-face-attribute 'org-level-3 nil :height 1.1)))
(setq org-capture-templates '(("c" "Note" entry (file+headline "" "Notes")
"* %?\n :PROPERTIES:\n :CREATED: %U\n :END:\n %u\n %a"
:empty-lines 1)
("l" "Log" entry (file "~/org/log.org")
"* %?\n :PROPERTIES:\n :CREATED: %U\n :END:\n"
:empty-lines 1)
("t" "Tasks" entry (file+headline "" "Tasks")
"* TODO %?\n :PROPERTIES:\n :CREATED: %U\n :END:\n %a"
:empty-lines 1)))
(setq org-todo-keywords
'((sequence "TODO(t)" "WAIT(w)" "|" "DONE(d)" "SOMEDAY(s)" "CANCELED(c)")))
(org-babel-do-load-languages
'org-babel-load-languages
'((shell . t)
(emacs-lisp . t)
(scheme . t)
(eshell . t)))
(setq org-confirm-babel-evaluate nil)
;;; org-bullets
(require 'org-bullets)
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
;;; SKK
(setq default-input-method "japanese-skk")
(setq skk-large-jisyo "~/.emacs.d/skk-get-jisyo/SKK-JISYO.L")
;;; Theme
(when (display-graphic-p)
(load-theme 'doom-dracula t))
;;; modeline
(doom-modeline-init)
(setq doom-modeline-project-detection 'projectile)
(setq doom-modeline-buffer-file-name-style 'auto)
(setq doom-modeline-gnus t)
(setq doom-modeline-gnus-timer 2)
(display-battery-mode 1)
(display-time-mode 1)
(setq display-time-default-load-average t)
(column-number-mode t)
;;; undo-tree-mode
(global-undo-tree-mode t)
;;; which-key
(which-key-mode)
;;; Font
(when (display-graphic-p)
(set-face-attribute 'default nil :family "Hermit" :height 100)
(set-fontset-font (frame-parameter nil 'font)
'japanese-jisx0208
(font-spec :family "Noto Sans Mono CJK JP"
:size 16)))
;;; 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)
;;; Lisp
(add-hook 'lisp-mode-hook
(lambda ()
(set (make-local-variable 'lisp-indent-function)
'common-lisp-indent-function)))
;;; Guix
(when (file-directory-p "~/src/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
(when (file-directory-p "~/acl2-8.3")
(load "~/acl2-8.3/emacs/emacs-acl2.el")
(put 'defthm 'lisp-indent-function 1))
;;; Geiser
(setq geiser-active-implementations '(guile))
;;; browse-at-remote
(global-set-key (kbd "C-c g g") 'browse-at-remote)
;;; w3m
(setq w3m-search-default-engine "Weblio")
(setq w3m-search-engine-alist '(("Weblio" "https://ejje.weblio.jp/content/%s")))
(global-set-key (kbd "C-c w") 'w3m-search)
(defun set-alpha (alpha-num)
(interactive "nAlpha: ")
(set-frame-parameter nil 'alpha (cons alpha-num (min 100 (+ 10 alpha-num)))))
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(ansi-color-names-vector
["#282a36" "#ff5555" "#50fa7b" "#f1fa8c" "#61bfff" "#ff79c6" "#8be9fd" "#f8f8f2"])
'(custom-safe-themes
'("57bd93e7dc5fbb5d8d27697185b753f8563fe0db5db245592bab55a8680fdd8c" default))
'(fci-rule-color "#6272a4")
'(jdee-db-active-breakpoint-face-colors (cons "#1E2029" "#bd93f9"))
'(jdee-db-requested-breakpoint-face-colors (cons "#1E2029" "#50fa7b"))
'(jdee-db-spec-breakpoint-face-colors (cons "#1E2029" "#565761"))
'(objed-cursor-color "#ff5555")
'(pdf-view-midnight-colors (cons "#f8f8f2" "#282a36"))
'(rustic-ansi-faces
["#282a36" "#ff5555" "#50fa7b" "#f1fa8c" "#61bfff" "#ff79c6" "#8be9fd" "#f8f8f2"])
'(vc-annotate-background "#282a36")
'(vc-annotate-color-map
(list
(cons 20 "#50fa7b")
(cons 40 "#85fa80")
(cons 60 "#bbf986")
(cons 80 "#f1fa8c")
(cons 100 "#f5e381")
(cons 120 "#face76")
(cons 140 "#ffb86c")
(cons 160 "#ffa38a")
(cons 180 "#ff8ea8")
(cons 200 "#ff79c6")
(cons 220 "#ff6da0")
(cons 240 "#ff617a")
(cons 260 "#ff5555")
(cons 280 "#d45558")
(cons 300 "#aa565a")
(cons 320 "#80565d")
(cons 340 "#6272a4")
(cons 360 "#6272a4")))
'(vc-annotate-very-old-color nil))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
)
