約 1,343,601 件
https://w.atwiki.jp/araiguma/pages/51.html
xkeymacs アンドゥ Ctrl+/ タブと同じ Ctrl+i Altと同じ Ctrl+x , Ctrl+f 画面スクロール Ctrl+v 改行 Ctrl+m kill buffer Ctrl+x , k save buffer Ctrl+x , Ctrl+s kill-line Ctrl+k cut Ctrl+w yank Ctrl+y 最小化 Ctrl+z 半角/全角の変更 Ctrl+\ その他設定すると便利なこと 新規ディレクトリを作成 オリジナルコマンド- sample-mkdir
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)
https://w.atwiki.jp/fmemo/pages/14.html
文字コード、改行コードを変更する .emacsの記述基本的な設定 Fortran用の設定 参考サイト 文字コード、改行コードを変更する C-x return f 参考emacsの文字コードの指定 .emacsの記述 基本的な設定 背景色として半透過の黒を使っている。そのため青色の文字が見づらいので色を変更した。 ;;;スタートアップメッセージを表示しない (setq inhibit-startup-message t) ;;; 対応する括弧を光らせる。 (show-paren-mode 1) ;;; 時計を表示 (display-time) ;;; 現在のカーソルの列を表示させる (column-number-mode t) ;;; メニューバーを表示しない (menu-bar-mode -1) ;;; ツールバーを表示しない (tool-bar-mode -1) ;;; バックアッップファイルを作成しない (setq make-backup-files nil) ;;; デフォルトだと青で見づらいので緑にする (set-face-foreground font-lock-function-name-face "green") ;;; デフォルトだとミニバッファの文字が見づらいので背景を黒、文字を白にする (set-face-foreground minibuffer-prompt "white") (set-face-background minibuffer-prompt "black") ;;; Ctrl-hをバックスペースにする (global-set-key "\C-h" delete-backward-char) Fortran用の設定 インデント幅は半角スペース2つ分にした ;; Fortranモードの設定(固定形式) (setq fortran-mode-hook (lambda () (setq fortran-do-indent 2 fortran-if-indent 2 fortran-program-indent 2 fortran-continuation-indent 2 ) ;;(turn-on-font-lock) )) ;; Fortranモードの設定(自由形式) (setq f90-mode-hook (lambda () (setq f90-do-indent 2 f90-if-indent 2 f90-program-indent 2 f90-continuation-indent 2 ) ;;(turn-on-font-lock) )) 参考サイト .emacsの覚書 Emacs Lisp TIPS
https://w.atwiki.jp/kobapan/pages/183.html
$ sudo cp .emacs /root/.emacs
https://w.atwiki.jp/nkym_memo/pages/34.html
emacsコマンド/キーバインド/ショートカット コマンドを調べる f1 k (describe-key) (describe-key)に調べたいコマンドを入れる コマンド名(関数名)を指定してコマンドを実行する M-x (command) ※TAB または C-iで補完 ミニバッファで履歴をたどる 検索、ファイルのオープンにも可能 履歴の取り出し M-nで下方向(前)、M-pで上方向(後) 正規表現を利用した履歴の取り出し M-sで下方向(前)、M-rで上方向(後) コピー&ペースト/キル&ヤンク キーバインド 説明 コマンド名 C-x h 全選択 C-@ またはC-SPACE マークセット(選択範囲の開始) C-w 選択範囲の切り取り M-w 選択範囲のコピー C-y 貼り付け M-y キルリング(クリップボード)を遡って張り付け 入力支援 バッファから単語を補完する(動的略語展開) M-/(dabbrev-expand)カーソル直前の文字列から始まる単語をバッファから探索し補完 望みでない場合、再びM-/をコマンドすることでカーソルから離れた位置を検索する M-/ コメントの補完 M-;(comment-dwim)モードによってコメントを作成/削除する。状況に応じて挙動は以下のように変わる。 transient-mark-modeで範囲選択をしてから その範囲をすべてコメントアウト コメントアウトされている場合は外す 現在行が空行のとき、その行をコメントにしてからインデントする 空行ではない行では一行コメントを作成 C-u M-;では一行コメントを削除 hippie-expand.el 略語展開をまとめたelisp M-x hippie-expand。展開する順を設定。詳しくはhippie-expand.elに記述されている。 以下を.emacsに追記 ;;; 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)) smartchr.el 同じキーを連続して叩くと、別の文字列が入力されるよう設定する。 例えば、(を1回打つと( )""と自動で閉じ、なおかつカーソルを中央に移動させ、2回打つと( と通常通りに入力されるようにできる。 参考として http //tech.kayac.com/archive/emacs-tips-smartchr.html 以下を.emacsに追記 ;;; 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 '("\" `!!' \"" "\""))) テキスト整形 桁揃え M-x align 検索 画面下方向へと文字列を検索(isearch-forward) C-s 検索文字列 画面上方向へと文字列を検索(isearch-backward) C-r 検索文字列 検索文字列のポイントは、C-sで次、C-rで前へと移動する。 置換 文字列置換(query-replace) M-% キー 概要 y,SPC(スペース) 置換して次へ進む n,DEL( backspace ) 置換しないで次へ進む ! すべて置換する .(ピリオド) 置換してからその場所で置換処理を終える q,RET 置換せずにその場所で置換処理を終える C-r 再帰編集に入る C-w 置換対象を削除してから再帰編集に入る e 置換対象をミニバッファで編集する(置換後の文字を修正) C-l 画面を再絵画 , 置換した後その場でプロンプトを出す ?,C-h ヘルプを表示する 外部プログラム Emacs内でコンパイルする Emacsでプログラムをコンパイルする。デフォルトはmake。 M-g M-n(next-error)でその行にジャンプ M-g M-p(previous-error)は前のエラー行へジャンプ M-x compile 例) M-x compile(Enter) gcc ファイル.c 再コンパイル M-x recompile カーソル移動 キーバインド 説明 コマンド名 C-b 一文字戻る backward-char C-f 一文字進む forward-char C-a 行頭へ移動する move-beginning-of-line C-e 行末へ移動する move-end-of-line M-b 前の単語へ移動する backward-word M-f 次の単語へ移動する forward-word C-p 前の行へ移動する previous-line C-n 次の行へ移動する next-line M-a 前の文へ移動する backward-sentence M-e 次の文へ移動する forward-sentence M- バッファ先頭へ移動する M- バッファ末尾へ移動する 参考文献 Emacsテクニックバイブル〜作業効率をカイゼンする200の技〜(るびきち,2010,技術評論社)
https://w.atwiki.jp/2dtales/pages/122.html
A.C.S. 起動方法 @Ver.5.224 A.C.S. 起動方法 @Ver.5.224事前準備 フォルダ構成 起動~初期設定・PLAY 事前準備 ① http //anibache.web.t-racing.org/ACS/と作成者のWindows SkyDriveディレクトリの2サイトにアクセス、メニューのgame欄に移動し下記のファイルをダウンロードする。 ACS.exe (ゲーム本体) TO○.exe (キャラクターファイルで複数あり。一つでも欠けていると誤作動が生じます。) dammy.player (新キャラ用の仮ファイル) STAGE.exe (ステージファイル) 最新更新用パッチファイル(作者様のサイトよりDL) ② 必要に応じて『no-BGM.lzh』と『DLC.zip』も用意。 これらの使用方法に関してはこちらのページでは解説致しません。 フォルダ構成 ① 『ACS.exe』をダブルクリック、指示に従って解凍する。 DGCA形式で圧縮されています。展開先はデスクトップ等適当で良いです。そこに『ACS』フォルダが作成されます。ただしACSはフォルダ全体で約900MB程のサイズになりますので、展開先の空き容量に注意して下さい。 ② 残りの『TO○.exe』・『STAGE.exe』も同様にダブルクリックして解凍する。 展開先は先ほど作成した『ACS』フォルダを指定して下さい。例:C \Users\×××\Desktop\ACS ③ 『PATCH5.224.exe』を『ACS』フォルダに移動、ダブルクリックして更新を適用させる。 終了したらパッチは削除しても問題ありません。 起動~初期設定・PLAY ① 『ACS』フォルダの中にあるトクナガのアイコンの『ACS.exe』をダブルクリックして起動。 起動しない等はよくある質問へどうぞ。 ② 下記の初期設定を済ます。 メニューバーのOption→Gameを選び、ゲームタイマーを0にする。 キーコンフィグはキーボードで操作するならOption→Keyboard、ジョイパッドを使用するならJoyStickを選択、お好みで割り当てて下さい。 フルウィンドウでプレイしたい場合はキーボードのF4キーを押す。元に戻す場合も同様。 ③ お疲れ様でした。
https://w.atwiki.jp/nkym_memo/pages/158.html
;; .emacs ;; Last Updated 2011/10/20 Thu 09 26 23 (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. '(column-number-mode t) '(show-paren-mode 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. '(default ((t ( inherit nil stipple nil background "gray7" foreground "white" inverse-video nil box nil strike-through nil overline nil underline nil slant normal weight normal height 98 width normal foundry "unknown" family "Takaoゴシック"))))) (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") (set-face-foreground 'font-lock-comment-face "darkorange") ;; コメント (set-face-foreground 'font-lock-string-face "hotpink") ;; ""で囲まれた文字 (set-face-foreground 'font-lock-keyword-face "cyan") (set-face-foreground 'font-lock-function-name-face "white") (set-face-foreground 'font-lock-variable-name-face "white") (set-face-foreground 'font-lock-type-face "skyblue1") (set-face-foreground 'font-lock-warning-face "yellow") (set-face-foreground 'font-lock-builtin-face "lightsteelblue") )) ;;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 . 92)) ; フレーム高(文字数) initial-frame-alist)) ;;; 新規フレームのデフォルト設定 (setq default-frame-alist (append '((width . 45); フレーム幅(文字数) (height . 92)); フレーム高(文字数) 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 1000) ;; 最近使ったファイルに加えないファイルを正規表現で指定する (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 -expert -watchfile 3") ;;;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) ;;--------------org-mode--------------------------------------- (require 'org) (defun org-insert-upheading-dwim (arg) "1レベル上の見出しを入力する" (interactive "P") (org-insert-heading arg) (cond ((org-on-heading-p) (org-do-promote)) ((org-at-item-p) (org-indent-item -1)))) (defun org-insert-heading-dwim (arg) "現在と同じレベルの見出しを入力する。" "C-u 1レベル上" "C-u C-u 1レベル下" (interactive "p") (case arg (4 (org-insert-subheading nil)) ;C-u (16 (org-insert-upheading nil)) ;C-u C-u (t (org-insert-heading nil)))) (define-key org-mode-map (kbd " C-return ") 'org-insert-heading-dwim) (org-remember-insinuate) ;; メモを格納するorgファイルの設定 (setq org-directory "~/Documents/memo") (setq org-default-notes-file (expand-file-name "memo.org" org-directory)) ;; テンプレートの設定 (setq org-remember-templates '(("Note" ?n "** %?\n %i\n %a\n %T" nil "Inbox") ("Todo" ?t "** TODO %?\n %i\n %a\n %T" nil "Inbox"))) ;; Select template [n]ote [t]odo (global-set-key [f1] 'org-remember) ;; TODOリストの設定 (setq org-use-fast-todo-selection t) (setq org-todo-keywords '((sequence "TODO(t)" "STARTED(s)" "WAITING(w)" "|" "DONE(x)" "CANCEL(c)") (sequence "APPT(a)" "|" "DONE(x)" "CANCEL(c)" ))) ;; ハイパーリンクの作成 (global-set-key (kbd "C-c l") 'org-store-link) ;; M-x org-rememberによるメモを集めるorgファイル (setq org-default-notes-file "~/Documents/memo/plan.org") ;; 予定表に使うorgファイルのリスト (setq org-agenda-files (list org-default-notes-file)) (global-set-key (kbd "C-c a") 'org-agenda) ;; w3m (require 'w3m-load) (setq w3m-home-page "www.google.co.jp/") ;起動時に開くページ (setq w3m-use-cookies t) ;クッキーを使う (setq w3m-bookmark- "~/.w3m/bookmark.html") ;ブックマークを保存する (setq browse-url-browser-function 'w3m-browse-url) (autoload 'w3m-browse-url "w3m" "Ask a browser to show a URL." t) (global-set-key "\C-xm" 'browse-url-at-point) (autoload 'w3m-find-file "w3m" "w3m interface function for local file." t) (autoload 'w3m-search "w3m-search" "Search QUERY using SEARCH-ENGIN." t) (setq w3m-search-default-engin "google-ja") (global-set-key "\C-cs" 'w3m-search) (autoload 'w3m-weather "w3m-weather" "Display weather report." t) (autoload 'w3m-antenna "w3m-antenna" "Report change of WEB ." t) (autoload 'w3m- "w3m-namazu" "Search files with Namazu." t) ;; 折りたたみ (require 'fold-dwim) ;; コンパイルでの*compilation*ウィンドウの文字コード調整 (add-hook 'set-language-environment-hook (lambda () (when (equal "ja_JP.UTF-8" (getenv "LANG")) (setq default-process-coding-system '(utf-8 . utf-8)) (setq default-file-name-coding-system 'utf-8)) (when (equal "Japanese" current-language-environment) (setq default-buffer-file-coding-system 'iso-2022-jp)))) (set-language-environment "Japanese")
https://w.atwiki.jp/vocaloidchly/pages/4011.html
作詞:q*Left 作曲:八王子P 編曲:八王子P 歌:初音ミク 翻譯:MIU Baby Maniacs Lovely? Cutie? Sexy? Prettey? Cool? or Chic? 今天要以怎樣的我來進攻呢 絕對領域對照下發生思考錯誤 獨佔你的視線這點沒錯吧 期望著 祈禱著 更多更多來渴求吧 我什麼都能做哦 如你所願的一切 為我換裝 讓我變身 什麼都來對我用上吧 隨後將我緊緊擁抱! Baby boy! 無法停下的中毒 快些來誘惑我 呐你不放心上嗎?你的雙眼中映出著誰呢? 若是為了讓你回頭 我會用上一切手段哦 與超絕自我主義的你相配的只有我 呐在我心中就只剩下你 別再裝著一副不明白了 來阻止胸中這份痛楚吧 再更多地來在意我 Baby Maniacs! 沉溺進去了呢 快來將我帶出 呐入迷了呢 我雙眼中映出的再無他人 真是多愁善感呢 有什麼不滿呢 為什麼還蠻不講理地大叫著 love you! I need you! 我可是為了與你相遇而誕生的呢!
https://w.atwiki.jp/uec1class1/pages/14.html
ここではEmacsのコードについての説明を書いていきます。
https://w.atwiki.jp/ochamemo/pages/26.html
オチャメモ 使い方 cvs-status ワークディレクトリを指定 ワークディレクトリ内の状態が一覧表示される 内容 操作 備考 一覧表示 M-x cvs-status 全ファイルが表示される。ただしUnknownファイルは表示されない 状況確認 M-x cvs-examine 変更や追加されたファイルのみ表示される 更新 M-x cvs-update or g リポジトリから最新を持ってきてローカルとマージ コミット cvs-examine後、コミットしたいファイルをマークして"C" コミット前には更新しておくこと。全体に対してはどうやる? 追加 cvs-examine後、追加したいファイル上で「a」 Unknownが表示される 変更の放棄 放棄したいファイル上で「U」もしくはマークしてから「U」 削除 削除したいファイル上で「r」。物理ファイルも削除される diff cvs-status後、表示したいファイル上で「=」 特定リビジョンとのdiffは履歴を表示させてから対象リビジョン上で「=」押下 履歴 cvs-status後、表示したいファイル上で「l」 特定リビジョンを持ってくる cvs update -p -r リビジョン ファイル ファイル コマンドしかない?普通に取るとスティッキータグがつくので標準出力にだす。PCL-CVSでのやり方がわからない。。。 特定リビジョンを表示 履歴表示後、リビジョン上で「f」 examine表示時にコミットマークを消す x マークが邪魔のときにでも。。。いらない? 変更を取り消す cvs update -C -l -d -P ファイル名 全マーク 「M」 - ALT+bs 注意事項 commit前には一度ログ表示してみて、ファイル個別のログが表示されるか確認したほうが良い。-全体のログが表示されてしまうときは要注意。やり直したほうが良い。さもないと全ファイルにcommitがかかる。 他にもcommit前には、cvs-examineをやり直したほうが良いかもしれない。 とにかくcvs-status上でリポジトリ操作はやめたほうが良い。 ファイルを何も変更せずにタイムスタンプを変更した場合、Modifiedマークがつくがcvs-examineもしくはcvs-statusすれば、マークは消える(中身の違いをきちんと見ている)。 インストールなど debianだとpcl-cvsは入っていた。(emacs21から標準らしい) キーバインドなどhttp //www4.kcn.ne.jp/~boochang/emacs/pcl-cvs-vc.html 説明は以下のほうが詳しい。ただしここで説明されているPCL-CVSパッケージはAPTリポジトリには存在しない模様。http //www.ep.sci.hokudai.ac.jp/~morikawa/memo/cvs_emacs.txt