From 55de0bf94ade0276f69d990eea7da464bb91f3df Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Mon, 24 May 2021 21:08:23 +0900
Subject: Update emacs settings.

---
 .emacs | 108 +++++++++++++++++++++++++++++++++++++++++++++--------------------
 1 file changed, 75 insertions(+), 33 deletions(-)

diff --git a/.emacs b/.emacs
index 505d97d..52f2898 100644
--- a/.emacs
+++ b/.emacs
@@ -2,38 +2,23 @@
 (setq-default indent-tabs-mode nil)
 
 ;;; GUI
-(menu-bar-mode 0)
-(tool-bar-mode 0)
 (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)
 
-;;; ido
-(ido-mode 1)
-(ido-everywhere 1)
+(tab-bar-mode -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)
+;;; 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)
 
-;;; Magit
-(setq magit-completing-read-function 'magit-ido-completing-read)
-
 ;;; Org
-(setq org-completion-use-ido t)
 (setq org-directory "~/org")
 (setq org-agenda-files (list org-directory))
 (global-set-key (kbd "C-c a") 'org-agenda)
@@ -74,7 +59,8 @@
 (setq skk-large-jisyo "~/.emacs.d/skk-get-jisyo/SKK-JISYO.L")
 
 ;;; Theme
-(load-theme 'doom-dracula t)
+(when (display-graphic-p)
+  (load-theme 'doom-dracula t))
 
 ;;; modeline
 (doom-modeline-init)
@@ -85,6 +71,7 @@
 (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)
@@ -93,11 +80,12 @@
 (which-key-mode)
 
 ;;; Font
-(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))
+(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)
@@ -116,8 +104,8 @@
 
 ;;; 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 '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")
@@ -135,5 +123,59 @@
 ;;; Geiser
 (setq geiser-active-implementations '(guile))
 
-;;; Gnus
-(setq gnus-completing-read-function 'gnus-ido-completing-read)
+;;; 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.
+ )
-- 
cgit v1.2.3