約 1,343,610 件
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) ;; アイドル2秒で保存 (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/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/ntemacs/pages/36.html
■ Linux の Emacs で利用できる設定 【お知らせ】 2019/05/07 追記 現在は Cygwin の代わりに WSL を使うことで同様な環境を構築できます。そもそも WSL があれば、リモートマシンで Emacs を起動する必要は無いのかもしれません。 2017/05/01 追記 dired のソート順を制御する ls-lisp-UCA-like-collation の設定を追加しました。 2016/09/29 追記 os-open-command 関数をファイルとディレクトリのみ(URLは対象外)に機能する関数として見直しました。この見直しにより、os-open-command 関数に指定したファイルとディレクトリを開くコマンドを起動するホストの決定は、第一引数に指定した内容からのみで(default-directory を使わずに)判断するようにしました。(「VirtualBox 上の Ubuntu から WSL を経由して Windows 環境にアクセスするための設定」を利用するための見直しです。) (os-open-command "/home/foo.pdf") ← ローカルホストで実行 (os-open-command "/user@hostname /home/foo.pdf") ← hostname に指定したホストで実行 【本題】 Windows 上の仮想マシン環境(VirtualBox等)で Linux(Ubuntu等) を利用している場合に、その環境で立ち上げる Emacs を使ってローカルマシンの Windowsアプリケーションを起動させるための設定です。Putty などで接続した、リモートマシン上の Linux を使うこともできます。 オプションとして、ローカル環境で Xサーバが動作している場合(VirtualBox で Linux を立ち上げた場合など)で、Tramp で接続する先がさらに Linux の場合、ssh 経由の X11 forwarding が動作するように設定しています。 (リモートのマシンで Xクライアント を起動すると、ssh のトンネルを利用してローカルマシンに表示されます。) <Windowsアプリケーションを起動する場合の使い方> 1) 利用している Windows マシンから、VirtualBox や Putty などで Linux環境を使えるようにする。 2) そこで Emacs を立ち上げ、ローカルマシンの Windows で動いている Cygwin に tramp で dired 接続する。 C-x d /username@WindowsIPアドレス (リターン) 3) Windows で開きたいディレクトリやファイルにカーソルを合わせ、Wキー を入力する。⇒ Windows アプリケーションで開く! 4) dired で開いているフォルダを Explorer で開きたければ、Eキー を入力する。⇒ Explorer で開く! 5) 以下の設定の os-open-file-suffixes変数 に設定してある suffix が付いたファイルであれば、fキー で起動できる。 Wキー や fキー でファイルをオープンした場合は、recentf に登録(recentf-push)するようにしているので、以降 recentf の履歴から直接起動できる。 (helm で recentf の情報源を表示するようにしている場合は、便利) 以下の内容は、Windows 7 を利用している PC での設定手順となります。 0) ローカルマシンに Cygwin がインストールされていなければ、インストールする。 1) Cygwin に sshd がインストールされていなければ(/usr/sbin/sshd があればインストール済み)、インストールする。 2) Cygwin のターミナルを管理者権限で起動する。(右クリックで「管理者として実行」を選択) 3) 既にサービスとして sshd 立ち上げている場合(ps -ef | grep sshd で確認できる)は、次のコマンドを実行する。 (サービスとして立ち上げているかわからないときは、とりあえず次を実行すればOK) # cygrunsrv -R sshd 4) 既に sshd の設定がされている場合(/etc/ssh* があれば設定済み)は、次のコマンドを実行する。 (消すファイルは、/bin/ssh* でないことに注意!!) # rm /etc/ssh* /var/log/sshd.log # rmdir /var/empty 5) 引き続き、次のコマンドを実行する。 # ssh-host-config *** Info Generating /etc/ssh_host_key *** Info Generating /etc/ssh_host_rsa_key *** Info Generating /etc/ssh_host_dsa_key *** Info Generating /etc/ssh_host_ecdsa_key *** Info Creating default /etc/ssh_config file *** Info Creating default /etc/sshd_config file *** Info Privilege separation is set to yes by default since OpenSSH 3.3. *** Info However, this requires a non-privileged account called sshd . *** Info For more info on privilege separation read /usr/share/doc/openssh/README.privsep. *** Query Should privilege separation be used? (yes/no) yes *** Info Updating /etc/sshd_config file *** Query Overwrite existing /etc/inetd.d/sshd-inetd file? (yes/no) yes *** Info Creating default /etc/inetd.d/sshd-inetd file *** Info Updated /etc/inetd.d/sshd-inetd *** Query Do you want to install sshd as a service? *** Query (Say "no" if it is already installed as a service) (yes/no) no ← ここまでとする! *** Info Host configuration finished. Have fun! 6) Cygwin のターミナルを終了する。 7) Cygwin のターミナルを普通に(管理者権限でなく)起動する。 8) /usr/sbin/sshd と入力し、sshd を起動する。 ※ sshd は Windows を再起動する都度、起動する必要がある。 ssh-host-config の設定で ssh をサービスとして登録して立ち上げる方法もあるが、このようにして立ち上げた ssh では cygstart がうまく動かない。 cyglsa-config の設定をし、sshd のサービスの設定でログインアカウントをLSAに変更して「デスクトップとの対話をサービスに許可」のチェックを 入れてみたが、cygstart でディレクトリは開くがアプリケーションは起動しないという状況だった。今のところ、対応策を見つけられていない。 9) ssh localhost でローカルマシンにログインする。 ※ 接続できない場合は、Windowsファイアウォールの設定で TCP 22番のポートを開く必要があるかもしれない。 また、ssh の関連ファイルを削除し、ssh の再設定(ssh-host-config)を行った場合は、次のようなメッセージが出るかもしれない。 その場合は、~/.ssh/known_hosts ファイルを削除する。(他のマシンから Cygwin へアクセスする際に発生したら、同様に対処する) @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @ WARNING REMOTE HOST IDENTIFICATION HAS CHANGED! @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ IT IS POSSIBLE THAT SOMEONE IS DOING SOMETHING NASTY! Someone could be eavesdropping on you right now (man-in-the-middle attack)! It is also possible that a host key has just been changed. The fingerprint for the ECDSA key sent by the remote host is xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx. Please contact your system administrator. Add correct host key in /home/.ssh/known_hosts to get rid of this message. Offending ECDSA key in /home/.ssh/known_hosts 1 ECDSA host key for xxx.xxx.xxx.xxx has changed and you have requested strict checking. Host key verification failed. 10) cygstart . (← ピリオド(カレントディレクトリ)です。/(ルート)などでもいいです)で Explorer が起動することを確認する。 また、Windows アプリケーションとの結びつきをもつ suffix をもったファイルが cygstart で起動できるか確認する。(例:cygstart hoge.xlsx) 11) ここまで来たら、次のことが可能となる。 リモートマシンで Emacs を起動する。(仮想マシン上の Linux でも良い) dired で /ユーザ名@ローカルマシンのIPアドレス を指定し、ローカルマシンのディレクトリをオープンする。 ディレクトリや Windows のアプリケーションで開ける suffix を持ったファイルにカーソルを合わせ、X(dired-do-shell-command)を入力し、プロンプトに cygstart と入力し、リターン押下。 ローカルマシンの Windows のアプリケーションで 指定したファイルが開く!筈 12) ここまでもうまく動いたら、以下の設定を追加してみる。 次のページで紹介している設定の一部を Emacs の設定に追加し、有効にする。 dired を OS と連携して使うための設定 tramp を tramp-method “scp” で使うための設定 (require cl-lib) (require dired) (require ls-lisp) (require recentf) (require tramp) (require tramp-sh) ;; ls-lisp を使う (setq ls-lisp-use-insert-directory-program nil) ;; dired の並び順を Explorer と同じにする (setq ls-lisp-ignore-case t) ; ファイル名の大文字小文字無視でソート (setq ls-lisp-dirs-first t) ; ディレクトリとファイルを分けて表示 (setq dired-listing-switches "-alG") ; グループ表示なし (setq ls-lisp-UCA-like-collation nil) ; for 25.1 or later ;; OSタイプ を調べる (defun os-type () (let ((os-type (shell-command-to-string "uname"))) (cond ((string-match "CYGWIN" os-type) cygwin) ((string-match "Linux" os-type) linux) ((string-match "Darwin" os-type) darwin)))) ;; OS でファイル、ディレクトリを直接開くためのコマンドを決定する (defun os-open-command-name (os-type) (let ((command-name-list (cl-case os-type ( cygwin ("sglstart" "cygstart")) ( linux ("sglstart" "wslstart" "xdg-open" "gnome-open")) ( darwin ("open"))))) (catch loop (dolist (command-name command-name-list) (let* ((command1 (concat "which " command-name " 2 /dev/null")) (command2 (if (file-remote-p default-directory) ;; リモートではログインシェルでコマンドを実行する (format "$0 -l -c %s 2 /dev/null" command1) command1)) (absolute-path-command-name (replace-regexp-in-string "\n" "" (shell-command-to-string command2)))) (unless (string= absolute-path-command-name "") (throw loop absolute-path-command-name))))))) ;; os-open-command のキャッシュ (defvar os-open-command-cache nil) ;; キャッシュを検索・登録する (defun os-open-command-cache () (let* ((hostname (if (file-remote-p default-directory) (let* ((vec (tramp-dissect-file-name default-directory)) (host (tramp-file-name-host vec)) (user (tramp-file-name-user vec))) (if user (format "%s@%s" user host) host)) " localhost "))) (cdr (or (assoc hostname os-open-command-cache) (let* ((os-type (os-type)) (os-open-command-name (os-open-command-name os-type))) (car (push (cons hostname (list os-type os-open-command-name)) os-open-command-cache))))))) ;; OS で直接、ファイル、ディレクトリを開く (defun os-open-command (filename) (interactive) (let ((default-directory (cond ((file-regular-p filename) (file-name-directory filename)) ((file-directory-p filename) filename)))) (if default-directory (let* ((cache (os-open-command-cache)) (os-type (nth 0 cache)) (os-open-command-name (nth 1 cache))) (if os-open-command-name (let ((localname (if (file-remote-p filename) (tramp-file-name-localname (tramp-dissect-file-name filename)) filename))) (message "%s %s" (file-name-nondirectory os-open-command-name) localname) (cond ((and (eq os-type linux) (not (file-remote-p default-directory))) ;; 次の URL の対策を行う ;; http //d.hatena.ne.jp/mooz/20100915/p1 ;; http //i-yt.info/?date=20090829#p01 (let (process-connection-type) (start-process "os-open-command" nil os-open-command-name localname))) (t ;; リモートでもコマンドを実行できるように、start-process ではなく shell-command系を使う (shell-command-to-string (concat os-open-command-name " " (shell-quote-argument localname) " "))))) (message "利用できるコマンドがありません。"))) (message "オープンできるファイルではありません。")))) ;; dired で W 押下時に、カーソル位置のファイルを OS で直接起動する (define-key dired-mode-map (kbd "W") (lambda () (interactive) (let ((filename (dired-get-filename nil t))) (recentf-push filename) ; recentf に追加する (os-open-command filename)))) ;; dired で E 押下時に、開いているディレクトリを OS で直接開く (define-key dired-mode-map (kbd "E") (lambda () (interactive) (os-open-command (dired-current-directory)))) ;; マウスの右ボタン押下時に、開いているディレクトリを OS で直接開く (define-key dired-mode-map [mouse-3] (lambda (event) (interactive "e") (mouse-select-window event) (os-open-command (dired-current-directory)))) ;; OS で起動したいファイルの拡張子一覧 (setq os-open-file-suffixes ("doc" "docx" "xls" "xlsx" "ppt" "pptx" "mdb" "mdbx" "vsd" "vdx" "vsdx" "mpp" "pdf" "bmp" "jpg" "odt" "ott" "odg" "otg" "odp" "otp" "ods" "ots" "odf" )) ;; OS で直接開きたいファイルかどうかを判定する (defun os-open-file-p (filename) (when (file-regular-p filename) (let ((ext (file-name-extension filename))) (when (and ext (member (downcase ext) os-open-file-suffixes)) t)))) ;; dired でファイルを f で開く際に、os-open-file-suffixes リストに指定してあるサフィックスのファイルは OS で直接起動する (advice-add find-file around (lambda (orig-fun rest args) (let* ((file-name (nth 0 args)) (symlink-name (file-symlink-p file-name)) (target-name (if symlink-name symlink-name file-name))) (cond ((os-open-file-p target-name) (let ((filename (expand-file-name file-name))) (recentf-push filename) ; recentf に追加する (os-open-command filename))) (t (apply orig-fun args)))))) ;; tramp の method を設定する (setq tramp-default-method "scp") ;; リモートサーバで shell を開いた時に日本語が文字化けしないよう、LC_ALL と LC_CTYPE の設定を無効にする ;; http //www.gnu.org/software/emacs/manual/html_node/tramp/Remote-processes.html#Running%20a%20debugger%20on%20a%20remote%20host (let ((process-environment tramp-remote-process-environment)) (setenv "LC_ALL" nil) (setenv "LC_CTYPE" nil) (setq tramp-remote-process-environment process-environment)) 次のページで紹介している設定も行う。 tramp による接続先で Xクライアント を実行するための設定 この設定で、Cygwin に接続している dired のバッファで、Wキー や Eキー や fキー を押下することで、Windows アプリケーションが開くようになるはず。 ここまで来ると、helm の recentf に登録されている Cygwin 上のファイル(fキーで起動したものが、recentf に登録される)を選択するだけで起動するようになる。 13) 最後に、必要であれば Emacs を立ち上げるマシンの公開鍵を 接続する Cygwinマシン(ローカルマシン)に登録する。設定方法は次のとおり。 $ ssh-copy-id -i ~/.ssh/id_rsa.pub ユーザID @ ローカルマシンのIPアドレス 変更履歴 2013/11/09 このページを作成した。 2013/11/11 ls-lisp を使うように変更した。 2013/11/15 OSソフトの起動方法の見直しを反映した。 2013/11/17 Linux マシン に接続した際に、ssh 経由で X11 fowarding が有効になるようにした。 2013/11/18 os-open-command-name function の内容を見直した。 2013/11/18 os-open-command function の内部の判定が誤っていたので訂正した。 2014/05/10 tramp による scp 実行時に圧縮オプションが付くようにした。 2014/12/08 Emacs-24.4 では scpc method は提供されていないようなので、tramp-method を scp にした。 2015/06/19 linux で os-open-command を起動する際の判定方法を見直した。 2015/09/13 advice を Emacs-24.4 以降の書式に見直した。 2016/09/29 os-open-command 関数をファイルとディレクトリのみ(URLは対象外)に機能する関数として見直した。 2016/10/05 os-open-command 関数が一度検索した接続先毎の利用コマンドをキャッシュして再利用するように改善した。 2016/10/06 コマンドのキャッシュのキーを ホスト名 から ユーザ名 @ ホスト名 に変更した。 2016/11/19 ローカル接続(tramp 接続でない)の場合の os-open-command-cache のキーを "localhost" から " localhost " に変更した。 2017/04/09 find-file のアドバイスを一部見直した。(os-open-command コマンドの引数が絶対パスとなるように調整した。) 2017/04/20 find-file のアドバイスを一部見直した。(リンク先のファイルの種別を判定できるように対策した。) 2017/05/01 dired のソート順を制御する ls-lisp-UCA-like-collation の設定を追加した。
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/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/yuichi/pages/63.html
IDOの、TACSネットワーク用の端末をこう称していた。
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