私は最近数回コンピューターを切り替えましたが、途中で .emacs を失いました。私はそれをもう一度構築しようとしていますが、そうしているうちに、他の人が使用する他の優れた構成を取り上げると思いました。
では、Emacs を使用している場合、.emacs には何が入っているのでしょうか?
私のものは現在かなり不毛で、次のものしか含まれていません。
(global-font-lock-mode 1)何が便利だと思いますか？
究極のドットファイルサイトを使用してください。ここに「.emacs」を追加します。他の人の「.emacs」を読んでください。
私のお気に入りのスニペット。究極の Emacs の目の保養:
;; real lisp hackers use the lambda character
;; courtesy of stefan monnier on c.l.l
(defun sm-lambda-mode-hook ()
(font-lock-add-keywords
nil `(("\\<lambda\\>"
(0 (progn (compose-region (match-beginning 0) (match-end 0)
,(make-char 'greek-iso8859-7 107))
nil))))))
(add-hook 'emacs-lisp-mode-hook 'sm-lambda-mode-hook)
(add-hook 'lisp-interactive-mode-hook 'sm-lamba-mode-hook)
(add-hook 'scheme-mode-hook 'sm-lambda-mode-hook)
したがって、lisp/scheme を編集すると、次のように表示されます。
(global-set-key "^Cr" '(λ () (interactive) (revert-buffer t t nil)))
私はこれを変更しyesたり、noプロンプトを表示しyたり、プロンプトをn表示したりする必要があります。
(fset 'yes-or-no-p 'y-or-n-p)
私はこの質問から得た「ファンファーレ」をあまり使わずにEmacsを始めるためにこれらを持っています。
(setq inhibit-startup-echo-area-message t)
(setq inhibit-startup-message t)
そして、編集中のファイルとそれに対応するバッファーの名前を変更するSteveYeggeの関数：
(defun rename-file-and-buffer (new-name)
"Renames both current buffer and file it's visiting to NEW-NAME."
(interactive "sNew name: ")
(let ((name (buffer-name))
(filename (buffer-file-name)))
(if (not filename)
(message "Buffer '%s' is not visiting a file!" name)
(if (get-buffer new-name)
(message "A buffer named '%s' already exists!" new-name)
(progn
(rename-file name new-name 1)
(rename-buffer new-name)
(set-visited-file-name new-name)
(set-buffer-modified-p nil))))))
非常に役立つことの 1 つは、ファイルが大きくなりすぎる前に、さまざまなタスクのために複数のファイルに分割してみてください: 私の .emacs は、ロード パスを設定するだけで、一連のファイルをロードするだけです。の特定の設定mode-configs.el、 のキーバインドkeys.elなど
私の .emacs は 127 行しかありません。最も役立つ小さなスニペットを次に示します。
;; keep backup files neatly out of the way in .~/
(setq backup-directory-alist '(("." . ".~")))
これにより、ディレクトリが乱雑になっていることがわかった *~ ファイルが特別なディレクトリに移動します。この場合は .~
;; uniquify changes conflicting buffer names from file<2> etc
(require 'uniquify)
(setq uniquify-buffer-name-style 'reverse)
(setq uniquify-separator "/")
(setq uniquify-after-kill-buffer-p t) ; rename after killing uniquified
(setq uniquify-ignore-buffers-re "^\\*") ; don't muck with special buffers
これは、複数のファイルが同じ名前を持っているときに取得する醜い file<2> などのバッファ名を、ファイルのパス全体を必要なだけ使用して、より明確な名前に変更する uniquify を設定します。
それだけです...残りは、誰もが知っていると確信しているかなり標準的なものです。
私はすでに言及されている他の多くを持っていますが、これらは私の意見では絶対に必要です：
(transient-mark-mode 1) ; makes the region visible
(line-number-mode 1) ; makes the line number show up
(column-number-mode 1) ; makes the column number show up
これはキットとkaboodle全体ではありませんが、私が収集したより便利なスニペットの一部です。
(defadvice show-paren-function (after show-matching-paren-offscreen
activate)
"If the matching paren is offscreen, show the matching line in the
echo area. Has no effect if the character before point is not of
the syntax class ')'."
(interactive)
(let ((matching-text nil))
;; Only call `blink-matching-open' if the character before point
;; is a close parentheses type character. Otherwise, there's not
;; really any point, and `blink-matching-open' would just echo
;; "Mismatched parentheses", which gets really annoying.
(if (char-equal (char-syntax (char-before (point))) ?\))
(setq matching-text (blink-matching-open)))
(if (not (null matching-text))
(message matching-text))))
;;;;;;;;;;;;;;;
;; UTF-8
;;;;;;;;;;;;;;;;;;;;
;; set up unicode
(prefer-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
;; This from a japanese individual. I hope it works.
(setq default-buffer-file-coding-system 'utf-8)
;; From Emacs wiki
(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
;; Wwindows clipboard is UTF-16LE
(set-clipboard-coding-system 'utf-16le-dos)
(defun jonnay-timestamp ()
"Spit out the current time"
(interactive)
(insert (format-time-string "%Y-%m-%d")))
(defun jonnay-sign ()
"spit out my name, email and the current time"
(interactive)
(insert "-- Jonathan Arkell (jonathana@criticalmass.com)")
(jonnay-timestamp))
;; Cygwin requires some seriosu setting up to work the way i likes it
(message "Setting up Cygwin...")
(let* ((cygwin-root "c:")
(cygwin-bin (concat cygwin-root "/bin"))
(gambit-bin "/usr/local/Gambit-C/4.0b22/bin/")
(snow-bin "/usr/local/snow/current/bin")
(mysql-bin "/wamp/bin/mysql/mysql5.0.51a/bin/"))
(setenv "PATH" (concat cygwin-bin ";" ;
snow-bin ";"
gambit-bin ";"
mysql-bin ";"
".;")
(getenv "PATH"))
(setq exec-path (cons cygwin-bin exec-path)))
(setq shell-file-name "bash")
(setq explicit-shell-file-name "bash")
(require 'cygwin-mount)
(cygwin-mount-activate)
(message "Setting up Cygwin...Done")
; Completion isn't perfect, but close
(defun my-shell-setup ()
"For Cygwin bash under Emacs 20+"
(setq comint-scroll-show-maximum-output 'this)
(setq comint-completion-addsuffix t)
(setq comint-eol-on-send t)
(setq w32-quote-process-args ?\")
(make-variable-buffer-local 'comint-completion-addsuffix))
(setq shell-mode-hook 'my-shell-setup)
(add-hook 'emacs-startup-hook 'cygwin-shell)
; Change how home key works
(global-set-key [home] 'beginning-or-indentation)
(substitute-key-definition 'beginning-of-line 'beginning-or-indentation global-map)
(defun yank-and-down ()
"Yank the text and go down a line."
(interactive)
(yank)
(exchange-point-and-mark)
(next-line))
(defun kill-syntax (&optional arg)
"Kill ARG sets of syntax characters after point."
(interactive "p")
(let ((arg (or arg 1))
(inc (if (and arg (< arg 0)) 1 -1))
(opoint (point)))
(while (not (= arg 0))
(if (> arg 0)
(skip-syntax-forward (string (char-syntax (char-after))))
(skip-syntax-backward (string (char-syntax (char-before)))))
(setq arg (+ arg inc)))
(kill-region opoint (point))))
(defun kill-syntax-backward (&optional arg)
"Kill ARG sets of syntax characters preceding point."
(interactive "p")
(kill-syntax (- 0 (or arg 1))))
(global-set-key [(control shift y)] 'yank-and-down)
(global-set-key [(shift backspace)] 'kill-syntax-backward)
(global-set-key [(shift delete)] 'kill-syntax)
(defun insert-file-name (arg filename)
"Insert name of file FILENAME into buffer after point.
Set mark after the inserted text.
Prefixed with \\[universal-argument], expand the file name to
its fully canocalized path.
See `expand-file-name'."
;; Based on insert-file in Emacs -- ashawley 2008-09-26
(interactive "*P\nfInsert file name: ")
(if arg
(insert (expand-file-name filename))
(insert filename)))
(defun kill-ring-save-filename ()
"Copy the current filename to the kill ring"
(interactive)
(kill-new (buffer-file-name)))
(defun insert-file-name ()
"Insert the name of the current file."
(interactive)
(insert (buffer-file-name)))
(defun insert-directory-name ()
"Insert the name of the current directory"
(interactive)
(insert (file-name-directory (buffer-file-name))))
(defun jonnay-toggle-debug ()
"Toggle debugging by toggling icicles, and debug on error"
(interactive)
(toggle-debug-on-error)
(icicle-mode))
(defvar programming-modes
'(emacs-lisp-mode scheme-mode lisp-mode c-mode c++-mode
objc-mode latex-mode plain-tex-mode java-mode
php-mode css-mode js2-mode nxml-mode nxhtml-mode)
"List of modes related to programming")
; Text-mate style indenting
(defadvice yank (after indent-region activate)
(if (member major-mode programming-modes)
(indent-region (region-beginning) (region-end) nil)))
ここで見ることができます: http://www.dotemacs.de/
そして、私の .emacs もここに置くにはかなり長いので、答えが読みにくくなります。とにかく、あなたが望むなら、私はあなたにそれを送ることができます.
また、これを読むことをお勧めします: http://steve.yegge.googlepages.com/my-dot-emacs-file
Emacs 内から編集中の Web ページを更新するには
(defun moz-connect()
(interactive)
(make-comint "moz-buffer" (cons "127.0.0.1" "4242"))
(global-set-key "\C-x\C-g" '(lambda ()
(interactive)
(save-buffer)
(comint-send-string "*moz-buffer*" "this.BrowserReload()\n"))))
私のサイトで、私の設定 (html と tar アーカイブの両方) を見つけることができます。さまざまなモードの設定がたくさん含まれています
以下は、私が依存するようになったキー マッピングの一部です。
(global-set-key [(control \,)] 'goto-line)
(global-set-key [(control \.)] 'call-last-kbd-macro)
(global-set-key [(control tab)] 'indent-region)
(global-set-key [(control j)] 'join-line)
(global-set-key [f1] 'man)
(global-set-key [f2] 'igrep-find)
(global-set-key [f3] 'isearch-forward)
(global-set-key [f4] 'next-error)
(global-set-key [f5] 'gdb)
(global-set-key [f6] 'compile)
(global-set-key [f7] 'recompile)
(global-set-key [f8] 'shell)
(global-set-key [f9] 'find-next-matching-tag)
(global-set-key [f11] 'list-buffers)
(global-set-key [f12] 'shell)
主に C++ 開発用のその他の雑多なもの:
;; Use C++ mode for .h files (instead of plain-old C mode)
(setq auto-mode-alist (cons '("\\.h$" . c++-mode) auto-mode-alist))
;; Use python-mode for SCons files
(setq auto-mode-alist (cons '("SConstruct" . python-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("SConscript" . python-mode) auto-mode-alist))
;; Parse CppUnit failure reports in compilation-mode
(require 'compile)
(setq compilation-error-regexp-alist
(cons '("\\(!!!FAILURES!!!\nTest Results:\nRun:[^\n]*\n\n\n\\)?\\([0-9]+\\)) test: \\([^(]+\\)(F) line: \\([0-9]+\\) \\([^ \n]+\\)" 5 4)
compilation-error-regexp-alist))
;; Enable cmake-mode from http://www.cmake.org/Wiki/CMake_Emacs_mode_patch_for_comment_formatting
(require 'cmake-mode)
(setq auto-mode-alist
(append '(("CMakeLists\\.txt\\'" . cmake-mode)
("\\.cmake\\'" . cmake-mode))
auto-mode-alist))
;; "M-x reload-buffer" will revert-buffer without requiring confirmation
(defun reload-buffer ()
"revert-buffer without confirmation"
(interactive)
(revert-buffer t t))
.emacsを整理しておくようにしています。構成は常に進行中ですが、全体的な構造に満足し始めています。
すべてのものは~/.elisp、バージョン管理下にあるディレクトリの下にあります（興味がある場合は、gitを使用します）。 ~/.emacs単に~/.elisp/dotemacsそれ自体がロードするポイントを指します~/.elisp/cfg/init。そのファイルは、を介してさまざまな構成ファイルをインポートしますrequire。これは、構成ファイルがモードのように動作する必要があることを意味します。構成ファイルは、依存するものをインポートしprovide、ファイルの最後にそれ自体をインポートします(provide 'my-ibuffer-cfg)。構成で定義されているすべての識別子の前に。を付けmy-ます。
私は、技術的な意味ではなく、モード/サブジェクト/タスクに関して構成を整理します。たとえば、すべてのキーバインディングまたは面が定義されている個別の構成ファイルはありません。
私init.elは次のフックを定義して、保存するたびにEmacsが構成ファイルを再コンパイルするようにします（コンパイルされたElispの読み込みははるかに高速ですが、この手順を手動で実行したくありません）。
;; byte compile config file if changed
(add-hook 'after-save-hook
'(lambda ()
(when (string-match
(concat (expand-file-name "~/.elisp/cfg/") ".*\.el$")
buffer-file-name)
(byte-compile-file buffer-file-name))))
これは、次のディレクトリ構造です~/.elisp。
~/.elisp/todo.org：まだ実行する必要があることを追跡するOrg-modeファイル（+ウィッシュリストアイテム）。
~/.elisp/dotemacs：のシンボリックリンクターゲット~/.emacs、ロード~/.elisp/cfg/init。
~/.elisp/cfg：私自身の設定ファイル。
~/.elisp/modes：単一のファイルのみで構成されるモード。
~/.elisp/packages：Lisp、ドキュメント、そしておそらくリソースファイルを備えた洗練されたモード。
私はGNUEmacsを使用していますが、そのバージョンはパッケージを実際にはサポートしていません。したがって、私はそれらを手動で整理します。通常は次のよう
~/.elisp/packages/foobar-0.1.3になります。はパッケージのルートディレクトリです。サブディレクトリlispはすべてのlispファイルを保持しinfo、ドキュメントが置かれる場所です。 ~/.elisp/packages/foobarは、現在使用されているバージョンのパッケージを指すシンボリックリンクであるため、何かを更新するときに構成ファイルを変更する必要はありません。一部のパッケージでは~/.elisp/packages/foobar.installation、インストールプロセスに関するメモを保持するファイルを保持しています。パフォーマンス上の理由から、新しくインストールされたパッケージですべてのelispファイルをコンパイルしますが、デフォルトではそうではありません。
このブロックは私にとって最も重要です:
(setq locale-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-selection-coding-system 'utf-8)
(prefer-coding-system 'utf-8)
しかし、私はそれらの違いについて明確にしたことはありません。カーゴ・カルト、たぶん...
ここに私自身のもののいくつかがあります：
ISO 8601 形式で日付を挿入します。
(defun insertdate ()
(interactive)
(insert (format-time-string "%Y-%m-%d")))
(global-set-key [(f5)] 'insertdate)
C++ プログラマの場合、クラス スケルトンを作成します (クラスの名前は、拡張子を除いたファイル名と同じになります)。
(defun createclass ()
(interactive)
(setq classname (file-name-sans-extension (file-name-nondirectory buffer-file-name)))
(insert
"/**
* " classname".h
*
* Author: Your Mom
* Modified: " (format-time-string "%Y-%m-%d") "
* Licence: GNU GPL
*/
#ifndef "(upcase classname)"
#define "(upcase classname)"
class " classname "
{
public:
"classname"();
~"classname"();
private:
};
#endif
"))
閉じ括弧を自動的に作成します。
(setq skeleton-pair t)
(setq skeleton-pair-on-word t)
(global-set-key (kbd "[") 'skeleton-pair-insert-maybe)
(global-set-key (kbd "(") 'skeleton-pair-insert-maybe)
(global-set-key (kbd "{") 'skeleton-pair-insert-maybe)
(global-set-key (kbd "<") 'skeleton-pair-insert-maybe)
私は簡単な（e）lisp処理とidoモードのミニバッファ補完のためにpareditを使用しています。
誰もが非常に異なる目的でEmacsを使用しているため、この質問に答えるのは難しいです。
さらに、より良い習慣はあなたのdotemacsをキスすることかもしれません。Easy Customization InterfaceはEmacsのモード間で広くサポートされているため、すべてのカスタマイズをcustom-file（dotemacsの別の場所にある可能性があります）に保存する必要があります。dotemacsの場合は、ロードパス設定、パッケージに必要なフック、フックのみを入力します。 、およびキーバインディング。Emacs Starter Kitの使用を開始すると、便利な設定がすべてdotemacsから削除される可能性があります。
EmacsWiki のDotEmacsカテゴリを参照してください。この質問に対処するページへのリンクがたくさんあります。
Webページへの便利なショートカットとwebjumpを使用した検索を設定しました
(require 'webjump)
(global-set-key [f2] 'webjump)
(setq webjump-sites
(append '(
("Reddit Search" .
[simple-query "www.reddit.com" "http://www.reddit.com/search?q=" ""])
("Google Image Search" .
[simple-query "images.google.com" "images.google.com/images?hl=en&q=" ""])
("Flickr Search" .
[simple-query "www.flickr.com" "flickr.com/search/?q=" ""])
("Astar algorithm" .
"http://www.heyes-jones.com/astar")
)
webjump-sample-sites))
これがどのように機能するかについてのブログ投稿はこちら
http://justinsboringpage.blogspot.com/2009/02/search-reddit-flickr-and-google-from.html
また、私はこれらをお勧めします：
(setq visible-bell t) ; no beeping
(setq transient-mark-mode t) ; visually show region
(setq line-number-mode t) ; show line numbers
(setq global-font-lock-mode 1) ; everything should use fonts
(setq font-lock-maximum-decoration t)
また、私は余分なGUIのもののいくつかを取り除きます
(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
(if (fboundp 'menu-bar-mode) (menu-bar-mode -1)))
(put 'erase-buffer 'disabled nil)
(put 'downcase-region 'disabled nil)
(set-variable 'visible-bell t)
(set-variable 'tool-bar-mode nil)
(set-variable 'menu-bar-mode nil)
(setq load-path (cons (expand-file-name "/usr/share/doc/git-core/contrib/emacs") load-path))
(require 'vc-git)
(when (featurep 'vc-git) (add-to-list 'vc-handled-backends 'git))
(require 'git)
(autoload 'git-blame-mode "git-blame"
"Minor mode for incremental blame for Git." t)
私のemacs構成は何年にもわたってかなり大きくなり、そこにはたくさんの便利なものがありますが、2つの機能があれば、おそらくそれらの機能だったでしょう。
CxUPとCxDOWNを定義して、現在の行を移動するか、カーソルを正しい位置に置いたまま下に移動します。
;Down/UP the current line
(global-set-key '[(control x) (up)] 'my-up-line)
(global-set-key '[(control x) (down)] 'my-down-line)
(defun my-down-line()
(interactive)
(let ((col (current-column)))
(forward-line 1)
(transpose-lines 1)
(forward-line -1)
(forward-char col)
)
)
(defun my-up-line()
(interactive)
(let ((col (current-column)))
(transpose-lines 1)
(forward-line -2)
(forward-char col)
)
)
私はemacsを初めて使用しますが、.emacsファイルには次のようなものがあります。
emacs-starter-kitをベースとして、.. 、、、、を追加vimpulse.elしました。whitespace.elyasnippettextmate.elnewsticker.el
私の〜/ .emacs.d / $ USERNAME.el（dbr.el）ファイル：
(add-to-list 'load-path (concat dotfiles-dir "/vendor/"))
;; Snippets
(add-to-list 'load-path "~/.emacs.d/vendor/yasnippet/")
(require 'yasnippet)
(yas/initialize)
(yas/load-directory "~/.emacs.d/vendor/yasnippet/snippets")
;; TextMate module
(require 'textmate)
(textmate-mode 'on)
;; Whitespace module
(require 'whitespace)
(add-hook 'ruby-mode-hook 'whitespace-mode)
(add-hook 'python-mode-hook 'whitespace-mode)
;; Misc
(flyspell-mode 'on)
(setq viper-mode t)
(require 'viper)
(require 'vimpulse)
;; IM
(eval-after-load 'rcirc '(require 'rcirc-color))
(setq rcirc-default-nick "_dbr")
(setq rcirc-default-user-name "_dbr")
(setq rcirc-default-user-full-name "_dbr")
(require 'jabber)
;;; Google Talk account
(custom-set-variables
'(jabber-connection-type (quote ssl))
'(jabber-network-server "talk.google.com")
'(jabber-port 5223)
'(jabber-server "mysite.tld")
'(jabber-username "myusername"))
;; Theme
(color-theme-zenburn)
;; Key bindings
(global-set-key (kbd "M-z") 'undo)
(global-set-key (kbd "M-s") 'save-buffer)
(global-set-key (kbd "M-S-z") 'redo)
Scalaコーダーの場合
;; Load the ensime lisp code... http://github.com/aemoncannon/ensime
(add-to-list 'load-path "ENSIME_ROOT/elisp/")
(require 'ensime)
;; This step causes the ensime-mode to be started whenever ;; scala-mode is started for a buffer. You may have to customize this step ;; if you're not using the standard scala mode.
(add-hook 'scala-mode-hook 'ensime-scala-mode-hook)
;; MINI HOWTO: ;; Open .scala file. M-x ensime (once per project)
FWIW、私の .emacs はここにあります:
たくさんのもの：https://github.com/tavisrudd/emacs.d
el-getにより、それと依存関係の管理がはるかに簡単になりました: https://github.com/tavisrudd/emacs.d/blob/master/dss-init-el-get.el
ロード パスを修正する 1 行 初期化ライブラリをロードする 1 行 Emacs 初期化ファイルをロードする 1 行
もちろん、「emacs init ファイル」は非常に多数あり、特定のものごとに 1 つずつ、決定論的な順序でロードされます。
これを読んだ後、最高の .emacs の変更のためだけにシンプルなサイトを用意するのは良いことだと思いました。ここに自由に投稿して投票してください。