[emacs] init.el
This commit is contained in:
parent
032ad387c4
commit
587b5ff192
1 changed files with 91 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Reference in a new issue