約 1,343,176 件
https://w.atwiki.jp/nkym_memo/pages/32.html
;; .emacs ;; ;; Last Updated 2010/12/20 Mon 13 44 34 ;; (if window-system (progn ;; 文字の色を設定 (add-to-list 'default-frame-alist '(foreground-color . "white")) ;; 背景色を設定 (add-to-list 'default-frame-alist '(background-color . "gray7")) ;; カーソルの色を設定 (add-to-list 'default-frame-alist '(cursor-color . "SlateBlue2")) ;; ;; マウスポインタの色を設定 ;; (add-to-list 'default-frame-alist '(mouse-color . "SlateBlue2")) ;; ;; モードラインの文字の色を設定 ;; (set-face-foreground 'modeline "white") ;; ;; モードラインの背景色を設定 ;; (set-face-background 'modeline "MediumPurple2") ;; ;; 選択中のリージョンの色を設定 (set-face-background 'region "Dark Slate Grey") ;; ;; モードライン（アクティブでないバッファ）の文字色を設定 ;; (set-face-foreground 'mode-line-inactive "gray30") ;; ;; モードライン（アクティブでないバッファ）の背景色を設定 ;; (set-face-background 'mode-line-inactive "gray85") )) ;;auto-install.elのインストール手順 ;; $mkdir -p ~/.emacs.d/auto-install ;; cd ~/.emacs.d/auto-install ;; wget http //www.emacswiki.org/emacs/download/auto-install.el ;; emacs --batch -Q -f batch-byte-compile auto-install.el ;;;Emacs Lispインストーラを利用 (add-to-list 'load-path "~/.emacs.d/auto-install") ;;(install-elisp-from-emacswiki "auto-install.el") ;(require 'auto-install) ;;起動時にEmacswikiのページを補完候補に加える ;(auto-install-update-emacswiki-package-name t) ;;install-elisp.el互換モード ;(auto-install-compatibility-setup) ;;ediff関連のバッファを一つのフレームにまとめる (setq ediff-window-setup-function 'ediff-setup-windows-plain) ;;; 基本設定 ;; スタートアップを非表示 (setq inhibit-startup-screen -1) ;; ビープ音を消す (setq ring-bell-function 'ignore) ;; 現在行に色をつける (global-hl-line-mode 1) ;; その行の色 (set-face-background 'hl-line "black") ;; 履歴を次回Emacs起動時にも保存する (savehist-mode 1) ;; 対応する括弧を光らせる (show-paren-mode 1) ;; カーソルの位置が何文字目かを表示する (column-number-mode t) ;; バックアップファイルを作らない (setq backup-inhibited t) ;; Xでのクリップボードを共有 (setq x-select-enable-clipboard t) ;; yes-or-noをy-or-nに省略 (defalias 'yes-or-no-p 'y-or-n-p) ;; 行の先頭でC-kを一回押すだけで行全体を消去する (setq kill-whole-line t) ;; ツールバーを非表示 (tool-bar-mode -1) ;; メニューバーを非表示 (menu-bar-mode -1) ;; 圧縮されたファイルも編集できるようにする (auto-compression-mode t) ;; スクロールを一行ずつにする (setq scroll-step 1) ;;; 現在の関数名をモードラインに表示 (which-function-mode 1) ;;; emacsclient ;; ファイルを現在のemacsで開く (server-start) ;; キーバインドの変更 ;; 指定の行に移る (global-set-key "\M-g" 'goto-line) ;; undo (global-set-key "\C-z" 'undo) ;; ウィンドウの移動をM-tに (global-set-key "\M-t" 'other-window) ;; C-hをBackSpaceに (global-set-key "\C-h" 'delete-backward-char) ;; M-x compile を C-. に (global-set-key [?\C-\.] 'compile) ;;; 初期フレームの設定 (setq initial-frame-alist (append '( (width . 47) ; フレーム幅(文字数) (height . 63)) ; フレーム高(文字数) initial-frame-alist)) ;;; 新規フレームのデフォルト設定 (setq default-frame-alist (append '((width . 47); フレーム幅(文字数) (height . 63)); フレーム高(文字数) default-frame-alist)) ;;; ファイル更新日を自動的に書き換える。 ;; ファイルの頭に "last updated "をつけくわえればよい (require 'time-stamp) ;; 日本語で日付を入れたくないのでlocaleをCにする (defun time-stamp-with-locale-c () (let ((system-time-locale "C")) (time-stamp) nil)) (if (not (memq 'time-stamp-with-locale-c write-file-hooks)) (add-hook 'write-file-hooks 'time-stamp-with-locale-c)) (setq time-stamp-active t) (setq time-stamp-start "Last Updated ") (setq time-stamp-format "%04y/%02m/%02d %3a %02H %02M %02S") (setq time-stamp-end " ") ;;;Last Updated の後に空白2つ以上いれると置換 ;;; タイトルバーにファイル名を表示する (setq frame-title-format (format "emacs@%s %%f" (system-name))) ;;; ファイルの自動挿入 (auto-insert-mode) ;; 自動挿入するファイルのあるディレクトリ ;; 最後の/は必須 (setq auto-insert-directory "~/.emacs.d/insert/") ;; 自動挿入するファイル (define-auto-insert "\\.c" "c-template.c") ;;; viewer.el view-modeの設定 ;; M-x install-elisp-from-emacswiki viewer.el ;; ;; C-x C-rでview-modeでファイルを開く (setq view-read-only t) ;; 書き込み不能な場合はview-modeを抜けないように (require 'viewer) (viewer-stay-in-setup) ;; .log .out .datファイルをview-modeで開く (setq view-mode-by-default-regexp "\\.log") (setq view-mode-by-default-regexp "\\.out") (setq view-mode-by-default-regexp "\\.dat") ;;; view-mode時にモードラインに色をつける ;; 色名を指定 (setq viewer-modeline-color-unwritable "tomato") (setq viewer-modeline-color-view "orange") (viewer-change-modeline-color-setup) ;; view-mode時のキーバインド (define-key view-mode-map "h" 'backward-char) (define-key view-mode-map "j" 'next-line) (define-key view-mode-map "k" 'previous-line) (define-key view-mode-map "l" 'forward-char) (define-key view-mode-map "J" 'View-scroll-line-forward) (define-key view-mode-map "K" 'View-scroll-line-backward) (define-key view-mode-map "b" 'scroll-down) (define-key view-mode-map " " 'scroll-up) ;; bm.el (define-key view-mode-map "m" 'bm-toggle) (define-key view-mode-map "[" 'bm-previous) (define-key view-mode-map "]" 'bm-next) ;; view-modeを有効・無効にする ;; 0.04秒以内に jk を同時押しでview-modeに移行 (require 'key-chord) (setq key-chord-two-keys-delay 0.04) (key-chord-mode 1) (key-chord-define-global "jk" 'view-mode) ;;; redo+.el (require 'redo+) ;; M-zに設定 (global-set-key "\M-z" 'redo) (setq undo-no-redo t); 過去のundoがredoされないようにする ;; 大量のundoに耐えられるようにする (setq undo-limit 600000) (setq undo-strong-limit 900000) ;;;fullscreen.el (require 'fullscreen) ;;; recentf-ext.el ;; install-elisp-from-emacswiki recentf-ext.el ;; 保存しておく数 (setq recentf-max-saved-items 3000) ;; 最近使ったファイルに加えないファイルを正規表現で指定する (setq recentf-exclude '("/TAGS$" "/var/tmp/")) (require 'recentf-ext) ;; f8をショートカットキーに (global-set-key [f8] 'recentf-open-files) ;;; auto-complete.el ;; install-elisp-from-emacswiki auto-complete.el ;(require 'auto-complete) ;(global-auto-complete-mode 1) ;;;col-highlight.el ;; auto-install-batch col-highlight.el ;(require 'col-highlight) ;(column-highlight-mode 1) ;;何もしないでいるとハイライトを始めるようにする場合 ;(toggle-highlight-column-when-idle 1) ;(col-highlight-set-interval 3) ;;; hippie-expand ;;; 略語展開の順を設定 (setq hippie-expand-try-functions-list '(try-expand-dabbrev try-expand-dabbrev-all-buffers try-expand-dabbrev-from-kill try-complete-file-name-partially try-complete-file-name try-expand-all-abbrevs try-expand-list try-expand-line try-complete-lisp-symbol-partially try-complete-lisp-symbol)) ;; キーバインドの変更 C-; (global-set-key [?\C-;] 'hippie-expand) ;;; ipa.el (require 'ipa) ;;; 背景色 (set-face-background 'highlight "lavender") ;;; sequential-command.el ;;; M-x auto-install-batch sequential-command (require 'sequential-command-config) (sequential-command-setup-keys) ;;; smartchr.el ;; M-x install-elisp ;; https //github.com/imakado/emacs-smartchr/raw/master/smartchr.el (require 'smartchr) ;; once "", twice " (global-set-key (kbd "\"") (smartchr '("\"`!!'\"" "\""))) ;; once '', twice ' (global-set-key (kbd "\'") (smartchr '("\'`!!'\'" "\'"))) ;;; auto-save-buffers.el ;; M-x install-elisp ;; http //homepage3.nifty.com/oatu/emacs/archives/auto-save-buffers.el (require 'auto-save-buffers) ;; アイドル２秒で保存 (run-with-idle-timer 0.2 t 'auto-save-buffers) (run-with-idle-timer 0.2 t 'auto-save-buffers "" ".ipa$") ;;; open-junk-file.el ;; M-x install-elisp-from-emacswiki open-junk-file.el ;; Usage M-x open-junk-file (require 'open-junk-file) (setq open-junk-file-format "~/junk/%Y-%m-%d-%H%M%S.") ;;; bm.el ;; M-x install-elisp ;; http //cvs.savannah.gnu.org/viewvc/*checkout*/bm/bm/bm.el (setq-default bm-buffer-persistence nil) (setq bm-restore-repository-on-load t) (require 'bm) (add-hook 'find-file-hooks 'bm-buffer-restore) (add-hook 'kill-buffer-hook 'bm-buffer-save) (add-hook 'after-save-hook 'bm-buffer-save) (add-hook 'after-revert-hook 'bm-buffer-restore) (add-hook 'vc-before-checkin-hook 'bm-buffer-save) (global-set-key (kbd "M-\\") 'bm-toggle) (global-set-key (kbd "M-[") 'bm-previous) (global-set-key (kbd "M-]") 'bm-next) ;;; Latex ;; 日本語コードをeuc-japanに (set-language-environment "Japanese") (set-default-coding-systems 'euc-japan) (set-terminal-coding-system 'euc-japan) ;;; Yatex (setq YaTeX-inhibit-prefix-letter nil) ;;; twittering-mode (add-to-list 'load-path "~/.emacs.d/twittering-mode-1.0.0/") (require 'twittering-mode) ;; Show icons (setq twittering-icon-mode t) ;; Update your timeline each 300 seconds (5 minutes) (setq twittering-timer-interval 30) (add-hook 'twittering-mode-hook (lambda () (mapc (lambda (pair) (let ((key (car pair)) (func (cdr pair))) (define-key twittering-mode-map (read-kbd-macro key) func))) '(("F" . twittering-friends-timeline) ("R" . twittering-replies-timeline) ("U" . twittering-user-timeline) ("W" . twittering-update-status-interactive)))))
https://w.atwiki.jp/nkym_memo/pages/150.html
;; .emacs ;; Last Updated 2011/07/08 Fri 08 10 25 (if window-system (progn ;; 文字の色を設定 (add-to-list 'default-frame-alist '(foreground-color . "white")) ;; 背景色を設定 (add-to-list 'default-frame-alist '(background-color . "gray7")) ;; カーソルの色を設定 (add-to-list 'default-frame-alist '(cursor-color . "SlateBlue2")) ;; ;; マウスポインタの色を設定 ;; (add-to-list 'default-frame-alist '(mouse-color . "SlateBlue2")) ;; ;; モードラインの文字の色を設定 ;; (set-face-foreground 'modeline "white") ;; ;; モードラインの背景色を設定 ;; (set-face-background 'modeline "MediumPurple2") ;; ;; 選択中のリージョンの色を設定 (set-face-background 'region "Dark Slate Grey") ;; ;; モードライン（アクティブでないバッファ）の文字色を設定 ;; (set-face-foreground 'mode-line-inactive "gray30") ;; ;; モードライン（アクティブでないバッファ）の背景色を設定 ;; (set-face-background 'mode-line-inactive "gray85") )) ;;auto-install.elのインストール手順 ;; $mkdir -p ~/.emacs.d/auto-install ;; cd ~/.emacs.d/auto-install ;; wget http //www.emacswiki.org/emacs/download/auto-install.el ;; emacs --batch -Q -f batch-byte-compile auto-install.el ;;;Emacs Lispインストーラを利用 (add-to-list 'load-path "~/.emacs.d/auto-install") (add-to-list 'load-path "~/.emacs.d/plugins/yasnippet-0.6.1c/") ;;; install-elisp-from-emacswiki "auto-install.el" (require 'auto-install) ;;起動時にEmacswikiのページを補完候補に加える ;(auto-install-update-emacswiki-package-name t) ;;install-elisp.el互換モード (auto-install-compatibility-setup) ;;ediff関連のバッファを一つのフレームにまとめる (setq ediff-window-setup-function 'ediff-setup-windows-plain) ;================================================================================ ; 基本設定 ;================================================================================ ;; スタートアップを非表示 (setq inhibit-startup-screen -1) ;; ビープ音を消す (setq ring-bell-function 'ignore) ;; 現在行に色をつける (global-hl-line-mode 1) ;; その行の色 (set-face-background 'hl-line "black") ;; 履歴を次回Emacs起動時にも保存する (savehist-mode 1) ;; 対応する括弧を光らせる (show-paren-mode 1) ;; カーソルの位置が何文字目かを表示する (column-number-mode t) ;; バックアップファイルを作らない (setq backup-inhibited t) ;; Xでのクリップボードを共有 (setq x-select-enable-clipboard t) ;; yes-or-noをy-or-nに省略 (defalias 'yes-or-no-p 'y-or-n-p) ;; 行の先頭でC-kを一回押すだけで行全体を消去する (setq kill-whole-line t) ;; ツールバーを非表示 (tool-bar-mode -1) ;; メニューバーを非表示 (menu-bar-mode -1) ;; 圧縮されたファイルも編集できるようにする (auto-compression-mode t) ;; スクロールを一行ずつにする (setq scroll-step 1) ;;; 現在の関数名をモードラインに表示 (which-function-mode 1) ;;; emacsclient ;; ファイルを現在のemacsで開く (server-start) ;;------------------------ キーバインドの変更 ---------------------------------- ;; 指定の行に移る (global-set-key "\M-g" 'goto-line) ;; undo (global-set-key "\C-z" 'undo) ;; ウィンドウの移動をM-tに (global-set-key "\M-t" 'other-window) ;; C-hをBackSpaceに (global-set-key "\C-h" 'delete-backward-char) ;; M-x compile を f5 に (global-set-key [f5] 'compile) ;;;------------------- 初期フレームの設定 ------------------------------------ (setq initial-frame-alist (append '( (width . 45) ; フレーム幅(文字数) (height . 66)) ; フレーム高(文字数) initial-frame-alist)) ;;; 新規フレームのデフォルト設定 (setq default-frame-alist (append '((width . 45); フレーム幅(文字数) (height . 66)); フレーム高(文字数) default-frame-alist)) ;;; ファイル更新日を自動的に書き換える。 ;; ファイルの頭に "last updated "をつけくわえればよい (require 'time-stamp) ;; 日本語で日付を入れたくないのでlocaleをCにする (defun time-stamp-with-locale-c () (let ((system-time-locale "C")) (time-stamp) nil)) (if (not (memq 'time-stamp-with-locale-c write-file-hooks)) (add-hook 'write-file-hooks 'time-stamp-with-locale-c)) (setq time-stamp-active t) (setq time-stamp-start "Last Updated ") (setq time-stamp-format "%04y/%02m/%02d %3a %02H %02M %02S") (setq time-stamp-end " ") ;;;Last Updated の後に空白2つ以上いれると置換 ;;; タイトルバーにファイル名を表示する (setq frame-title-format (format "emacs@%s %%f" (system-name))) ;;; ファイルの自動挿入 (auto-insert-mode) ;; 自動挿入するファイルのあるディレクトリ ;; 最後の/は必須 (setq auto-insert-directory "~/.emacs.d/insert/") ;; 自動挿入するファイル (define-auto-insert "\\.c" "c-template.c") ;================================================================================ ;;; viewer.el view-modeの設定 ;; M-x install-elisp-from-emacswiki viewer.el ;; ;; C-x C-rでview-modeでファイルを開く (setq view-read-only t) ;; 書き込み不能な場合はview-modeを抜けないように (require 'viewer) (viewer-stay-in-setup) ;; .log .out .datファイルをview-modeで開く (setq view-mode-by-default-regexp "\\.log") (setq view-mode-by-default-regexp "\\.out") (setq view-mode-by-default-regexp "\\.dat") ;;; view-mode時にモードラインに色をつける ;; 色名を指定 (setq viewer-modeline-color-unwritable "tomato") (setq viewer-modeline-color-view "orange") (viewer-change-modeline-color-setup) ;; view-mode時のキーバインド (define-key view-mode-map "h" 'backward-char) (define-key view-mode-map "j" 'next-line) (define-key view-mode-map "k" 'previous-line) (define-key view-mode-map "l" 'forward-char) (define-key view-mode-map "J" 'View-scroll-line-forward) (define-key view-mode-map "K" 'View-scroll-line-backward) (define-key view-mode-map "b" 'scroll-down) (define-key view-mode-map " " 'scroll-up) ;; ;; bm.el (define-key view-mode-map "m" 'bm-toggle) (define-key view-mode-map "[" 'bm-previous) (define-key view-mode-map "]" 'bm-next) ;; view-modeを有効・無効にする ;; 0.04秒以内に jk を同時押しでview-modeに移行 (require 'key-chord) (setq key-chord-two-keys-delay 0.04) (key-chord-mode 1) (key-chord-define-global "jk" 'view-mode) ;================================================================================ ;;; redo+.el (require 'redo+) ;; M-zに設定 (global-set-key "\M-z" 'redo) (setq undo-no-redo t); 過去のundoがredoされないようにする ;; 大量のundoに耐えられるようにする (setq undo-limit 600000) (setq undo-strong-limit 900000) ;;;fullscreen.el (require 'fullscreen) ;;;-------------------- recentf-ext.el -------------------------- ;; install-elisp-from-emacswiki recentf-ext.el ;; 保存しておく数 (setq recentf-max-saved-items 3000) ;; 最近使ったファイルに加えないファイルを正規表現で指定する (setq recentf-exclude '("/TAGS$" "/var/tmp/")) (require 'recentf-ext) ;; f8をショートカットキーに (global-set-key [f8] 'recentf-open-files) ;;; auto-complete.el ;; install-elisp-from-emacswiki auto-complete.el ;(require 'auto-complete) ;(global-auto-complete-mode 1) ;;;col-highlight.el ;; auto-install-batch col-highlight.el ;(require 'col-highlight) ;(column-highlight-mode 1) ;;何もしないでいるとハイライトを始めるようにする場合 ;(toggle-highlight-column-when-idle 1) ;(col-highlight-set-interval 3) ;;;============================= hippie-expand ==================================== ;;; 略語展開の順を設定 (setq hippie-expand-try-functions-list '(try-expand-dabbrev try-expand-dabbrev-all-buffers try-expand-dabbrev-from-kill try-complete-file-name-partially try-complete-file-name try-expand-all-abbrevs try-expand-list try-expand-line try-complete-lisp-symbol-partially try-complete-lisp-symbol)) ;; キーバインドの変更 C-; (global-set-key [?\C-;] 'hippie-expand) ;;; ipa.el (require 'ipa) ;;; 背景色 (set-face-background 'highlight "Corn Flower Blue") ;;;---------------------- sequential-command.el--------------------------------- ;;; M-x auto-install-batch sequential-command (require 'sequential-command-config) (sequential-command-setup-keys) ;================================================================================ ;;; smartchr.el ;; M-x install-elisp ;; https //github.com/imakado/emacs-smartchr/raw/master/smartchr.el (require 'smartchr) ;; once "", twice " (global-set-key (kbd "\"") (smartchr '("\"`!!'\"" "\""))) (add-hook 'c-mode-hook '(lambda () (local-set-key ( kbd "(") (smartchr '("( `!!' )" "()" "("))) (local-set-key ( kbd "\'") (smartchr '("\'`!!'\'" "\'"))) (local-set-key ( kbd "\,") (smartchr '("\, " "\,"))) (local-set-key (kbd "[") (smartchr '("[ `!!' ]" "["))) (local-set-key (kbd "=") (smartchr '("= " "==" "="))) )) (add-hook 'c++-mode-hook '(lambda () (local-set-key ( kbd "(") (smartchr '("( `!!' )" "()" "("))) (local-set-key ( kbd "\'") (smartchr '("\'`!!'\'" "\'"))) (local-set-key ( kbd "\,") (smartchr '("\, " "\,"))) (local-set-key (kbd "[") (smartchr '("[ `!!' ]" "["))) (local-set-key (kbd "=") (smartchr '("= " "== " "="))) )) (add-hook 'org-mode-hook '(lambda () (local-set-key ( kbd "$" ) ( smartchr '("" "$" ))) (local-set-key ( kbd "\{" ) ( smartchr '("\{`!!'\}" "\{" ))) )) ;;;----------------------- auto-save-buffers.el --------------------------------- ;; M-x install-elisp ;; http //homepage3.nifty.com/oatu/emacs/archives/auto-save-buffers.el (require 'auto-save-buffers) ;; アイドル0.5秒で保存 (run-with-idle-timer 0.5 t 'auto-save-buffers) (run-with-idle-timer 0.5 t 'auto-save-buffers "" ".ipa$") ;;; open-junk-file.el ;; M-x install-elisp-from-emacswiki open-junk-file.el ;; Usage M-x open-junk-file (require 'open-junk-file) (setq open-junk-file-format "~/junk/%Y-%m-%d-%H%M%S.") (global-set-key "\C-x\C-j" 'open-junk-file) ;;; bm.el ;; M-x install-elisp ;; http //cvs.savannah.gnu.org/viewvc/*checkout*/bm/bm/bm.el (setq-default bm-buffer-persistence nil) (setq bm-restore-repository-on-load t) (require 'bm) (add-hook 'find-file-hooks 'bm-buffer-restore) (add-hook 'kill-buffer-hook 'bm-buffer-save) (add-hook 'after-save-hook 'bm-buffer-save) (add-hook 'after-revert-hook 'bm-buffer-restore) (add-hook 'vc-before-checkin-hook 'bm-buffer-save) (global-set-key [f7] 'bm-toggle) (global-set-key "\C-xp" 'bm-previous) (global-set-key "\C-xn" 'bm-next) ;;; twittering-mode (add-to-list 'load-path "~/.emacs.d/twittering-mode-1.0.0/") (require 'twittering-mode) ;; Show icons (setq twittering-icon-mode t) ;; Update your timeline each 300 seconds (5 minutes) (setq twittering-timer-interval 30) (add-hook 'twittering-mode-hook (lambda () (mapc (lambda (pair) (let ((key (car pair)) (func (cdr pair))) (define-key twittering-mode-map (read-kbd-macro key) func))) '(("F" . twittering-friends-timeline) ("R" . twittering-replies-timeline) ("U" . twittering-user-timeline) ("W" . twittering-update-status-interactive))))) ;;;================== Latex ======================================== ;; 日本語コードをeuc-japanに (set-language-environment "Japanese") (set-default-coding-systems 'euc-japan) (set-terminal-coding-system 'euc-japan) ;;; Yatex (setq YaTeX-inhibit-prefix-letter nil) (setq dvi2-command "xdvi -geo +0+0 -s 7") ;;;reftex (add-hook 'latex-mode-hook 'turn-on-reftex) ; with Emacs latex mode (add-hook 'LaTeX-mode-hook 'turn-on-reftex) ; with AUCTeX LaTeX mode (add-hook 'yatex-mode-hook 'turn-on-reftex) ; with YaTeX mode ;;------------------- 行番号の表示 --------------------------------- (autoload 'setnu-mode "setnu" nil t) (global-set-key [f12] 'setnu-mode) ;;========================== kmacro-save =============================== (defvar kmacro-save-file "~/.emacs" "キーボードマクロを保存するファイル") (defun kmacro-save (symbol) (interactive "name for last kbd macro ") (name-last-kbd-macro symbol) (with-current-buffer (find-file-noselect kmacro-save-file) (goto-char (point-max)) (insert-kbd-macro symbol) (basic-save-buffer))) ; 現在行をコピー (fset 'select-this-line "\C-e\C-@\C-a\M-w") (global-set-key [?\C-\,] 'select-this-line) ; 文末に;を入力 (fset 'insert-statement-end "\C-e;\C-j") (global-set-key [?\C-\.] 'insert-statement-end) ; {}を改行してインデント (fset 'parentheses-and-indent "\C-e{\C-j\C-j}\C-p") (global-set-key [?\M-\[] 'parentheses-and-indent) ; インデントして次の行へ (fset 'indent-and-next "\C-i\C-n") (global-set-key [?\M-i] 'indent-and-next) ;;------------- yasnippet.el ------------------------------- (require 'yasnippet-config) (yas/setup "~/.emacs.d/plugins/yasnippet-0.6.1c") ;;------------- iswitchb.el ------------------------------- ;; バッファ切り替えを部分文字列で可能に (iswitchb-mode 1) (setq read-buffer-function 'iswitchb-read-buffer) (setq iswitchb-regexp nil) ;; 新しいバッファ作成するときは聞かない (setq iswitchb-prompt-newbuffer nil) ;; uniquify.el (require 'uniquify) ;; filename dir の形式 (setq uniquify-buffer-name-style 'post-forward-angle-brackets) ;; *で囲まれたバッファ名は対象外にする (setq uniquify-ignore-buffers-re "*[^*]+*") ;;---------------html-helper-mode------------------------------ (require 'html-helper-mode) (require 'html-mode) (require 'tempo)
https://w.atwiki.jp/satoschi/pages/2263.html
Acroá【acs】 * 00 Jean 01 Central (Jean) 《絶》extinct language ブラジル【BR】 言語名別称 alternate names Acroamirim Acroa Akroá Coroá Koroá 方言名 dialect names 参考文献 references WEB ISO 639-3 MultiTree Glottolog Ethnologue Wikipedia
https://w.atwiki.jp/sponsoracjapan/pages/2555.html
スポンサー企業 AUTOBACS 提供番組(ネットセールス) 2022年4月現在 ポツンと一軒家(2022年4月~) 過去 M-1グランプリ(冠協賛・~2010年大会) SUPER GT＋(~2022年3月)
https://w.atwiki.jp/okadai-riron/pages/8.html
設定 ホームディレクトリの ".emacs" の最後に以下を追加。 (require tex-site) (setq TeX-default-mode japanese-latex-mode) (setq japanese-TeX-command-default "pTeX") (setq japanese-LaTeX-command-default "pLaTeX") (setq japanese-LaTeX-default-style "jsarticle") (setq TeX-file-extensions ("tex" "sty" "cls" "ltx" "texi" "texinfo" "dtx")) (setq kinsoku-limit 10) (setq TeX-output-view-style (("^dvi$" "." "pxdvi %d"))) 使い方 C-c C-e とすると、\begin{...}, \end{...}などの環境を挿入してくれる。 保存して、C-c C-c とすると、コンパイル。 コンパイルが成功したらもう一度 C-c C-c とすると、dvi-viewer (pxdvi) が立ち上がってできたdviファイルを閲覧できる。 ソースファイルを分割している場合は、それぞれのファイルの末尾に以下の4行を追加。 (分割していなければ必要ない。) 親分 (他のソースファイルを読み込むTeXの本体) %%% Local Variables %%% mode japanese-latex %%% TeX-master t %%% End 子分 (includeなどで読み込まれるファイルの場合) %%% Local Variables %%% mode japanese-latex %%% TeX-master "親分のファイル名(拡張子は除く)" %%% End
https://w.atwiki.jp/hideaki0121/pages/16.html
vinelinux,emacs 日本語入力切替 VineLinux3.0と4.0におけるemacsの日本語設定 vinelinux,emacs 日本語入力切替 vine3.0とvine4.0によって漢字かな変換システムが切り替わっている。 vine3はcanna,vine4はscim 環境によって日本語設定を変更する必要がある。 # setime scim status VineLinux3.0と4.0におけるemacsの日本語設定 Anthyとemacsは連動していないので，emacsにおける日本語入力について設定する必要がある． (1) .emacs の書き換え .emacs (2) .emacs.vine40.el の書き換え .emacs.vine40.el (3) .emacs-color.el の書き換え .emacs-color.el
https://w.atwiki.jp/nkym_memo/pages/37.html
シェルモード(shell-mode) emacs内でシェルを呼び出す。 M-x shell 閉じるときなどの操作は、通常のバッファと同様。 フォルダ、実行ファイルなどに色をつける場合(ls --color)には文字化けが起こる。 以下を .emacs に追加する。 (autoload 'ansi-color-for-comint-mode-on "ansi-color" "Set `ansi-color-for-comint-mode' to t." t) (add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on) Org-Mode ヘッドラインの移動 コマンド 説明 C-c C-n 次のヘッドライン C-C C-p 前のヘッドライン C-c C-f 同レベルのヘッドライン中での前移動 C-c C-b 同レベルのヘッドライン中での後移動 C-c C-u 上のヘッドラインレベルへの移動 文字列の挿入 コマンド 説明 C-c . タイムスタンプの挿入(日付) 2011-09-02 金 C-u C-c . RET タイムスタンプの挿入(日付と時刻) view-mode(viewer.el) Emacsをページャー（テキストビューア）として利用する。 書き込み不能な場合にはview-modeを抜けない C-x C-rでview-modeでファイルを開く 特定のファイルは自動でview-modeで開く view-mode時にはモードラインの色を変える 以下を.emacsに追記 ;;; viewer.el view-modeの設定 ;; M-x install-elisp-from-emacswiki viewer.el ;; ;; C-x C-rでview-modeでファイルを開く (setq view-read-only t) ;; 書き込み不能な場合はview-modeを抜けないように (require 'viewer) (viewer-stay-in-setup) ;; .log .out .datファイルをview-modeで開く (setq view-mode-by-default-regexp "\\.log") (setq view-mode-by-default-regexp "\\.out") (setq view-mode-by-default-regexp "\\.dat") ;;;view-mode時にモードラインに色をつける ;;色名を指定 (setq viewer-modeline-color-unwritable "tomato") (setq viewer-modeline-color-view "orange") (viewer-change-modeline-color-setup) view-mode時のキーバインドの変更 viのようにhjklで移動する。 以下を.emacsに追記 ;;view-mode時のキーバインド (define-key view-mode-map "h" 'backward-char) (define-key view-mode-map "j" 'next-line) (define-key view-mode-map "k" 'previous-line) (define-key view-mode-map "l" 'forward-char) (define-key view-mode-map "J" 'View-scroll-line-forward) (define-key view-mode-map "K" 'View-scroll-line-backward) (define-key view-mode-map "b" 'scroll-down) (define-key view-mode-map " " 'scroll-up) view-modeの切り替え 0.04秒以内のjkの同時押しでview-modeを切り替える。 以下を.emacsに追記 ;; view-modeを有効・無効にする ;; 0.04秒以内に jk を同時押しでview-modeに移行 ;; M-x install-elisp-from-emacswiki key-chord.el (require 'key-chord) (setq key-chord-two-keys-delay 0.04) (key-chord-mode 1) (key-chord-define-global "jk" 'view-mode) PDFをEmacs23から開く(DocView) Emacs23からはDocViewによって、PDF、PostScript、DVIが表示できる。 ただ、いまだ開けないものもある。例として パスワードで保護されたPDF 暗号化されたPDF 日本語フォントを含むDVI キーバインド コマンド 機能 n doc-view-next-page 次のページ p doc-view-previous-page 前のページ C-n doc-view-next-line-or-next-page 一行下方へスクロール C-p doc-view-next-line-or-previous-page 一行上方へスクロール SPACE doc-view-scroll-up-or-nextpage 下方スクロールまたは次のページ DEL doc-view-scroll-down-or-previous-page 上方スクロールまたは次のページ k doc-view-kill-proc-and-buffer プロセスを終了しバッファを閉じる g revert-buffer バッファを閉じる + doc-view-enlarge 拡大 - doc-view-shrink 縮小 カーソルキー 上下左右へスクロール 文字数を数える(word-count.el) リージョンの文字数を数えるにはM-x count-lines-regionまたはM-=で参照することが出来る。 リアルタイムに文字数を数える場合には以下をインストール。 http //taiyaki.org/elisp/word-count/src/word-count.el 以下を.emacsに追記 参考文献 Emacsテクニックバイブル〜作業効率をカイゼンする200の技〜(るびきち,2010,技術評論社) 参考URL viのようにhjklでカーソルの移動、スペースでスクロールができるようにする。 http //d.hatena.ne.jp/rubikitch/20081104/1225745862 Emacs 23でPDFを表示させる--新機能「DocView」を試す http //builder.japan.zdnet.com/sp/snow-leopard-09/story/0,3800100196,20411110,00.htm Org Mode Guide http //orgmode.org/guide/index.html OrgMode - Emacs上のアウトライナー http //hpcgi1.nifty.com/spen/index.cgi?OrgMode
https://w.atwiki.jp/ochamemo/pages/15.html
オチャメモ 自分のホームディクレクトリにlispファイルを置き、これを起動時に読み込ませる方法。 ナローモード ファイルの再読み込み elispの置き場所 バイトコンパイル 移動 SHELLのキーバインド キーバインド一覧の表示 モードラインの一番左に表示されている記号（3文字）の見方 改行コード・文字コードの変更 タブ変換 拡張子とメジャーモードの対応付け 対応した括弧に飛ぶ 位置を保存して、後でジャンプ REDOしたい 読み直し EcmaScript UTF8(debian) コントロールコードの入力 リンク 自分のホームディクレクトリにlispファイルを置き、これを起動時に読み込ませる方法。 単にload-pathにディレクトリを追加しただけではサブディレクトリが追加されない。サブディレクトリも追加させるためには一工夫必要。 以下に~/elispなどをつくりその下にlispファイルを放り込む場合を示す。 EMACS_HOME/site-lisp/subdirs.elをコピーしてelisp下におく。 下記を.emacsなどに書く (let ((dir (expand-file-name "~/elisp"))) (if (member dir load-path) nil (setq load-path (cons dir load-path)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)))) http //lists.sourceforge.jp/mailman/archives/macemacsjp-users/2006-March/001038.html ナローモード C-xnn C-xnw ファイルの再読み込み C-x C-v elispの置き場所 /usr/share/emacs/site-lisp かと思ったがいかが正しいっぽい /usr/share/local/share/emacs/site-lisp バイトコンパイル M-x byte-compile-file で、ファイルを選択 移動 とりあえず以下を読むhttp //homepage1.nifty.com/blankspace/emacs/motion.html SHELLのキーバインド http //user.ecc.u-tokyo.ac.jp/~s41024/emacs.html キーバインド一覧の表示 M-x describe-bindings モードラインの一番左に表示されている記号（3文字）の見方 「-EEE -」の場合、左から 1番目：キーボード入力-2番目：画面表示-3番目：ファイル入出力-最後の記号：改行コード|J|JIS| S SJIS E EUC LF(Unix) (DOS) CR-LF(MS-DOS) (Mac) CR(Macintosh) 改行コード・文字コードの変更 キーボードから入力する文字コード C-x RET-k 画面表示に使用する文字コード C-x RET-t ファイルの保存に使用する文字コード(カレントバッファのみ) C-x RET-f バッファやファイルの文字コード(emacs全体で有効) C-x RET-c http //www.clip.gr.jp/~imai/PukiImaiWiki/index.php?emacs%2F%B4%C1%BB%FA%A5%B3%A1%BC%A5%C9%A4%CE%CA%D1%B9%B9%CA%FD%CB%A1 タブ変換 領域指定して、 空白をタブに M-x tabify タブを空白に M-x untabify java-modeでタブを必ず空白に(add-hook ’java-mode-hook (lambda () (setq tab-width 4 indent-tabs-mode nil case-fold-search nil))) 拡張子とメジャーモードの対応付け 以下のようにまとめて記述すればよい (setq auto-mode-alist (append ( ("\\.h$" . c++-mode) ("\\.hpp$" . c++-mode) ("\\.txt$" . text-mode) ("\\.message$" . text-mode) ("\\.htm" . html-helper-mode) ("\\.shtml$" . html-helper-mode) ("\\.php" . html-helper-mode) ) auto-mode-alist)) 対応した括弧に飛ぶ M-C-p or M-C-n 位置を保存して、後でジャンプ C-SPC で位置保存 C-u C-SPC で保存した位置にジャンプ REDOしたい 以下を参考にelispをインストール http //www.fan.gr.jp/~ring/Meadow/meadow.html 読み直し M-x find-alternate-file (C-x C-v) EcmaScript http //www.emacswiki.org/cgi-bin/wiki/download/ecmascript-mode.el (autoload ecmascript-mode "ecmascript-mode" "ECMAScript" t) (setq auto-mode-alist(append (("\\.as$" . ecmascript-mode)) auto-mode-alist)) UTF8(debian) apt-get install mule-ucs コントロールコードの入力 C-q コントロール文字 リンク 電子書籍--http //www.bookshelf.jp/soft/meadow_toc.html#SEC_Contents なかなか小技の効いた感じ--http //homepage1.nifty.com/blankspace/index.html
https://w.atwiki.jp/yuichi/pages/63.html
IDOの、TACSネットワーク用の端末をこう称していた。
https://w.atwiki.jp/cupnes/pages/60.html
;====================================================================== ; 言語・文字コード関連の設定 ;====================================================================== (when (equal emacs-major-version 21) (require un-define)) (set-language-environment "Japanese") (set-terminal-coding-system utf-8) (set-keyboard-coding-system utf-8) (set-buffer-file-coding-system utf-8) (setq default-buffer-file-coding-system utf-8) (prefer-coding-system utf-8);;UTF-8優先 (set-default-coding-systems utf-8) (setq file-name-coding-system utf-8) ;======================================================================= ; Misc ;======================================================================= (mouse-wheel-mode);;ホイールマウス (global-font-lock-mode t);;文字の色つけ (setq line-number-mode t);;カーソルのある行番号を表示 (auto-compression-mode t);;日本語infoの文字化け防止 (set-scroll-bar-mode right);;スクロールバーを右に表示 (global-set-key "\C-h" backward-delete-char);;Ctrl-Hでバックスペース (setq visible-bell nil);;ヴィジュアルベル無効 (setq ring-bell-function (lambda ()));;ビープ音も無効 (when (boundp show-trailing-whitespace) (setq-default show-trailing-whitespace t));;行末のスペースを強調表示 ;; load-pathの設定 (add-to-list load-path (expand-file-name "~/site-lisp")) ;; 対応する括弧を強調表示 (show-paren-mode t) (setq show-paren-style mixed) ;(set-face-background show-paren-match-face "gray10") (set-face-background show-paren-match-face "lawn green") (set-face-foreground show-paren-match-face "light sea green") (set-face-background show-paren-mismatch-face "magenta") (set-face-foreground show-paren-mismatch-face "firebrick") ;; ツールバーを表示しない (tool-bar-mode 0) ;; メニューを消したい (menu-bar-mode -1) ;; 時計の設定 (setq display-time-string-forms ((substring year -2) "/" month "/" day " " dayname " " 24-hours " " minutes)) (display-time) ;; "Lisp nesting exceeds max-lisp-eval-depth"への対処 (setq max-lisp-eval-depth 1000) ;; "Variable binding depth exceeds max-specpdl-size"への対処 (setq max-specpdl-size 1867) ;; バッファの切換えをもっと楽にしたい − iswitchb ;; (iswitchb-default-keybindings) (iswitchb-mode 1) ;; 列数を表示する (column-number-mode t) ;; スタートアップ時のメッセージを抑制 (setq inhibit-startup-message t) ;; https //github.com/typester/emacs-config/blob/master/conf/init.el ;; % で対応する括弧に移動 (defun match-paren (arg) "Go to the matching paren if on a paren; otherwise insert %." (interactive "p") (cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1)) ((looking-at "\\s\)") (forward-char 1) (backward-list 1)) (t (self-insert-command (or arg 1))))) (define-key global-map (kbd "C-5") match-paren) ;; C-t でother-window、分割されてなかったら分割 (defun other-window-or-split () ; http //d.hatena.ne.jp/rubikitch/20100210/emacs (interactive) (when (one-window-p) (split-window-horizontally)) (other-window 1)) (define-key global-map (kbd "C-t") other-window-or-split) ;; scratchの初期メッセージ消去 (setq initial-scratch-message "") ;; タイトルバーにファイルのフルパス表示 (setq frame-title-format (format "%%f - Emacs@%s" (system-name))) ;; 最近使ったファイルをメニューに表示 (recentf-mode t) ;; 最近使ったファイルの表示数 (setq recentf-max-menu-items 10) ;; 最近開いたファイルの保存数を増やす (setq recentf-max-saved-items 3000) ;; ミニバッファの履歴を保存する (savehist-mode 1) ;; ミニバッファの履歴の保存数を増やす (setq history-length 3000) ;; デフォルトのタブ幅を半角スペース4つ分に (setq default-tab-width 4) ;; c-modeの設定 (setq c-default-style "linux" c-basic-offset 4) ;; - http //d.hatena.ne.jp/syohex/20110624/1308871777 ;; c-modeの自動インデントをデフォルトで無効化 ;; 有効/無効はC-c C-lで切り替え ;; (add-hook c-mode-hook ;; (lambda () ;; (c-toggle-electric-state -1))) ;; auto-installの設定 (add-to-list load-path (expand-file-name "~/.emacs.d/auto-install")) (require auto-install) (auto-install-update-emacswiki-package-name t) (auto-install-compatibility-setup) (setq ediff-window-setup-function ediff-setup-windows-plain) ;; cmigemoの設定 ;; http //qiita.com/kenbeese/items/ebbf0128d7c752a94a22 (setq migemo-dictionary "/usr/local/share/migemo/utf-8/migemo-dict") (setq migemo-command "cmigemo") (setq migemo-options ("-q" "--emacs")) (setq migemo-user-dictionary nil) (setq migemo-coding-system utf-8) (setq migemo-regex-dictionary nil) (load-library "migemo") (migemo-init) ;; ;; anything.elの設定 ;; (require anything-startup) ;; auto-complete-mode.elの設定 (add-to-list load-path "~/.emacs.d/") (require auto-complete-config) (add-to-list ac-dictionary-directories "~/.emacs.d//ac-dict") (ac-config-default) ;; GNU GLOBAL(gtags.el)の設定(ここから) (add-to-list load-path "~/site-lisp") (autoload gtags-mode "gtags" "" t) (setq gtags-mode-hook (lambda () (local-set-key "\M-t" gtags-find-tag) (local-set-key "\M-r" gtags-find-rtag) (local-set-key "\M-s" gtags-find-symbol) (local-set-key "\C-t" gtags-pop-stack))) ;; (add-hook gtags-mode-hook ;; (lambda () ;; ; Local customization (overwrite key mapping) ;; (define-key gtags-mode-map "\C-f" scroll-up) ;; (define-key gtags-mode-map "\C-b" scroll-down) ;; )) (add-hook gtags-select-mode-hook (lambda () (setq hl-line-face underline) (hl-line-mode 1))) (add-hook c-mode-hook (lambda () (gtags-mode 1) (gtags-make-complete-list))) ; Customization (setq gtags-suggested-key-mapping t) (setq gtags-auto-update t) ;; GNU GLOBAL(gtags.el)の設定(ここまで) ;; Helmの設定 (add-to-list load-path "~/site-lisp/helm") (require helm-config)