This is the new Emacs style for curl hacking, based on work written by
authorDaniel Stenberg <daniel@haxx.se>
Thu, 23 Jan 2003 06:00:02 +0000 (06:00 +0000)
committerDaniel Stenberg <daniel@haxx.se>
Thu, 23 Jan 2003 06:00:02 +0000 (06:00 +0000)
Mats Lidell in project Rockbox.

curl-style.el [new file with mode: 0644]

diff --git a/curl-style.el b/curl-style.el
new file mode 100644 (file)
index 0000000..b681a48
--- /dev/null
@@ -0,0 +1,54 @@
+;;;; Emacs Lisp help for writing curl code. ;;;;
+;;;; $Id$
+
+;;; The curl hacker's C conventions.
+
+;;; After loading this file and added the mode-hook you can in C
+;;; files, put something like this to use the curl style
+;;; automatically:
+;;
+;;   /* -----------------------------------------------------------------
+;;    * local variables:
+;;    * eval: (set c-file-style "curl")
+;;    * end:
+;;    */
+;;
+
+(defconst curl-c-style
+  '((c-basic-offset . 2)
+    (c-comment-only-line-offset . 0)
+    (c-hanging-braces-alist     . ((substatement-open before after)))
+    (c-offsets-alist . ((topmost-intro        . 0)
+                       (topmost-intro-cont   . 0)
+                       (substatement         . +)
+                       (substatement-open    . 0)
+                       (statement-case-intro . +)
+                       (statement-case-open  . 0)
+                       (case-label           . 0)
+                       ))
+    )
+  "Curl C Programming Style")
+
+;; Customizations for all of c-mode, c++-mode, and objc-mode
+(defun curl-c-mode-common-hook ()
+  "Curl C mode hook"
+  ;; add curl style and set it for the current buffer
+  (c-add-style "curl" curl-c-style t)
+  (setq tab-width 8
+       indent-tabs-mode nil            ; Use spaces. Not tabs.
+       comment-column 40
+       c-font-lock-extra-types (append '("bool"))
+       )
+  ;; We like auto-newline and hungry-delete
+  (c-toggle-auto-hungry-state 1)
+  ;; keybindings for C, C++, and Objective-C.  We can put these in
+  ;; c-mode-base-map because of inheritance ...
+  (define-key c-mode-base-map "\M-q" 'c-fill-paragraph)
+  ;; Cleanups
+  (setq c-cleanup-list '(list-close-comma defun-close-semi empty-defun-braces brace-else-brace brace-elseif-brace scope-operator))
+  (setq c-recognize-knr-p nil)
+  )
+
+;; Set this is in your .emacs if you want to use the c-mode-hook as
+;; defined here right out of the box.
+; (add-hook 'c-mode-common-hook 'curl-c-mode-common-hook)