Skip to content
Branch: master
Find file Copy path
Find file Copy path
1 contributor

Users who have contributed to this file

170 lines (144 sloc) 6.07 KB
;;; GNU Emacs initialization file
;; Copyright (C) 2014, 2017 Yuji Minejima <>
;; Author: Yuji Minejima <>
;; This file is NOT part of GNU Emacs.
;; This program is in the public domain.
;; 日本語環境と文字コードの設定
(set-language-environment "Japanese")
(set-default-coding-systems 'utf-8)
(prefer-coding-system 'utf-8)
;;(set-keyboard-coding-system 'utf-8)
;;(global-set-key [kanji] 'toggle-input-method)
;; 標準以外のEmacs Lispパッケージのあるディレクトリを指定
(add-to-list 'load-path (expand-file-name "~/.emacs.d/elisp"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/elisp/mcomplete"))
(add-to-list 'load-path (expand-file-name "~/islelisp"))
;; 固定等幅フォント
(set-face-attribute 'fixed-pitch nil :family "MyricaM M")
;; 可変幅フォント
(set-face-attribute 'variable-pitch nil :family "Yu Gothic UI")
(add-to-list 'default-frame-alist '(font . "MyricaM M-13"))
(set-face-font 'font-lock-comment-face "MyricaM M-13")
(set-face-font 'font-lock-string-face "MyricaM M-13")
(set-face-font 'font-lock-keyword-face "MyricaM M-13")
(set-face-font 'font-lock-builtin-face "MyricaM M-13")
(set-face-font 'font-lock-function-name-face "MyricaM M-13")
(set-face-font 'font-lock-variable-name-face "MyricaM M-13")
(set-face-font 'font-lock-type-face "MyricaM M-13")
(set-face-font 'font-lock-constant-face "MyricaM M-13")
(set-face-font 'font-lock-warning-face "MyricaM M-13")
;; 行間の設定
(setq-default line-spacing 2)
;;; Frame size & position
(setq default-frame-alist
(append (list
;;'(foreground-color . "black")
;;'(background-color . "LemonChiffon")
;;'(background-color . "gray")
;;'(border-color . "black")
;;'(mouse-color . "white")
;;'(cursor-color . "black")
'(width . 100)
'(height . 58)
'(top . 0)
'(left . 500)
;; 0でツールバーを非表示
;;(tool-bar-mode 0)
;; Msys2などによる各種Unixコマンドのinfo形式のマニュアルがあるディレクトリを追加
;;;(setq Info-default-directory-list (cons "c:/msys64/usr/share/info" Info-default-directory-list))
;;; "global key binding"
;;(global-set-key [(delete)] 'delete-char)
;;(global-set-key "\C-x\C-q" 'toggle-read-only)
;;;(global-set-key [?\C-x ?\C-2] 'split-window-vertically)
;;;(global-set-key "\C-xk" 'bm-kill-current-buffer)
;;;(global-set-key "\C-xE" 'bm-exec-script-buffer)
;;;(global-set-key "\C-x\M-e" 'eval-buffer)
;;;(global-set-key "\M-]" 'delete-other-windows)
;;;(global-set-key "\M-d" 'bm-delete-token)
;;;(define-key ctl-x-map "F" 'find-function)
;;;(define-key ctl-x-4-map "F" 'find-function-other-window)
;;;(define-key ctl-x-5-map "F" 'find-function-other-frame)
;;;(define-key ctl-x-map "K" 'find-function-on-key)
;;;(define-key ctl-x-map "V" 'find-variable)
;;;(define-key ctl-x-4-map "V" 'find-variable-other-window)
;;;(define-key ctl-x-5-map "V" 'find-variable-other-frame)
;;; C-, <KEY>で自分用のコマンドが起動する
;;(let ((map (make-sparse-keymap)))
;; (global-set-key [(control ?,)] map)
;; (define-key map "=" 'bm-show-code-mode)
;; (define-key map "e" 'bm-find-elisp-symbol)
;; (define-key map "\C-e" 'bm-find-elisp-file)
;; (define-key map "p" 'bm-perl-find)
;; (define-key map "P" 'bm-perl-grep-perldoc)
;; (define-key map "c" 'iman)
;; (define-key map "r" 'bm-rfc-find)
;; (define-key map "y" 'bm-syntax-show-descriptor)
;; (define-key map "b" 'bookmark-jump)
;; (define-key map "v" 'quick-calc)
;; (define-key map "j" 'goto-line)
;; (define-key map "l" '(lambda () (interactive) (recenter 0)))
;; (define-key map "\C-l" '(lambda () (interactive) (recenter -1)))
;; (define-key map "a" 'bm-insert-info-link)
;; (define-key map "n" 'bm-goto-link)
;; (define-key map "s" 'bm-shell)
;; (define-key map "8" 'bm-tab8)
;; (define-key map "4" 'bm-tab4)
;; (define-key map "0" 'bm-kill-buffer-and-window)
;; (define-key map "i" 'bm-right-justify-from-here)
;; (define-key map "h" 'hyperspec-lookup)
;; (define-key map "d" 'islisp-hyperdraft)
;; )
;; インデントにタブ文字を使わずスペースを使う
(setq-default indent-tabs-mode nil)
;;; Minor modes, buffer local options
;;(setq auto-mode-alist
;; (cons '("\\.\\(xml\\|xsl\\|rng\\|xhtml\\|html\\)\\'" . nxml-mode)
;; auto-mode-alist))
;;; mcomplete 峯島作のミニバッファの補完パッケージ
;;(require 'mcomplete)
;;(require 'completing-help)
(require 'eldoc)
;; emacs-lisp-mode
(add-hook 'emacs-lisp-mode-hook
#'(lambda ()
;;;(show-paren-mode t)
(setq indent-tabs-mode nil) ; don't use tabs for indentations
(define-key emacs-lisp-mode-map [return] 'newline-and-indent)
(eldoc-mode t)))
;; lisp-interaction-mode
;;(add-hook 'lisp-interaction-mode-hook
;; #'(lambda ()
;; ;;;(show-paren-mode t)
;; (define-key lisp-interaction-mode-map
;; [return] 'newline-and-indent)
;; (eldoc-mode t)))
;; Bookmarks
;;(setq bookmark-sort-flag nil)
;; hyperspec
;;(eval-after-load "hyperspec" '(load "hyperspec-addon"))
;;(require 'hyperspec)
;;(setq common-lisp-hyperspec-root "file:///C:/Program%20Files%20%28x86%29/LispWorks/lib/6-1-0-0/manual/online/CLHS/")
;;(require 'hyperdraft)
;;(setq browse-url-browser-function 'browse-url-firefox)
;;; ;; 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.
;;; '(c-default-style
;;; (quote
;;; ((c-mode . "K&R")
;;; (java-mode . "java")
;;; (awk-mode . "awk")
;;; (other . "gnu")))))
;;;(put 'upcase-region 'disabled nil)
;;;(put 'narrow-to-region 'disabled nil)
;;;(put 'downcase-region 'disabled nil)
You can’t perform that action at this time.