hacks and glory await

2025-04-10 21:59:37 -07:00
commit 4aa1455039
26 changed files with 35765 additions and 0 deletions
--- a/c.el
+++ b/c.el
@@ -0,0 +1,72 @@
+;;;; c.el
+;;; let's try to make emacs work for C code.
+
+
+;;; from Chris Neukirchen's .emacs
+;;;     http://chneukirchen.org/dotfiles/.emacs
+(defun new-c-lineup-arglist (langelem)
+  (save-excursion
+    (goto-char (cdr langelem))
+    (setq syntax (car (car (c-guess-basic-syntax))))
+    (while (or (eq syntax 'arglist-intro)
+               (or (eq syntax 'arglist-cont)
+                   (eq syntax 'arglist-cont-nonempty)))
+      (forward-line -1)
+      (setq syntax (car (car (c-guess-basic-syntax)))))
+    (beginning-of-line)
+    (re-search-forward "[^ \t]" (c-point 'eol))
+    (goto-char (+ (match-beginning 0) 4))
+    (vector (current-column))))
+
+;;; from Chris Neukirchen's .emacs
+;;;     http://chneukirchen.org/dotfiles/.emacs
+(c-add-style "openbsd"
+             '("bsd"
+               (c-ignore-auto-fill . '(string))
+               (c-subword-mode . 0)
+               (c-basic-offset . 8)
+               (c-label-minimum-indentation . 0)
+               (c-offsets-alist .
+                                ((arglist-intro . new-c-lineup-arglist)
+                                 (arglist-cont . new-c-lineup-arglist)
+                                 (arglist-cont-nonempty . new-c-lineup-arglist)
+                                 (arglist-close . 0)
+                                 (substatement-open . 0)
+                                 (statement-cont . *)
+                                 (case-label . 0)
+                                 (knr-argdecl . *)))
+               (fill-column . 80)
+               (tab-width . 8)
+               (indent-tabs-mode . t)))
+
+(setq c-default-style "openbsd")
+(add-hook 'c-mode 'cscope-minor-mode)
+(require 'xcscope)
+(cscope-setup)
+
+;;; if heathen mode is t, we won't autoformat C buffers.
+(defcustom k-heathen-mode nil
+  "Placate heathens who follow the false style gods.")
+
+;;; it's like gofmt but for C.
+(defun k-save-c-hook ()
+  (interactive)
+  (when (and (eq 'c-mode (buffer-local-value 'major-mode (current-buffer)))
+	     (not k-heathen-mode))
+    (progn
+      (with-current-buffer (current-buffer)
+	(save-excursion)
+	(call-interactively 'k-indent-buffer)
+	(call-interactively 'tabify)
+	(message "Formatting C code.")))))
+
+(defun k-compile-interactive ()
+  (interactive)
+  (setq current-prefix-arg '(4))
+  (call-interactively 'recompile))
+
+(global-set-key (kbd "C-x c") 'k-compile-interactive)
+
+(add-hook 'c-mode-hook 'c-turn-on-eldoc-mode)
+(add-hook 'c-mode-hook (lambda ()
+			 (add-hook 'before-save-hook 'k-save-c-hook t t)))