-;;; -*-emacs-lisp-*-
+;;; -*- mode: emacs-lisp; coding: utf-8 -*-
;;;
;;; $Id$
;;;
"Execute FORMS without allowing errors to propagate outside."
`(condition-case err
,(if (cdr forms) (cons 'progn forms) (car forms))
- (error (message "Error (trapped): %s" (error-message-string err)))))
+ (error (message "Error (trapped): %s in %s"
+ (error-message-string err)
+ ',forms))))
;; --- Configuration reading ---
;; --- Splitting windows ---
-(defconst mdw-scrollbar-width (if window-system 6 1)
- "Guessed width of scroll bar.")
+(or (and (fboundp 'scroll-bar-columns)
+ (fboundp 'fringe-columns))
+ (progn
+ (defun scroll-bar-columns (side)
+ (cond ((eq side 'left) 0)
+ (window-system 3)
+ (t 1)))
+ (defun fringe-columns (side)
+ (cond ((not window-system) 0)
+ ((eq side 'left) 1)
+ (t 2)))))
+
(defun mdw-divvy-window (&optional w)
"Split a wide window into appropriate widths."
(interactive)
- (or w (setq w 78))
- (let ((win (selected-window))
- (c (/ (+ (window-width) mdw-scrollbar-width)
- (+ w mdw-scrollbar-width))))
+ (or w (setq w (if (and window-system
+ (>= emacs-major-version 22))
+ 77
+ 78)))
+ (let* ((win (selected-window))
+ (sb-width (if (not window-system)
+ 1
+ (+ (scroll-bar-columns 'left)
+ (scroll-bar-columns 'right)
+ (fringe-columns 'left)
+ (fringe-columns 'right))))
+ (c (/ (+ (window-width) sb-width)
+ (+ w sb-width))))
(while (> c 1)
(setq c (1- c))
- (split-window-horizontally (+ w mdw-scrollbar-width))
+ (split-window-horizontally (+ w sb-width))
(other-window 1))
(select-window win)))
;;;----- Utility functions --------------------------------------------------
+(or (fboundp 'line-number-at-pos)
+ (defun line-number-at-pos (&optional pos)
+ (let ((opoint (or pos (point))) start)
+ (save-excursion
+ (save-restriction
+ (goto-char (point-min))
+ (widen)
+ (forward-line 0)
+ (setq start (point))
+ (goto-char opoint)
+ (forward-line 0)
+ (1+ (count-lines 1 (point))))))))
+
;; --- mdw-uniquify-alist ---
(defun mdw-uniquify-alist (&rest alists)
(and mdw-auto-indent
(cond ((eq major-mode 'lisp-mode)
(local-set-key "\C-m" 'mdw-indent-newline-and-indent))
- ((eq major-mode 'slime-repl-mode) nil)
+ ((or (eq major-mode 'slime-repl-mode)
+ (eq major-mode 'asm-mode))
+ nil)
(t
(local-set-key "\C-m" 'newline-and-indent))))
(local-set-key [C-return] 'newline)
- (local-set-key [?\;] 'self-insert-command)
+ (or (eq major-mode 'asm-mode)
+ (local-set-key [?\;] 'self-insert-command))
(local-set-key [?\#] 'self-insert-command)
(local-set-key [?\"] 'self-insert-command)
(setq comment-column 40)
,@(cond ((eq window-system 'w32)
'(:family "courier new" :height 85))
((eq window-system 'x)
- '(:family "misc-fixed" :width semi-condensed))))
- (modeline :foreground "blue" :background "yellow"
- :box (:line-width 1 :style released-button))
+ '(:family "misc-fixed" :height 130 :width semi-condensed))))
+ (fixed-pitch)
+ (minibuffer-prompt)
+ (mode-line :foreground "blue" :background "yellow"
+ :box (:line-width 1 :style released-button))
+ (mode-line-inactive :foreground "yellow" :background "blue"
+ :box (:line-width 1 :style released-button))
(scroll-bar :foreground "black" :background "lightgrey")
- (fringe :foreground "yellow" :background "grey30")
+ (fringe :foreground "yellow" :background "black")
(show-paren-match-face :background "darkgreen")
(show-paren-mismatch-face :background "red")
(font-lock-warning-face :background "red" :weight bold)
(setq c-hanging-comment-ender-p nil)
(setq c-backslash-column 72)
(setq c-label-minimum-indentation 0)
- (setq comment-start "/* ")
- (setq comment-end " */")
(setq mdw-fill-prefix
`((,(concat "\\([ \t]*/?\\)"
"\\([\*/][ \t]*\\)"
(make-local-variable 'font-lock-keywords)
(let ((c-keywords
(make-regexp '(
- ;; "and" ;C++
- ;; "and_eq" ;C++
+ "and" ;C++
+ "and_eq" ;C++
"asm" ;K&R, GCC
"auto" ;K&R, C89
- ;; "bitand" ;C++
- ;; "bitor" ;C++
+ "bitand" ;C++
+ "bitor" ;C++
"bool" ;C++, C9X macro
"break" ;K&R, C89
"case" ;K&R, C89
"char" ;K&R, C89
"class" ;C++
"complex" ;C9X macro, C++ template type
- ;; "compl" ;C++
+ "compl" ;C++
"const" ;C89
"const_cast" ;C++
"continue" ;K&R, C89
;; "entry" ;K&R -- never used
"enum" ;C89
"explicit" ;C++
- ;; "export" ;C++
+ "export" ;C++
"extern" ;K&R, C89
"false" ;C++, C9X macro
"float" ;K&R, C89
"for" ;K&R, C89
- "fortran" ;K&R
+ ;; "fortran" ;K&R
"friend" ;C++
"goto" ;K&R, C89
"if" ;K&R, C89
"namespace" ;C++
"new" ;C++
"operator" ;C++
- ;; "or" ;C++
- ;; "or_eq" ;C++
+ "or" ;C++
+ "or_eq" ;C++
"private" ;C++
"protected" ;C++
"public" ;C++
"volatile" ;C89
"wchar_t" ;C++, C89 library type
"while" ;K&R, C89
- ;; "xor" ;C++
- ;; "xor_eq" ;C++
+ "xor" ;C++
+ "xor_eq" ;C++
"_Bool" ;C9X
"_Complex" ;C9X
"_Imaginary" ;C9X
(setq font-lock-keywords
(list
- 't
;; --- Fontify include files as strings ---
(setq font-lock-keywords
(list
- 't
;; --- Handle the keywords defined above ---
(setq font-lock-keywords
(list
- 't
;; --- Handle the keywords defined above ---
(setq font-lock-keywords
(list
- 't
;; --- Handle the keywords defined above ---
(setq font-lock-keywords
(list
- 't
;; --- Handle the keywords defined above ---
(setq font-lock-keywords
(list
- 't
;; --- Set up the keywords defined above ---
"while" "yield"))))
(setq font-lock-keywords
(list
- 't
;; --- Set up the keywords defined above ---
(make-local-variable 'font-lock-keywords)
(setq font-lock-keywords
(list
- 't
;; --- Handle numbers too ---
;;
(run-hooks 'arm-assembler-mode-hook))
+;;;----- Assembler mode -----------------------------------------------------
+
+(defun mdw-fontify-asm ()
+ (modify-syntax-entry ?' "\"")
+ (modify-syntax-entry ?. "w")
+ (setf fill-prefix nil)
+ (mdw-standard-fill-prefix "\\([ \t]*;+[ \t]*\\)"))
+
;;;----- TCL configuration --------------------------------------------------
(defun mdw-fontify-tcl ()
(make-local-variable 'font-lock-keywords)
(setq font-lock-keywords
(list
- 't
(list (concat "\\<0\\([xX][0-9a-fA-F_]+\\|[0-7_]+\\)\\|"
"\\<[0-9][0-9_]*\\(\\.[0-9_]*\\|\\)"
"\\([eE]\\([-+]\\|\\)[0-9_]+\\|\\)")
(setq font-lock-keywords
(list
- 't
;; --- Set up the keywords defined above ---
(setq font-lock-keywords
(list
- 't
;; --- Set up the keywords defined above ---
(setq font-lock-keywords
(list
- 't
(list "--.*$"
'(0 font-lock-comment-face))
(list (concat "\\<\\(" haskell-keywords "\\)\\>")
(make-local-variable 'font-lock-keywords)
(setq font-lock-keywords
(list
- 't
;; --- Environment names are keywords ---
(make-local-variable 'font-lock-keywords)
(setq font-lock-keywords
(list
- 't
;; --- Environment names are keywords ---
(list "[$^_{}#&]"
'(0 mdw-punct-face)))))
+;;;----- SGML hacking -------------------------------------------------------
+
+(defun mdw-sgml-mode ()
+ (interactive)
+ (sgml-mode)
+ (mdw-standard-fill-prefix "")
+ (make-variable-buffer-local 'sgml-delimiters)
+ (setq sgml-delimiters
+ '("AND" "&" "COM" "--" "CRO" "&#" "DSC" "]" "DSO" "[" "DTGC" "]"
+ "DTGO" "[" "ERO" "&" "ETAGO" ":e" "GRPC" ")" "GRPO" "(" "LIT" "\""
+ "LITA" "'" "MDC" ">" "MDO" "<!" "MINUS" "-" "MSC" "]]" "NESTC" "{"
+ "NET" "}" "OPT" "?" "OR" "|" "PERO" "%" "PIC" ">" "PIO" "<?"
+ "PLUS" "+" "REFC" "." "REP" "*" "RNI" "#" "SEQ" "," "STAGO" ":"
+ "TAGC" "." "VI" "=" "MS-START" "<![" "MS-END" "]]>"
+ "XML-ECOM" "-->" "XML-PIC" "?>" "XML-SCOM" "<!--" "XML-TAGCE" "/>"
+ "NULL" ""))
+ (setq major-mode 'mdw-sgml-mode)
+ (setq mode-name "[mdw] SGML")
+ (run-hooks 'mdw-sgml-mode-hook))
+
;;;----- Shell scripts ------------------------------------------------------
(defun mdw-setup-sh-script-mode ()
(make-local-variable 'font-lock-keywords)
(setq font-lock-keywords
(list
- 't
(list "\\<[A-Z][a-zA-Z0-9]*\\>"
'(0 font-lock-keyword-face))
(list (concat "\\<0\\([xX][0-9a-fA-F_]+\\|[0-7_]+\\)\\|"
(make-local-variable 'font-lock-keywords)
(setq font-lock-keywords
(list
- 't
(list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
'(0 mdw-punct-face)))))
'comint-watch-for-password-prompt))
(defun mdw-term-mode-setup ()
- (setq term-prompt-regexp "^[^]#$%>»}\n]*[]#$%>»}] *")
+ (setq term-prompt-regexp "^[^]#$%>»}\n]*[]#$%>»}] *")
(make-local-variable 'mouse-yank-at-point)
(make-local-variable 'transient-mark-mode)
(setq mouse-yank-at-point t)