From 7a6bb0f05e349068b0a89514f1da33d6d7de30a9 Mon Sep 17 00:00:00 2001 From: Alexander Sulfrian Date: Tue, 24 Apr 2012 23:29:38 +0200 Subject: emacs.d/lisp/yasnippet: added yasnippet --- .../snippets/emacs-lisp-mode/x-file.process.yasnippet | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100755 emacs.d/lisp/yasnippet/snippets/emacs-lisp-mode/x-file.process.yasnippet (limited to 'emacs.d/lisp/yasnippet/snippets/emacs-lisp-mode/x-file.process.yasnippet') diff --git a/emacs.d/lisp/yasnippet/snippets/emacs-lisp-mode/x-file.process.yasnippet b/emacs.d/lisp/yasnippet/snippets/emacs-lisp-mode/x-file.process.yasnippet new file mode 100755 index 0000000..7e09cb8 --- /dev/null +++ b/emacs.d/lisp/yasnippet/snippets/emacs-lisp-mode/x-file.process.yasnippet @@ -0,0 +1,17 @@ +#contributor: Xah Lee (XahLee.org) +#name: a function that process a file +# -- +(defun doThisFile (fpath) + "Process the file at path FPATH ..." + (let () + ;; create temp buffer without undo record or font lock. (more efficient) + ;; first space in temp buff name is necessary + (set-buffer (get-buffer-create " myTemp")) + (insert-file-contents fpath nil nil nil t) + + ;; process it ... + ;; (goto-char 0) ; move to begining of file's content (in case it was open) + ;; ... do something here + ;; (write-file fpath) ;; write back to the file + + (kill-buffer " myTemp"))) -- cgit v1.2.3