init.el

created 2025-09-04 modified 2025-09-04

;; init.el

(load-library "~/.emacs.d/init-my.el")

;; emacs標準機能によるカスタマイズ
(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
   ["black" "red3" "green3" "yellow3" "dodger blue" "magenta3"
	"cyan3" "gray90"])
 '(auto-compression-mode t nil (jka-compr))
 '(auto-revert-interval 1)
 '(auto-save-default nil)
 '(backup-directory-alist '((".*" . "~/.emacs.d/emacsbak")))
 '(c++-font-lock-extra-types
   '("\\sw+_t" "\\([iof]\\|str\\)+stream\\(buf\\)?" "ios" "string"
	 "rope" "list" "slist" "deque" "vector" "bit_vector" "set"
	 "multiset" "map" "multimap"
	 "hash\\(_\\(m\\(ap\\|ulti\\(map\\|set\\)\\)\\|set\\)\\)?"
	 "stack" "queue" "priority_queue" "type_info" "iterator"
	 "const_iterator" "reverse_iterator"
	 "const_reverse_iterator" "reference" "const_reference"
	 "u_?\\(int\\|long\\|short\\|char\\)"))
 '(c-default-style
   '((c-mode . "cc-mode") (c++-mode . "cc-mode")
	 (java-mode . "java")))
 '(c-echo-syntactic-information-p t)
 '(c-font-lock-extra-types
   '("FILE" "\\sw+_t" "Lisp_Object"
	 "u_?\\(int\\|long\\|short\\|char\\)"))
 '(c-offsets-alist
   '((inline-open . 0) (statement-case-open . +)
	 (arglist-cont-nonempty . +)))
 '(c-tab-always-indent nil)
 '(comint-scroll-to-bottom-on-input t)
 '(css-indent-offset 2)
 '(default-frame-alist
   '((foreground-color . "white") (background-color . "gray16")
	 (cursor-color . "red") (mouse-color . "red") (width . 112)
	 (height . 48)))
 '(dired-listing-switches "-logF")
 '(ediff-split-window-function 'split-window-horizontally)
 '(ediff-window-setup-function 'ediff-setup-windows-plain)
 '(fill-column 64)
 '(gdb-many-windows t)
 '(generic-define-mswindows-modes t)
 '(global-auto-revert-mode t nil (autorevert))
 '(global-whitespace-mode nil)
 '(grep-find-command
   '("find . -type d -name '.[a-z]*' -prune -o -type f -exec grep --color -nH -e  '{}' +"
	 . 76))
 '(highlight-indent-guides-auto-character-face-perc 50)
 '(highlight-indent-guides-auto-even-face-perc 25)
 '(highlight-indent-guides-auto-odd-face-perc 25)
 '(highlight-indent-guides-method 'bitmap)
 '(initial-buffer-choice t)
 '(initial-major-mode 'text-mode)
 '(initial-scratch-message nil)
 '(js-indent-level 2)
 '(ls-lisp-verbosity nil)
 '(package-selected-packages
   '(highlight-indent-guides polymode markdown-preview-mode
							 php-mode web-mode markdown-mode))
 '(revert-without-query '(".log$"))
 '(safe-local-variable-values
   '((c-electric-flag) (documentlanguage . fr)
	 (documentlanguage . ja)
	 (eval progn
		   "This is code run by LilyPond's .dir-locals.el to fix indentation according to our standards.  If Emacs is warning you that this 'may not be safe', just accept running it."
		   (put 'match 'scheme-indent-function 1)
		   (put 'match-lambda 'scheme-indent-function 0)
		   (put 'match-lambda* 'scheme-indent-function 0)
		   (put 'match-let 'scheme-indent-function
				'scheme-let-indent)
		   (put 'match-let* 'scheme-indent-function 1)
		   (put 'match-letrec 'scheme-indent-function 1)
		   (put 'and-let* 'scheme-indent-function 1)
		   (put 'with-syntax 'scheme-indent-function 1)
		   (put 'eval-when 'scheme-indent-function 1))))
 '(same-window-regexps '("*shell*" "*Buffer List*"))
 '(scroll-step 1)
 '(show-trailing-whitespace t)
 '(skk-egg-like-newline t)
 '(speedbar-show-unknown-files t)
 '(sr-speedbar-right-side nil)
 '(tab-width 4)
 '(tags-case-fold-search nil)
 '(tool-bar-mode nil)
 '(tooltip-mode nil nil (tooltip))
 '(truncate-lines t)
 '(visible-bell t)
 '(whitespace-display-mappings '((tab-mark 9 [166 9])))
 '(woman-fill-frame t)
 '(x-stretch-cursor t))
(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.
 '(ansi-color-blue ((t (:background "royal blue" :foreground "royal blue"))))
 '(ansi-color-bright-blue ((t (:background "dodger blue" :foreground "dodger blue"))))
 '(dired-directory ((t (:foreground "SteelBlue1"))))
 '(ediff-current-diff-A ((t (:extend t :background "#551111"))))
 '(ediff-current-diff-C ((t (:extend t :background "#666611"))))
 '(ediff-even-diff-A ((t (:extend t :background "grey22"))))
 '(ediff-even-diff-Ancestor ((t (:extend t :background "grey30"))))
 '(ediff-even-diff-B ((t (:extend t :background "grey22"))))
 '(ediff-even-diff-C ((t (:extend t :background "grey22"))))
 '(ediff-even-diff-face-Ancestor ((((class color)) (:background "Grey" :foreground "Blue"))))
 '(ediff-even-diff-face-B ((((class color)) (:background "Grey" :foreground "Blue"))))
 '(ediff-fine-diff-A ((t (:background "#661111"))))
 '(ediff-fine-diff-Ancestor ((t (:background "#005544"))))
 '(ediff-fine-diff-B ((t (:background "#116611"))))
 '(ediff-fine-diff-C ((t (:background "#666611"))))
 '(ediff-odd-diff-A ((t (:extend t :background "Grey50"))))
 '(ediff-odd-diff-Ancestor ((t (:extend t :background "gray30"))))
 '(ediff-odd-diff-B ((t (:extend t :background "Grey20"))))
 '(ediff-odd-diff-C ((t (:extend t :background "Grey20"))))
 '(ediff-odd-diff-face-A ((((class color)) (:background "Grey" :foreground "Blue"))))
 '(ediff-odd-diff-face-C ((((class color)) (:background "Grey" :foreground "Blue"))))
 '(escape-glyph ((t (:foreground "DeepSkyBlue4"))))
 '(font-lock-builtin-face ((t (:foreground "plum"))))
 '(font-lock-comment-face ((t (:foreground "medium sea green"))))
 '(font-lock-doc-face ((t (:foreground "gray"))))
 '(font-lock-function-name-face ((t (:foreground "goldenrod"))))
 '(font-lock-keyword-face ((t (:foreground "DodgerBlue"))))
 '(font-lock-string-face ((t (:foreground "peru"))))
 '(font-lock-type-face ((t (:foreground "deep sky blue"))))
 '(font-lock-variable-name-face ((t (:foreground "wheat"))))
 '(highlight-indent-guides-character-face ((t (:foreground "gray"))))
 '(nxml-element-local-name ((t (:foreground "lightblue"))))
 '(speedbar-file-face ((t (:foreground "light gray"))))
 '(speedbar-highlight-face ((t (:background "dark slate gray"))))
 '(trailing-whitespace ((t (:background "grey14")))))

(put 'narrow-to-region 'disabled nil)