From 59f7ebe92c434023e65a953be809a52bd91a50ad Mon Sep 17 00:00:00 2001
From: kaz saita <saita@kinoshita-lab.org>
Date: Sat, 27 Apr 2024 12:07:52 +0900
Subject: [PATCH] add emacs configs

---
 README.md          |   8 ++++
 emacs.d/.gitignore |   2 +
 emacs.d/init.el    | 114 ++++++++++++++++++++++++++++++++++++++++++++-
 3 files changed, 123 insertions(+), 1 deletion(-)

diff --git a/README.md b/README.md
index d23d95a..9978dad 100644
--- a/README.md
+++ b/README.md
@@ -1,2 +1,10 @@
 # dotfiles
 
+## For windows
+
+emacs:
+```
+mklink /D .emacs.d .\dotfiles\emacs.d
+```
+    
+
diff --git a/emacs.d/.gitignore b/emacs.d/.gitignore
index c77eba2..0c2fda2 100644
--- a/emacs.d/.gitignore
+++ b/emacs.d/.gitignore
@@ -1,3 +1,4 @@
+recentf
 auto-save-list/
 eln-cache/
 elpa/
@@ -6,3 +7,4 @@ strait/
 tutorial/
 straight/
 
+
diff --git a/emacs.d/init.el b/emacs.d/init.el
index 45673f2..5712666 100644
--- a/emacs.d/init.el
+++ b/emacs.d/init.el
@@ -107,7 +107,40 @@
   (setq-default tab-width 4 indent-tabs-mode nil) ;; tab = 4 spaces
   (ffap-bindings) ;; ffap カーソル位置のファイルを開こうとする
   (setq completion-ignore-case t) ;; file名の補完で大文字小文字を区別しない
-  (global-auto-revert-mode t)) ;; バッファ自動再読み
+  (global-auto-revert-mode t) ;; バッファ自動再読み
+  (cd "~/") ;HOMEディレクトリに移動
+  
+  )
+;; ファイル名がぶつからないようにする (uniquify)
+(use-package uniquify
+  :config
+  (setq uniquify-buffer-name-style 'post-forward-angle-brackets)
+  (setq uniquify-ignore-buffers-re "*[^*]+*"))
+
+;; recentf
+(use-package recentf
+  :ensure t
+  :straight t
+  :init
+  (use-package counsel :ensure t)
+  (recentf-mode 1)
+  
+  :config
+  (setq recentf-max-saved-items 2000) ;; 2000ファイルまで履歴保存する
+  (setq recentf-auto-cleanup 'never)  ;; 存在しないファイルは消さない
+  (setq recentf-exclude '(
+						"/recentf"
+						"COMMIT_EDITMSG"
+						"/.?TAGS"
+						"^/sudo:"
+						"/\\.emacs\\.d/games/*-scores"
+						"/\\.emacs\\.d/\\.cask/"
+                        "/\\elpa/*"
+                        "*/share/emacs/*"
+						))
+  (setq recentf-auto-save-timer  (run-with-idle-timer 30 t 'recentf-save-list))
+  :bind
+  ("C-c t" . 'counsel-recentf))
 
 ;; configure look and feel
 (leaf lookandfeel
@@ -129,6 +162,85 @@
 					  ;;:font "xos4 Terminus"
 					  :height 130))
 
+;; markdown
+(leaf markdown-mode
+  :ensure t
+  :mode ("README\\.md\\'" . gfm-mode)
+  :init (setq markdown-command "multimarkdown"))
+
+(leaf company-quickhelp :ensure t)
+(leaf company-irony :ensure t)
+(leaf company-c-headers :ensure t)
+(leaf slime-company :ensure t)
+;; company
+(leaf company
+  :ensure t
+  :straight t
+  :init
+  (company-quickhelp-mode)
+  :config 
+  (setq company-minimum-prefix-length 1)
+  (setq company-selection-wrap-around t)
+  (setq company-auto-expand t) ;; 1個目を自動的に補完
+  (setq company-transformers '(company-sort-by-backend-importance)) ;; ソート順
+  (setq company-idle-delay 0) ; 遅延なしにすぐ表示
+  (setq company-minimum-prefix-length 2) ; デフォルトは4
+  (setq company-selection-wrap-around t) ; 候補の最後の次は先頭に戻る
+  (setq completion-ignore-case t)
+  (setq company-dabbrev-downcase nil)
+  (setq company-selection-wrap-around t)
+  (setq company-tooltip-maximum-width 50)
+  (setq company-show-numbers t)
+  (add-to-list 'company-backends #'company-tabnine)
+  (slime-setup '(slime-fancy slime-company))
+  (add-to-list 'company-backends '(company-bbdb
+                                   company-nxml
+                                   company-css
+                                   company-eclim
+                                   company-semantic
+                                   company-clang
+                                   company-xcode
+                                   company-cmake
+                                   company-mode/company-capf
+                                   company-dabbrev-code
+                                   company-gtags
+                                   company-etags
+                                   company-keywords
+                                   company-oddmuse
+                                   company-files
+                                   company-dabbrev
+                                   mapcar
+                                   company-mode/backend-with-yas
+                                   slime-company
+                                   company-irony
+                                   company-c-headers
+                                   company-elisp))
+
+  :hook
+  (prog-mode-hook . global-company-mode)
+  :bind
+  ("C-M-i" . 'company-complete)
+  (company-active-map
+   ("C-n" . 'company-select-next)
+        ("C-p" . 'company-select-previous)
+        ("[tab]" . 'company-complete-selection)
+        ("C-h" . nil)
+        ("C-S-h" . 'company-show-doc-buffer)))
+
+(leaf slime
+  :ensure t
+  :straight t
+  :init
+  (leaf slime-company :ensure t)
+  :config
+  (setq inferior-lisp-program "sbcl")
+  (setq slime-contribs '(slime-fancy slime-company slime-quicklisp))
+  (setq slime-net-coding-system 'utf-8-unix)
+  (setq slime-complete-symbol*-fancy t)
+  (setq slime-complete-symbol-function 'slime-fuzzy-complete-symbol)
+  (setq slime-fuzzy-completion-in-place t)
+  (setq slime-fuzzy-explanation "")
+  (setq slime-kill-without-query-p t))
 
 (require 'bind-key)
 (bind-key "C-t" 'other-window global-map)