summaryrefslogtreecommitdiff
path: root/sample.emacs
diff options
context:
space:
mode:
authorDaniel Stenberg <daniel@haxx.se>2003-01-29 12:14:37 +0000
committerDaniel Stenberg <daniel@haxx.se>2003-01-29 12:14:37 +0000
commit53d71fab60bbcc9b7439523610965fba5a0cd10e (patch)
treeb594730d2df9ff7fcef35c657aedead406fb83c6 /sample.emacs
parentbe891f112c8ae5d79279c9d01e3807c196b6c779 (diff)
downloadcurl-53d71fab60bbcc9b7439523610965fba5a0cd10e.tar.gz
example showing how a .emacs using curl-style.el could look like, thanks
to Mats Lidell for awesome elisp hacking!
Diffstat (limited to 'sample.emacs')
-rw-r--r--sample.emacs46
1 files changed, 46 insertions, 0 deletions
diff --git a/sample.emacs b/sample.emacs
new file mode 100644
index 000000000..e4e736e20
--- /dev/null
+++ b/sample.emacs
@@ -0,0 +1,46 @@
+;; $Id$ -*- emacs-lisp -*-
+
+;; This file was contributed by Mats Lidell
+
+;; Here's a sample .emacs file that might help you along the way.
+
+;; First comes a setup that is ideal when you are only working with curl. Just
+;; select the next few lines, paste it into your .emacs and change the path to
+;; the tools folder. (If you are using more than one style. Look further down
+;; the this file.)
+
+(load-file "<YOUR-PATH-TO-CURL>/tools/curl-style.el")
+(add-hook 'c-mode-common-hook 'curl-c-mode-common-hook)
+
+;; If you are using more than one style in maybe more than one project the
+;; example below might help out. It uses a predicate hook pair to select the
+;; right hook to use.
+
+(defvar my-style-selective-mode-hook nil
+ "Holds a list of predicate and hooks pairs. (list (PREDICATE . HOOK)
+...) It is used by my-mode-selective-mood-hook-function for choosing
+the right hook to run.")
+
+(defun my-style-selective-mode-hook-function ()
+ "Run each PREDICATE in `my-style-selective-mode-hook' to see if the
+HOOK in the pair should be executed. If the PREDICATE evaluate to non
+nil HOOK is executed and the rest of the hooks are ignored."
+ (let ((h my-style-selective-mode-hook))
+ (while (not (eval (caar h)))
+ (setq h (cdr h)))
+ (funcall (cdar h))))
+
+;;; Example configuration.
+;; Add the selective hook to the c-mode-common-hook
+(add-hook 'c-mode-common-hook 'my-style-selective-mode-hook-function)
+
+;; Add your own hooks and predicates. The predicate should evaluate to
+;; non nil if the hook in the pair is supposed to be evaluated. In the
+;; example a part of the path is used to select what style to
+;; use. Choose what is appropriate for you.
+(add-hook 'my-style-selective-mode-hook
+ '((string-match "curl" (buffer-file-name)) . curl-c-mode-common-hook))
+(add-hook 'my-style-selective-mode-hook
+ '((string-match "other" (buffer-file-name)) . other-c-mode-common-hook))
+;; Make sure the default style is appended.
+(add-hook 'my-style-selective-mode-hook '(t . my-c-mode-common-hook) t)