Windows下置emacs编译C/C++程序

先记下来，以免日后需要

 

先是设置home

Win+R  regedit打开注册表

software-GNU-Emacs 在右边新建字符串值 右击修改把你想要home在的目录进去，例如我的是D:/Emacs/emacs-23.2

安装cedet和ecb

下载cedet-1.0  ecb-2.40目前是最新的

 

Windows 下编译安装，在命令行下，进入到 cedit 的目录，输入命令：

> path/to/emacs/bin/emacs.exe -Q -l cedet-build.el -f cedet-build

在.emacs中加入

 

;; Load CEDET. ;; See cedet/common/cedet.info for configuration details. (load-file "D:/Emacs/emacs-23.2/cedet-1.0/common/cedet.el") (semantic-load-enable-minimum-features) (semantic-load-enable-code-helpers) (semantic-load-enable-guady-code-helpers) (semantic-load-enable-excessive-code-helpers) (semantic-load-enable-s-debugging-helpers) ;; Enable EDE (Project Management) features (global-ede-mode 1) (global-set-key [f4] 'speedbar)

 

把ecb解压到一个目录里

修改一些文件

1、ecb-analyse.e -(require 'semantic-analyze) +(require 'semantic/analyze) (require 'ecb-layout) (require 'ecb-common-browser) (require 'ecb-method-browser) 2、ecb-cedet-wrapper.el (require 'semantic) -(require 'semantic-ctxt) -(require 'semantic-analyze) -(require 'semanticdb) -(require 'semanticdb-find) -(require 'semanticdb-mode) +(require 'semantic/ctxt) +(require 'semantic/analyze) +(require 'semantic/db) +(require 'semantic/db-find) +(require 'semantic/db-mode) (defconst ecb-semantic-2-loaded (string-match "^2" semantic-version)) 3、ecb-method-browser.el (require 'ecb-speedbar) (require 'ecb-cedet-wrapper) -;; This loads the semantic-setups for the major-modes. -(require 'semantic-load) ;; various loads (require 'assoc) 减号代表要修改的 或者删除的

.emacs中添加

 ;;;;ECB (add-to-list 'load-path "D:/Emacs/emacs-23.2/ecb-2.40") (require 'ecb) ;;;;禁止每日提醒 (setq ecb-tip-of-the-day nil) ;;;; 各窗口间切换 (global-set-key [M-left] 'windmove-left) (global-set-key [M-right] 'windmove-right) (global-set-key [M-up] 'windmove-up) (global-set-key [M-down] 'windmove-down)

emacs只是一个编辑器，要想编译c++程序必须要有编译器

下载dev-cpp安装，它的编译器是mingw，正是我们想要的，我安装在D:/DEV-CPP下

自己安装gcc-core  gdb g++之类的话会很麻烦，这里用了一个偷懒的办法。

配置.emacs，用dev-cpp里面的编译器为emacs工作

(setq default-directory "D:/DEV-CPP/Bin") ;;=================================== ;;设置编译器========================== ;;=================================== ;;(setq compile-command (concat "D:/DEV-CPP/bin/g++ -g " "/"" buffer-file-name "/"")) (global-set-key (kbd "<f7>") 'smart-compile) (defun smart-compile() ;; "比较智能的C/C++编译命令 ;;如果当前目录有makefile则用make -k编译，否则，如果是 ;;处于c-mode，就用gcc -Wall编译，如果是c++-mode就用 g++ -Wall编译" (interactive) ;; 查找 Makefile (let ((candidate-make-file-name '("makefile" "Makefile" "GNUmakefile")) (command nil)) (if (not (null (find t candidate-make-file-name :key '(lambda (f) (file-readable-p f))))) (setq command "make -k ") ;; 没有找到 Makefile ，查看当前 mode 是否是已知的可编译的模式 (if (null (buffer-file-name (current-buffer))) (message "Buffer not attached to a file, won't compile!") (if (eq major-mode 'c-mode) (setq command (concat "D:/DEV-CPP/bin/gcc.exe -Wall -o " ;;你要明确知道自己的编译器在 哪里, (file-name-sans-extension ;;这样,用你的 gcc.exe的地址代替这里的D:/Dev-Cpp/bin/gcc.exe (file-name-nondirectory buffer-file-name)) ;;注意,这里的路径的斜杠 和vista的习惯相反,你要注意修改 " " (file-name-nondirectory buffer-file-name) " -g -lm ")) (if (eq major-mode 'c++-mode) (setq command (concat "D:/DEV-CPP/bin/g++.exe -Wall -o " ;;还有这里的g++,也同gcc一样... (file-name-sans-extension (file-name-nondirectory buffer-file-name)) " " (file-name-nondirectory buffer-file-name) " -g -lm ")) (message "Unknow mode, won't compile!"))))) (if (not (null command)) (let ((command (read-from-minibuffer "Compile command: " command))) (compile command)))))

上面default-directory是让emacs找到devcpp的编译器

下面是配置一个快捷键f7，省得每次都 gcc -Wall -g exp.cpp -o exp

到这里就应该可以调用以下的命令了

ecb-activiate 来激活ecb，可以看到ecb窗口

打开一个cpp文件 按下f7应该可以编译文件

M-x gdb应该可以进入调试模式

下面是代码折叠的配置

;;; hide-show (setq hs-allow-nesting t) (add-hook 'c-mode-common-hook (lambda () (hs-minor-mode 1) )) (add-hook 'emacs-lisp-mode-hook (lambda() (hs-minor-mode 1))) (add-hook 'tcl-mode-hook (lambda () (hs-minor-mode 1) )) (define-key hs-minor-mode-map [?/C-/ ?H] 'hs-hide-all) (define-key hs-minor-mode-map [?/C-/ ?S] 'hs-show-all) (define-key hs-minor-mode-map [?/C-/ ?h] 'hs-hide-block) (define-key hs-minor-mode-map [?/C-/ ?s] 'hs-show-block) (define-key hs-minor-mode-map [?/C-/ ?l] 'hs-hide-level) (define-key hs-minor-mode-map [?/C-/ ?t] 'hs-toggle-hiding)

 

显示行号，把下面的代码粘贴保存为linum.el，保存到site-lisp下

;;; linum.el --- Display line numbers to the left of buffers ;; Copyright (C) 2007, 2008 Markus Triska ;; Author: Markus Triska <markus.triska@gmx.at> ;; Keywords: convenience ;; This file is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 3, or (at your option) ;; any later version. ;; This file is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, ;; Boston, MA 02110-1301, USA. ;;; Commentary: ;; Display line numbers for the current buffer. Copy linum.el to your ;; load-path and add to your .emacs: ;; (require 'linum) ;; Then toggle display of line numbers with M-x linum-mode. To enable ;; line numbering in all buffers, use M-x global-linum-mode. ;;; Code: (defconst linum-version "0.9wza") (defvar linum-overlays nil "Overlays used in this buffer.") (defvar linum-available nil "Overlays available for reuse.") (defvar linum-before-numbering-hook nil "Functions run in each buffer before line numbering starts.") (mapc #'make-variable-buffer-local '(linum-overlays linum-available)) (defgroup linum nil "Show line numbers to the left of buffers" :group 'convenience) ;;;###autoload (defcustom linum-format 'dynamic "Format used to display line numbers. Either a format string like /"%7d/", 'dynamic to adapt the width as needed, or a function that is called with a line number as its argument and should evaluate to a string to be shown on that line. See also `linum-before-numbering-hook'." :group 'linum :type 'sexp) (defface linum '((t :inherit (shadow default))) "Face for displaying line numbers in the display margin." :group 'linum) (defcustom linum-eager t "Whether line numbers should be updated after each command. The conservative setting `nil' might miss some buffer changes, and you have to scroll or press C-l to update the numbers." :group 'linum :type 'boolean) (defcustom linum-delay nil "Delay updates to give Emacs a chance for other changes." :group 'linum :type 'boolean) ;;;###autoload (define-minor-mode linum-mode "Toggle display of line numbers in the left marginal area." :lighter "" ; for desktop.el (if linum-mode (progn (if linum-eager (add-hook 'post-command-hook (if linum-delay 'linum-schedule 'linum-update-current) nil t) (add-hook 'after-change-functions 'linum-after-change nil t)) (add-hook 'window-scroll-functions 'linum-after-scroll nil t) ;; mistake in Emacs: window-size-change-functions cannot be local (add-hook 'window-size-change-functions 'linum-after-size) (add-hook 'change-major-mode-hook 'linum-delete-overlays nil t) (add-hook 'window-configuration-change-hook 'linum-after-config nil t) (linum-update-current)) (remove-hook 'post-command-hook 'linum-update-current t) (remove-hook 'post-command-hook 'linum-schedule t) (remove-hook 'window-size-change-functions 'linum-after-size) (remove-hook 'window-scroll-functions 'linum-after-scroll t) (remove-hook 'after-change-functions 'linum-after-change t) (remove-hook 'window-configuration-change-hook 'linum-after-config t) (remove-hook 'change-major-mode-hook 'linum-delete-overlays t) (linum-delete-overlays))) ;;;###autoload (define-globalized-minor-mode global-linum-mode linum-mode linum-on) (defun linum-on () (unless (minibufferp) (linum-mode 1))) (defun linum-delete-overlays () "Delete all overlays displaying line numbers for this buffer." (mapc #'delete-overlay linum-overlays) (setq linum-overlays nil) (dolist (w (get-buffer-window-list (current-buffer) nil t)) (set-window-margins w 0))) (defun linum-update-current () "Update line numbers for the current buffer." (linum-update (current-buffer))) (defun linum-update (buffer) "Update line numbers for all windows displaying BUFFER." (with-current-buffer buffer (when linum-mode (setq linum-available linum-overlays) (setq linum-overlays nil) (save-excursion (mapc #'linum-update-window (get-buffer-window-list buffer nil 'visible))) (mapc #'delete-overlay linum-available) (setq linum-available nil)))) (defun linum-update-window (win) "Update line numbers for the portion visible in window WIN." (goto-char (window-start win)) (let ((line (line-number-at-pos)) (limit (window-end win t)) (fmt (cond ((stringp linum-format) linum-format) ((eq linum-format 'dynamic) (let ((w (length (number-to-string (count-lines (point-min) (point-max)))))) (concat "%" (number-to-string w) "d"))))) (width 0)) (run-hooks 'linum-before-numbering-hook) ;; Create an overlay (or reuse an existing one) for each ;; line visible in this window, if necessary. (while (and (not (eobp)) (<= (point) limit)) (let* ((str (if fmt (propertize (format fmt line) 'face 'linum) (funcall linum-format line))) (visited (catch 'visited (dolist (o (overlays-in (point) (point))) (when (string= (overlay-get o 'linum-str) str) (unless (memq o linum-overlays) (push o linum-overlays)) (setq linum-available (delete o linum-available)) (throw 'visited t)))))) (setq width (max width (length str))) (unless visited (let ((ov (if (null linum-available) (make-overlay (point) (point)) (move-overlay (pop linum-available) (point) (point))))) (push ov linum-overlays) (overlay-put ov 'before-string (propertize " " 'display `((margin left-margin) ,str))) (overlay-put ov 'linum-str str)))) (forward-line) (setq line (1+ line))) (set-window-margins win width))) (defun linum-after-change (beg end len) ;; update overlays on deletions, and after newlines are inserted (when (or (= beg end) (= end (point-max)) ;; TODO: use string-match-p with CVS or new release (string-match "/n" (buffer-substring-no-properties beg end))) (linum-update-current))) (defun linum-after-scroll (win start) (linum-update (window-buffer win))) (defun linum-after-size (frame) (linum-after-config)) (defun linum-schedule () ;; schedule an update; the delay gives Emacs a chance for display changes (run-with-idle-timer 0 nil #'linum-update-current)) (defun linum-after-config () (walk-windows (lambda (w) (linum-update (window-buffer w))) nil 'visible)) (provide 'linum) ;;; linum.el ends here

在.emacs中加上

(require 'linum)
(global-linum-mode 1) 

 

代码自动补全 保存以下代码到site-lisp，名称为yasnippet-bundle.el

;;; yasnippet-bundle.el --- Yet another snippet extension (Auto compiled bundle) ;;; Yasnippet.el --- Yet another snippet extension for Emacs. ;; Copyright 2008 pluskid ;; 2009 pluskid, joaotavora ;; Authors: pluskid <pluskid@gmail.com>, joaotavora <joaotavora@gmail.com> ;; Version: 0.6.1 ;; Package-version: 0.6.1c ;; X-URL: http://code.google.com/p/yasnippet/ ;; Keywords: convenience, emulation ;; URL: http://code.google.com/p/yasnippet/ ;; EmacsWiki: YaSnippetMode ;; This file is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; This file is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; Basic steps to setup: ;; ;; 1. In your .emacs file: ;; (add-to-list 'load-path "/dir/to/yasnippet.el") ;; (require 'yasnippet) ;; 2. Place the `snippets' directory somewhere. E.g: ~/.emacs.d/snippets ;; 3. In your .emacs file ;; (setq yas/root-directory "~/.emacs/snippets") ;; (yas/load-directory yas/root-directory) ;; 4. To enable the YASnippet menu and tab-trigger expansion ;; M-x yas/minor-mode ;; 5. To globally enable the minor mode in *all* buffers ;; M-x yas/global-mode ;; ;; Steps 4. and 5. are optional, you don't have to use the minor ;; mode to use YASnippet. ;; ;; Interesting variables are: ;; ;; `yas/root-directory' ;; ;; The directory where user-created snippets are to be ;; stored. Can also be a list of directories that ;; `yas/reload-all' will use for bulk-reloading snippets. In ;; that case the first directory the default for storing new ;; snippets. ;; ;; `yas/mode-symbol' ;; ;; A local variable that you can set in a hook to override ;; snippet-lookup based on major mode. It is a a symbol (or ;; list of symbols) that correspond to subdirectories of ;; `yas/root-directory' and is used for deciding which ;; snippets to consider for the active buffer. ;; ;; Major commands are: ;; ;; M-x yas/expand ;; ;; Try to expand snippets before point. In `yas/minor-mode', ;; this is bound to `yas/trigger-key' which you can customize. ;; ;; M-x yas/load-directory ;; ;; Prompts you for a directory hierarchy of snippets to load. ;; ;; M-x yas/insert-snippet ;; ;; Prompts you for possible snippet expansion if that is ;; possible according to buffer-local and snippet-local ;; expansion conditions. With prefix argument, ignore these ;; conditions. ;; ;; M-x yas/find-snippets ;; ;; Lets you find the snippet files in the correct ;; subdirectory of `yas/root-directory', according to the ;; active major mode (if it exists) like ;; `find-file-other-window'. ;; ;; M-x yas/visit-snippet-file ;; ;; Prompts you for possible snippet expansions like ;; `yas/insert-snippet', but instead of expanding it, takes ;; you directly to the snippet definition's file, if it ;; exists. ;; ;; M-x yas/new-snippet ;; ;; Lets you create a new snippet file in the correct ;; subdirectory of `yas/root-directory', according to the ;; active major mode. ;; ;; M-x yas/load-snippet-buffer ;; ;; When editing a snippet, this loads the snippet. This is ;; bound to "C-c C-c" while in the `snippet-mode' editing ;; mode. ;; ;; M-x yas/tryout-snippet ;; ;; When editing a snippet, this opens a new empty buffer, ;; sets it to the appropriate major mode and inserts the ;; snippet there, so you can see what it looks like. This is ;; bound to "C-c C-t" while in `snippet-mode'. ;; ;; The `dropdown-list.el' extension is bundled with YASnippet, you ;; can optionally use it the preferred "prompting method", puting in ;; your .emacs file, for example: ;; ;; (require 'dropdown-list) ;; (setq yas/prompt-functions '(yas/dropdown-prompt ;; yas/ido-prompt ;; yas/completing-prompt)) ;; ;; Also check out the customization group ;; ;; M-x customize-group RET yasnippet RET ;; ;; If you use the customization group to set variables ;; `yas/root-directory' or `yas/global-mode', make sure the path to ;; "yasnippet.el" is present in the `load-path' *before* the ;; `custom-set-variables' is executed in your .emacs file. ;; ;; For more information and detailed usage, refer to the project page: ;; http://code.google.com/p/yasnippet/ ;;; Code: (require 'cl) (require 'assoc) (require 'easymenu) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; User customizable variables (defgroup yasnippet nil "Yet Another Snippet extension" :group 'editing) ;;;###autoload (defcustom yas/root-directory nil "Root directory that stores the snippets for each major mode. If you set this from your .emacs, can also be a list of strings, for multiple root directories. If you make this a list, the first element is always the user-created snippets directory. Other directories are used for bulk reloading of all snippets using `yas/reload-all'" :type '(choice (string :tag "Single directory (string)") (repeat :args (string) :tag "List of directories (strings)")) :group 'yasnippet :require 'yasnippet :set #'(lambda (symbol new) (let ((old (and (boundp symbol) (symbol-value symbol)))) (set-default symbol new) (unless (or (not (fboundp 'yas/reload-all)) (equal old new)) (yas/reload-all))))) (defcustom yas/prompt-functions '(yas/x-prompt yas/dropdown-prompt yas/completing-prompt yas/ido-prompt yas/no-prompt) "Functions to prompt for keys, templates, etc interactively. These functions are called with the following arguments: - PROMPT: A string to prompt the user - CHOICES: a list of strings or objects. - optional DISPLAY-FN : A function that, when applied to each of the objects in CHOICES will return a string. The return value of any function you put here should be one of the objects in CHOICES, properly formatted with DISPLAY-FN (if that is passed). - To signal that your particular style of prompting is unavailable at the moment, you can also have the function return nil. - To signal that the user quit the prompting process, you can signal `quit' with (signal 'quit /"user quit!/")." :type '(repeat function) :group 'yasnippet) (defcustom yas/indent-line 'auto "Controls indenting applied to a recent snippet expansion. The following values are possible: - `fixed' Indent the snippet to the current column; - `auto' Indent each line of the snippet with `indent-according-to-mode' Every other value means don't apply any snippet-side indendation after expansion (the manual per-line /"$>/" indentation still applies)." :type '(choice (const :tag "Nothing" nothing) (const :tag "Fixed" fixed) (const :tag "Auto" auto)) :group 'yasnippet) (defcustom yas/also-auto-indent-first-line nil "Non-nil means also auto indent first line according to mode. Naturally this is only valid when `yas/indent-line' is `auto'" :type 'boolean :group 'yasnippet) (defcustom yas/snippet-revival t "Non-nil means re-activate snippet fields after undo/redo." :type 'boolean :group 'yasnippet) (defcustom yas/trigger-key "TAB" "The key bound to `yas/expand' when function `yas/minor-mode' is active. Value is a string that is converted to the internal Emacs key representation using `read-kbd-macro'." :type 'string :group 'yasnippet :set #'(lambda (symbol key) (let ((old (and (boundp symbol) (symbol-value symbol)))) (set-default symbol key) ;; On very first loading of this defcustom, ;; `yas/trigger-key' is *not* loaded. (if (fboundp 'yas/trigger-key-reload) (yas/trigger-key-reload old))))) (defcustom yas/next-field-key '("TAB" "<tab>") "The key to navigate to next field when a snippet is active. Value is a string that is converted to the internal Emacs key representation using `read-kbd-macro'. Can also be a list of strings." :type '(choice (string :tag "String") (repeat :args (string) :tag "List of strings")) :group 'yasnippet :set #'(lambda (symbol val) (set-default symbol val) (if (fboundp 'yas/init-yas-in-snippet-keymap) (yas/init-yas-in-snippet-keymap)))) (defcustom yas/prev-field-key '("<backtab>" "<S-tab>") "The key to navigate to previous field when a snippet is active. Value is a string that is converted to the internal Emacs key representation using `read-kbd-macro'. Can also be a list of strings." :type '(choice (string :tag "String") (repeat :args (string) :tag "List of strings")) :group 'yasnippet :set #'(lambda (symbol val) (set-default symbol val) (if (fboundp 'yas/init-yas-in-snippet-keymap) (yas/init-yas-in-snippet-keymap)))) (defcustom yas/skip-and-clear-key "C-d" "The key to clear the currently active field. Value is a string that is converted to the internal Emacs key representation using `read-kbd-macro'. Can also be a list of strings." :type '(choice (string :tag "String") (repeat :args (string) :tag "List of strings")) :group 'yasnippet :set #'(lambda (symbol val) (set-default symbol val) (if (fboundp 'yas/init-yas-in-snippet-keymap) (yas/init-yas-in-snippet-keymap)))) (defcustom yas/triggers-in-field nil "If non-nil, `yas/next-field-key' can trigger stacked expansions. Otherwise, `yas/next-field-key' just tries to move on to the next field" :type 'boolean :group 'yasnippet) (defcustom yas/fallback-behavior 'call-other-command "How to act when `yas/trigger-key' does *not* expand a snippet. - `call-other-command' means try to temporarily disable YASnippet and call the next command bound to `yas/trigger-key'. - nil or the symbol `return-nil' mean do nothing. (and `yas/expand-returns' nil) - A lisp form (apply COMMAND . ARGS) means interactively call COMMAND, if ARGS is non-nil, call COMMAND non-interactively with ARGS as arguments." :type '(choice (const :tag "Call previous command" call-other-command) (const :tag "Do nothing" return-nil)) :group 'yasnippet) (make-variable-buffer-local 'yas/fallback-behavior) (defcustom yas/choose-keys-first nil "If non-nil, prompt for snippet key first, then for template. Otherwise prompts for all possible snippet names. This affects `yas/insert-snippet' and `yas/visit-snippet-file'." :type 'boolean :group 'yasnippet) (defcustom yas/choose-tables-first nil "If non-nil, and multiple eligible snippet tables, prompts user for tables first. Otherwise, user chooses between the merging together of all eligible tables. This affects `yas/insert-snippet', `yas/visit-snippet-file'" :type 'boolean :group 'yasnippet) (defcustom yas/use-menu 'real-modes "Display a YASnippet menu in the menu bar. When non-nil, submenus for each snippet table will be listed under the menu /"Yasnippet/". - If set to `real-modes' only submenus whose name more or less corresponds to a major mode are listed. - If set to `abbreviate', only the current major-mode menu and the modes set in `yas/mode-symbol' are listed. Any other non-nil value, every submenu is listed." :type '(choice (const :tag "Full" t) (const :tag "Real modes only" real-modes) (const :tag "Abbreviate" abbreviate)) :group 'yasnippet) (defcustom yas/trigger-symbol " =>" "The text that will be used in menu to represent the trigger." :type 'string :group 'yasnippet) (defcustom yas/wrap-around-region nil "If non-nil, snippet expansion wraps around selected region. The wrapping occurs just before the snippet's exit marker. This can be overriden on a per-snippet basis." :type 'boolean :group 'yasnippet) (defcustom yas/good-grace t "If non-nil, don't raise errors in inline elisp evaluation. An error string /"[yas] error/" is returned instead." :type 'boolean :group 'yasnippet) (defcustom yas/ignore-filenames-as-triggers nil "If non-nil, don't derive tab triggers from filenames. This means a snippet without a /"# key:'/ directive wont have a tab trigger." :type 'boolean :group 'yasnippet) (defcustom yas/visit-from-menu nil "If non-nil visit snippets's files from menu, instead of expanding them. This cafn only work when snippets are loaded from files." :type 'boolean :group 'yasnippet) (defface yas/field-highlight-face '((((class color) (background light)) (:background "DarkSeaGreen1")) (t (:background "DimGrey"))) "The face used to highlight the currently active field of a snippet" :group 'yasnippet) (defface yas/field-debug-face '() "The face used for debugging some overlays normally hidden" :group 'yasnippet) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; User can also customize the next defvars (defun yas/define-some-keys (keys keymap definition) "Bind KEYS to DEFINITION in KEYMAP, read with `read-kbd-macro'." (let ((keys (or (and (listp keys) keys) (list keys)))) (dolist (key keys) (define-key keymap (read-kbd-macro key) definition)))) (defvar yas/keymap (let ((map (make-sparse-keymap))) (mapc #'(lambda (binding) (yas/define-some-keys (car binding) map (cdr binding))) `((,yas/next-field-key . yas/next-field-or-maybe-expand) (,yas/prev-field-key . yas/prev-field) ("C-g" . yas/abort-snippet) (,yas/skip-and-clear-key . yas/skip-and-clear-or-delete-char))) map) "The keymap active while a snippet expansion is in progress.") (defvar yas/key-syntaxes (list "w" "w_" "w_." "^ ") "A list of syntax of a key. This list is tried in the order to try to find a key. For example, if the list is '(/"w/" /"w_/"). And in emacs-lisp-mode, where /"-/" has the syntax of /"_/": foo-bar will first try /"bar/", if not found, then /"foo-bar/" is tried.") (defvar yas/after-exit-snippet-hook '() "Hooks to run after a snippet exited. The hooks will be run in an environment where some variables bound to proper values: `yas/snippet-beg' : The beginning of the region of the snippet. `yas/snippet-end' : Similar to beg. Attention: These hooks are not run when exiting nested/stackd snippet expansion!") (defvar yas/before-expand-snippet-hook '() "Hooks to run just before expanding a snippet.") (defvar yas/buffer-local-condition '(if (and (not (bobp)) (or (equal 'font-lock-comment-face (get-char-property (1- (point)) 'face)) (equal 'font-lock-string-face (get-char-property (1- (point)) 'face)))) '(require-snippet-condition . force-in-comment) t) "Snippet expanding condition. This variable is a lisp form: * If it evaluates to nil, no snippets can be expanded. * If it evaluates to the a cons (require-snippet-condition . REQUIREMENT) * Snippets bearing no /"# condition:/" directive are not considered * Snippets bearing conditions that evaluate to nil (or produce an error) won't be onsidered. * If the snippet has a condition that evaluates to non-nil RESULT: * If REQUIREMENT is t, the snippet is considered * If REQUIREMENT is `eq' RESULT, the snippet is considered * Otherwise, the snippet is not considered. * If it evaluates to the symbol 'always, all snippets are considered for expansion, regardless of any conditions. * If it evaluates to t or some other non-nil value * Snippet bearing no conditions, or conditions that evaluate to non-nil, are considered for expansion. * Otherwise, the snippet is not considered. Here's an example preventing snippets from being expanded from inside comments, in `python-mode' only, with the exception of snippets returning the symbol 'force-in-comment in their conditions. (add-hook 'python-mode-hook '(lambda () (setq yas/buffer-local-condition '(if (python-in-string/comment) '(require-snippet-condition . force-in-comment) t)))) The default value is similar, it filters out potential snippet expansions inside comments and string literals, unless the snippet itself contains a condition that returns the symbol `force-in-comment'.") (make-variable-buffer-local 'yas/buffer-local-condition) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Internal variables (defvar yas/version "0.6.1b") (defvar yas/menu-table (make-hash-table) "A hash table of MAJOR-MODE symbols to menu keymaps.") (defvar yas/active-keybindings nil "A list of cons (KEYMAP . KEY) setup from defining snippets.") (defvar yas/known-modes '(ruby-mode rst-mode markdown-mode) "A list of mode which is well known but not part of emacs.") (defvar yas/escaped-characters '(?// ?` ?' ?$ ?} ) "List of characters which *might* need to be escaped.") (defconst yas/field-regexp "${//([0-9]+://)?//([^}]*//)}" "A regexp to *almost* recognize a field.") (defconst yas/multi-dollar-lisp-expression-regexp "$+[ /t/n]*//(([^)]*)//)" "A regexp to *almost* recognize a /"$(...)/" expression.") (defconst yas/backquote-lisp-expression-regexp "`//([^`]*//)`" "A regexp to recognize a /"`lisp-expression`/" expression." ) (defconst yas/transform-mirror-regexp "${//(?://([0-9]+//)://)?$//([ /t/n]*([^}]*//)" "A regexp to *almost* recognize a mirror with a transform.") (defconst yas/simple-mirror-regexp "$//([0-9]+//)" "A regexp to recognize a simple mirror.") (defvar yas/snippet-id-seed 0 "Contains the next id for a snippet.") (defun yas/snippet-next-id () (let ((id yas/snippet-id-seed)) (incf yas/snippet-id-seed) id)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Minor mode stuff ;; XXX: `last-buffer-undo-list' is somehow needed in Carbon Emacs for MacOSX (defvar last-buffer-undo-list nil) (defvar yas/minor-mode-menu nil "Holds the YASnippet menu") (defun yas/init-minor-keymap () (let ((map (make-sparse-keymap))) (easy-menu-define yas/minor-mode-menu map "Menu used when YAS/minor-mode is active." '("YASnippet" "----" ["Expand trigger" yas/expand :help "Possibly expand tab trigger before point"] ["Insert at point..." yas/insert-snippet :help "Prompt for an expandable snippet and expand it at point"] ["New snippet..." yas/new-snippet :help "Create a new snippet in an appropriate directory"] ["Visit snippet file..." yas/visit-snippet-file :help "Prompt for an expandable snippet and find its file"] ["Find snippets..." yas/find-snippets :help "Invoke `find-file' in the appropriate snippet directory"] "----" ("Snippet menu behaviour" ["Visit snippets" (setq yas/visit-from-menu t) :help "Visit snippets from the menu" :active t :style radio :selected yas/visit-from-menu] ["Expand snippets" (setq yas/visit-from-menu nil) :help "Expand snippets from the menu" :active t :style radio :selected (not yas/visit-from-menu)] "----" ["Show /"Real/" modes only" (setq yas/use-menu 'real-modes) :help "Show snippet submenus for modes that appear to be real major modes" :active t :style radio :selected (eq yas/use-menu 'real-modes)] ["Show all modes" (setq yas/use-menu 't) :help "Show one snippet submenu for each loaded table" :active t :style radio :selected (eq yas/use-menu 't)] ["Abbreviate according to current mode" (setq yas/use-menu 'abbreviate) :help "Show only snippet submenus for the current active modes" :active t :style radio :selected (eq yas/use-menu 'abbreviate)]) ("Indenting" ["Auto" (setq yas/indent-line 'auto) :help "Indent each line of the snippet with `indent-according-to-mode'" :active t :style radio :selected (eq yas/indent-line 'auto)] ["Fixed" (setq yas/indent-line 'fixed) :help "Indent the snippet to the current column" :active t :style radio :selected (eq yas/indent-line 'fixed)] ["None" (setq yas/indent-line 'none) :help "Don't apply any particular snippet indentation after expansion" :active t :style radio :selected (not (member yas/indent-line '(fixed auto)))] "----" ["Also auto indent first line" (setq yas/also-auto-indent-first-line (not yas/also-auto-indent-first-line)) :help "When auto-indenting also, auto indent the first line menu" :active (eq yas/indent-line 'auto) :style toggle :selected yas/also-auto-indent-first-line] ) ("Prompting method" ["System X-widget" (setq yas/prompt-functions (cons 'yas/x-prompt (remove 'yas/x-prompt yas/prompt-functions))) :help "Use your windowing system's (gtk, mac, windows, etc...) default menu" :active t :style radio :selected (eq (car yas/prompt-functions) 'yas/x-prompt)] ["Dropdown-list" (setq yas/prompt-functions (cons 'yas/dropdown-prompt (remove 'yas/dropdown-prompt yas/prompt-functions))) :help "Use a special dropdown list" :active t :style radio :selected (eq (car yas/prompt-functions) 'yas/dropdown-prompt)] ["Ido" (setq yas/prompt-functions (cons 'yas/ido-prompt (remove 'yas/ido-prompt yas/prompt-functions))) :help "Use an ido-style minibuffer prompt" :active t :style radio :selected (eq (car yas/prompt-functions) 'yas/ido-prompt)] ["Completing read" (setq yas/prompt-functions (cons 'yas/completing-prompt (remove 'yas/completing-prompt-prompt yas/prompt-functions))) :help "Use a normal minibuffer prompt" :active t :style radio :selected (eq (car yas/prompt-functions) 'yas/completing-prompt-prompt)] ) ("Misc" ["Wrap region in exit marker" (setq yas/wrap-around-region (not yas/wrap-around-region)) :help "If non-nil automatically wrap the selected text in the $0 snippet exit" :style toggle :selected yas/wrap-around-region] ["Allow stacked expansions " (setq yas/triggers-in-field (not yas/triggers-in-field)) :help "If non-nil allow snippets to be triggered inside other snippet fields" :style toggle :selected yas/triggers-in-field] ["Revive snippets on undo " (setq yas/snippet-revival (not yas/snippet-revival)) :help "If non-nil allow snippets to become active again after undo" :style toggle :selected yas/snippet-revival] ["Good grace " (setq yas/good-grace (not yas/good-grace)) :help "If non-nil don't raise errors in bad embedded eslip in snippets" :style toggle :selected yas/good-grace] ["Ignore filenames as triggers" (setq yas/ignore-filenames-as-triggers (not yas/ignore-filenames-as-triggers)) :help "If non-nil don't derive tab triggers from filenames" :style toggle :selected yas/ignore-filenames-as-triggers] ) "----" ["Load snippets..." yas/load-directory :help "Load snippets from a specific directory"] ["Reload everything" yas/reload-all :help "Cleanup stuff, reload snippets, rebuild menus"] ["About" yas/about :help "Display some information about YASsnippet"])) ;; Now for the stuff that has direct keybindings ;; (define-key map "/C-c&/C-s" 'yas/insert-snippet) (define-key map "/C-c&/C-n" 'yas/new-snippet) (define-key map "/C-c&/C-v" 'yas/visit-snippet-file) (define-key map "/C-c&/C-f" 'yas/find-snippets) map)) (defvar yas/minor-mode-map (yas/init-minor-keymap) "The keymap used when `yas/minor-mode' is active.") (defun yas/trigger-key-reload (&optional unbind-key) "Rebind `yas/expand' to the new value of `yas/trigger-key'. With optional UNBIND-KEY, try to unbind that key from `yas/minor-mode-map'." (when (and unbind-key (stringp unbind-key) (not (string= unbind-key ""))) (define-key yas/minor-mode-map (read-kbd-macro unbind-key) nil)) (when (and yas/trigger-key (stringp yas/trigger-key) (not (string= yas/trigger-key ""))) (define-key yas/minor-mode-map (read-kbd-macro yas/trigger-key) 'yas/expand))) ;;;###autoload (define-minor-mode yas/minor-mode "Toggle YASnippet mode. When YASnippet mode is enabled, the `tas/trigger-key' key expands snippets of code depending on the mode. With no argument, this command toggles the mode. positive prefix argument turns on the mode. Negative prefix argument turns off the mode. You can customize the key through `yas/trigger-key'. Key bindings: //{yas/minor-mode-map}" nil ;; The indicator for the mode line. " yas" :group 'yasnippet (when yas/minor-mode (yas/trigger-key-reload) ;; load all snippets definitions unless we still don't have a ;; root-directory or some snippets have already been loaded. (unless (or (null yas/root-directory) (> (hash-table-count yas/snippet-tables) 0)) (yas/reload-all)))) (defvar yas/dont-activate #'(lambda () (and yas/root-directory (null (yas/get-snippet-tables)))) "If non-nil don't let `yas/minor-mode-on' active yas for this buffer. `yas/minor-mode-on' is usually called by `yas/global-mode' so this effectively lets you define exceptions to the /"global/" behaviour.") (make-variable-buffer-local 'yas/dont-activate) (defun yas/minor-mode-on () "Turn on YASnippet minor mode. Do this unless `yas/dont-activate' is t or the function `yas/get-snippet-tables' (which see), returns an empty list." (interactive) (unless (or (and (functionp yas/dont-activate) (funcall yas/dont-activate)) (and (not (functionp yas/dont-activate)) yas/dont-activate)) (yas/minor-mode 1))) (defun yas/minor-mode-off () "Turn off YASnippet minor mode." (interactive) (yas/minor-mode -1)) (define-globalized-minor-mode yas/global-mode yas/minor-mode yas/minor-mode-on :group 'yasnippet :require 'yasnippet) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Major mode stuff ;; (defvar yas/font-lock-keywords (append '(("^#.*$" . font-lock-comment-face)) lisp-font-lock-keywords lisp-font-lock-keywords-1 lisp-font-lock-keywords-2 '(("$//([0-9]+//)" (0 font-lock-keyword-face) (1 font-lock-string-face t)) ("${//([0-9]+//):?" (0 font-lock-keyword-face) (1 font-lock-warning-face t)) ("${" font-lock-keyword-face) ("$[0-9]+?" font-lock-preprocessor-face) ("//(//$(//)" 1 font-lock-preprocessor-face) ("}" (0 font-lock-keyword-face))))) (defun yas/init-major-keymap () (let ((map (make-sparse-keymap))) (easy-menu-define nil map "Menu used when snippet-mode is active." (cons "Snippet" (mapcar #'(lambda (ent) (when (third ent) (define-key map (third ent) (second ent))) (vector (firs