From 587b5ff192c668a4659be7fad06282179bb5fca3 Mon Sep 17 00:00:00 2001
From: "Kaz Saita(raspi4)" <saita@kinoshita-lab.org>
Date: Tue, 19 Mar 2024 15:48:11 +0900
Subject: [PATCH] [emacs] init.el

---
 emacs.d/init.el | 92 ++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 91 insertions(+), 1 deletion(-)

diff --git a/emacs.d/init.el b/emacs.d/init.el
index 89dce96..94342bd 100644
--- a/emacs.d/init.el
+++ b/emacs.d/init.el
@@ -1,6 +1,36 @@
 ;; init.el - part of dotfiles
 ;; https://git.kinoshita-lab.org/kazbo/dotfiles
 
+;; !!!!!
+;; IMPORTANT
+;; use "M-x use-package packagename" instead of "M-x package-install" as well as possible
+;; !!!!!
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; META Setup(setup package system, use-package, straight)
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; configure package
+(require 'package)
+(eval-and-compile
+  (when (or load-file-name byte-compile-current-file)
+    (setq user-emacs-directory
+          (expand-file-name
+           (file-name-directory (or load-file-name byte-compile-current-file))))))
+(setq package-enable-at-startup nil)
+
+(eval-and-compile
+  (customize-set-variable
+   'package-archives '(("org"   . "https://orgmode.org/elpa/")
+                       ("melpa" . "https://melpa.org/packages/")
+                       ("gnu"   . "https://elpa.gnu.org/packages/")))
+  (setq url-http-attempt-keepalives nil)
+  (package-initialize))
+
+;; install use-package if not
+(dolist (package '(use-package))
+   (unless (package-installed-p package)
+       (package-install package)))
+
 ;; setup strait
 ;; cf. https://github.com/radian-software/straight.el
 (defvar bootstrap-version)
@@ -19,7 +49,67 @@
       (eval-print-last-sexp)))
   (load bootstrap-file nil 'nomessage))
 
-;; use-package
+;; integrate use-package/strait
 (straight-use-package 'use-package)
 (setq straight-use-package-by-default t)
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Actual Setup
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(use-package bind-key
+  :ensure t)
+;; tmp settings for edit
+(set-language-environment "Japanese")
+(prefer-coding-system 'utf-8)
+(setq system-time-locale "C")
+(setq inhibit-startup-message t) ;; remove beautiful opening screen
+(setq initial-scratch-message "") ;; scratchの初期メッセージ消去
+(global-display-line-numbers-mode)
+;; タイトルバーにファイルのフルパス表示
+(setq frame-title-format
+      (format "%%f - Emacs@%s" (system-name)))
 
+(setq gc-cons-threshold (* 10 gc-cons-threshold))
+(setq message-log-max 10000)
+(setq enable-recursive-minibuffers t)
+(setq use-dialog-box 0)
+(defalias 'message-box 'message)
+(setq history-length 1000)
+(setq echo-keystrokes 0.1)
+(setq large-file-warning-threshold (* 25 1024 1024))
+(defadvice abort-recursive-edit (before minibuffer-save activate)
+  (when (eq (selected-window) (active-minibuffer-window))
+    (add-to-history minibuffer-history-variable (minibuffer-contents))))
+(defalias 'yes-or-no-p 'y-or-n-p)
+
+;; 1行ずつスクロール
+(setq scroll-conservatively 35
+      scroll-margin 0
+      scroll-step 5)
+
+(setq scroll-conservatively 1)
+(setq scroll-margin 10)
+(setq scroll-preserve-screen-position t)
+(setq next-screen-context-lines 5)
+;; マウスホイールによるスクロール時の行数
+;;   Shift 少なめ、 Ctrl 多めに移動
+(setq mouse-wheel-scroll-amount
+      '(5                              ; 通常   (デフォルト 5)
+        ((shift) . 1)                   ; Shift  (デフォルト 1)
+        ((control) . 40)                ; Ctrl   (デフォルト nil = 無効)
+        ))
+;; スクロールバーいらない
+(scroll-bar-mode -1)
+;; mode bar の設定
+(line-number-mode)
+(column-number-mode)
+(transient-mark-mode 1)
+(blink-cursor-mode 0) ;;; カーソルの点滅を止める
+(tool-bar-mode 0) ;;; toolbarいらない
+(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) ;; バッファ自動再読み
+(require 'bind-key)
+(bind-key "C-t" 'other-window global-map)
+(bind-key "C-h" 'delete-backward-char global-map)