init.el の編集
先人の知恵に従い HOME フォルダーの下にできた.emacs.dフォルダー内にinit.elを作るのです。
なーどさんの設定を下に晒します。
utf-8で保存しておくと後々幸せになれます*1
;;=========================================== ;; 絶対必要な基本設定 ;;=========================================== ;;---- ;; スタートアップページを表示しない ;;---- (setq inhibit-startup-message t) ;;---- ;; 行番号表示 ;;---- (global-linum-mode t) (setq linum-format "%5d ") ;;---- ;; カラム番号 ;;---- (column-number-mode t) ;;---- ;; ビープ音を消す ;;---- (setq ring-bell-function 'ignore) ;;---- ;; カーソル行に下線を表示 ;;---- (setq hl-line-face 'underline) (global-hl-line-mode) ;;---- ;; 対応する括弧を強調表示 ;;---- (show-paren-mode t) ;;---- ;; TABの表示幅 ;;---- (setq-default tab-width 4) ;;---- ;; ファイルサイズ表示 ;;---- (size-indication-mode t) ;;---- ;; ツールバーを非表示 ;; M-x tool-bar-mode で表示非表示を切り替えられる ;;---- (tool-bar-mode -1) ;;---- ;; タイトルバーにフルパス表示 ;;---- (setq frame-title-format "%f") ;;---- ;; カラーテーマ ;;---- (load-theme 'deeper-blue t) ;;---- ;; 全角空白とタブを可視化 ;; 参考：http://d.hatena.ne.jp/t_ume_tky/20120906/1346943019 ;;---- ;; タブや全角空白などを強調表示 (global-whitespace-mode 1) ;; whitespace-mode の 色設定 ;;http://ergoemacs.org/emacs/whitespace-mode.html (require 'whitespace) (setq whitespace-style '(face tabs tab-mark spaces space-mark newline newline-mark)) (setq whitespace-display-mappings '( (tab-mark ?\t [?\xBB ?\t]) ; タブ (space-mark ?\u3000 [?□]) ; 全角スペース ; (space-mark ?\u0020 [?\xB7]) ; 半角スペース (newline-mark ?\n [?$ ?\n]) ; 改行記号 ) ) (setq whitespace-space-regexp "\\([\x0020\x3000]+\\)" ) ;正規表現に関する文書。 Emacs Lispには、正規表現リテラルがないことへの言及 ;http://www.mew.org/~kazu/doc/elisp/regexp.html ; ;なぜか、全体をグループ化 \(\) しておかないと、うまくマッチしなかった罠 ; (set-face-foreground 'whitespace-space "DimGray") (set-face-background 'whitespace-space 'nil) (set-face-foreground 'whitespace-tab "DimGray") (set-face-background 'whitespace-tab "nil") (set-face-foreground 'whitespace-newline "DimGray") (set-face-background 'whitespace-newline 'nil) ;;---- ;; ウィンドウ切り替え ;; SはShiftキーのこと ;; 参考：http://qiita.com/saku/items/6ef40a0bbaadb2cffbce ;;---- (defun other-window-or-split (val) (interactive) (when (one-window-p) (split-window-horizontally) ;split horizontally 縦分割にしたい場合はこちら ;; (split-window-vertically) ;split vertically 横分割にしたい場合はこちら ) (other-window val)) (global-set-key (kbd "<C-tab>") (lambda () (interactive) (other-window-or-split 1))) (global-set-key (kbd "<C-S-tab>") (lambda () (interactive) (other-window-or-split -1))) ;;---- ;; 折り返しトグルコマンド ;;---- (global-set-key (kbd "C-c l") 'toggle-truncate-lines) ;;---- ;; バックスペースをC-hにする ;; デフォルトでは<backspace>は内部的に<del>として扱われている ;; C-hを<del>のキーシーケンスに上書きする ;;---- (keyboard-translate ?\C-h ?\C-?) ;;---- ;; マクロパス追加 ;;---- (setq load-path (append '("~/.emacs.d/site-lisp" ) load-path)) ;;---- ;; フォント設定 ;;---- (set-face-attribute 'default nil :family "Consolas" :height 100) (set-fontset-font t 'japanese-jisx0208 (font-spec :family "MeiryoKe_Console")) (add-to-list 'face-font-rescale-alist '("MeiryoKe_Console" . 1.09)) (setq-default line-spacing 2) (require 'package) (setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/") ("melpa" . "http://melpa.org/packages/") ("org" . "http://orgmode.org/elpa/"))) (package-initialize) ;;---- ;; UTF-8 をデフォルト ;;---- (set-default 'buffer-file-coding-system 'utf-8)
最低限の設定が完了。これでも充分執筆できます。
