;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 2 of the License, or
;;; (at your option) any later version.
-;;;
+;;;
;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
-;;;
+;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software Foundation,
;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
(interactive)
(save-excursion
(or arg (progn
- (goto-char (point-max))
+ (goto-char (point-max))
(insert "\nNP: ")
- (insert-file np-file)))))
+ (insert-file np-file)))))
(trap
(require 'tramp)
(setq comment-column 40)
(auto-fill-mode 1)
(setq fill-column 77)
+ (setq show-trailing-whitespace t)
(mdw-set-font))
;; --- Set up all sorts of faces ---
;;;----- General fontification ----------------------------------------------
-(defun mdw-set-fonts (frame ff)
- (if ff (progn (set-face-attribute (caar ff) frame
- :family 'unspecified
- :width 'unspecified
- :height 'unspecified
- :weight 'unspecified
- :slant 'unspecified
- :foreground 'unspecified
- :background 'unspecified
- :underline 'unspecified
- :overline 'unspecified
- :strike-through 'unspecified
- :box 'unspecified
- :inverse-video 'unspecified
- :stipple 'unspecified
-; :font 'unspecified
- :inherit 'unspecified
- )
- (apply 'set-face-attribute (caar ff) frame (cdar ff))
- (mdw-set-fonts frame (cdr ff)))))
+(defun mdw-set-fonts (frame faces)
+ (while faces
+ (let ((face (caar faces)))
+ (or (facep face) (make-face face))
+ (set-face-attribute face frame
+ :family 'unspecified
+ :width 'unspecified
+ :height 'unspecified
+ :weight 'unspecified
+ :slant 'unspecified
+ :foreground 'unspecified
+ :background 'unspecified
+ :underline 'unspecified
+ :overline 'unspecified
+ :strike-through 'unspecified
+ :box 'unspecified
+ :inverse-video 'unspecified
+ :stipple 'unspecified
+ ;:font 'unspecified
+ :inherit 'unspecified)
+ (apply 'set-face-attribute face frame (cdar faces))
+ (setq faces (cdr faces)))))
(defun mdw-do-set-font (&optional frame)
(interactive)
(diff-removed-face :foreground "white" :slant italic)
(whizzy-slice-face :background "grey10")
(whizzy-error-face :background "darkred")
+ (trailing-whitespace :background "red")
)))
(defun mdw-set-font ()
;; --- Now define things to be fontified ---
- (make-local-variable 'font-lock-keywords)
+ (make-local-variable 'font-lock-keywords)
(let ((c-keywords
(make-regexp '(
;; "and" ;C++
;; --- Now define things to be fontified ---
- (make-local-variable 'font-lock-keywords)
+ (make-local-variable 'font-lock-keywords)
(let ((c-keywords
(make-regexp '("break" "case" "cd" "continue" "define" "default"
"do" "else" "exit" "for" "global" "goto" "help" "if"
;; --- Now define things to be fontified ---
- (make-local-variable 'font-lock-keywords)
+ (make-local-variable 'font-lock-keywords)
(let ((java-keywords
(make-regexp '("abstract" "boolean" "break" "byte" "case" "catch"
"char" "class" "const" "continue" "default" "do"
;; --- Now define things to be fontified ---
- (make-local-variable 'font-lock-keywords)
+ (make-local-variable 'font-lock-keywords)
(let ((c-keywords
(make-regexp '("BEGIN" "END" "ARGC" "ARGIND" "ARGV" "CONVFMT"
"ENVIRON" "ERRNO" "FIELDWIDTHS" "FILENAME" "FNR"
;; --- Now define fontification things ---
- (make-local-variable 'font-lock-keywords)
+ (make-local-variable 'font-lock-keywords)
(let ((perl-keywords
(make-regexp '("and" "cmp" "continue" "do" "else" "elsif" "eq"
"for" "foreach" "ge" "gt" "goto" "if"
;; --- Now define fontification things ---
- (make-local-variable 'font-lock-keywords)
+ (make-local-variable 'font-lock-keywords)
(let ((python-keywords
(make-regexp '("and" "as" "assert" "break" "class" "continue" "def"
"del" "elif" "else" "except" "exec" "finally" "for"
;; --- Fiddle with fontification ---
- (make-local-variable 'font-lock-keywords)
+ (make-local-variable 'font-lock-keywords)
(setq font-lock-keywords
(list
't
(defun mdw-fontify-tcl ()
(mapcar #'(lambda (ch) (modify-syntax-entry ch ".")) '(?$))
(mdw-standard-fill-prefix "\\([ \t]*#+[ \t]*\\)")
- (make-local-variable 'font-lock-keywords)
+ (make-local-variable 'font-lock-keywords)
(setq font-lock-keywords
(list
't
(setq rexx-tab-always-indent nil)
(setq rexx-cont-indent rexx-indent)
- (make-local-variable 'font-lock-keywords)
+ (make-local-variable 'font-lock-keywords)
(let ((rexx-keywords
(make-regexp '("address" "arg" "by" "call" "digits" "do" "drop"
"else" "end" "engineering" "exit" "expose" "for"
;; --- Now define fontification things ---
- (make-local-variable 'font-lock-keywords)
+ (make-local-variable 'font-lock-keywords)
(let ((sml-keywords
(make-regexp '("abstype" "and" "andalso" "as"
"case"
(list (concat "\\<\\(\\~\\|\\)"
"\\(0\\(\\([wW]\\|\\)[xX][0-9a-fA-F]+\\|"
- "[wW][0-9]+\\)\\|"
- "\\([0-9]+\\(\\.[0-9]+\\|\\)"
- "\\([eE]\\(\\~\\|\\)"
- "[0-9]+\\|\\)\\)\\)")
+ "[wW][0-9]+\\)\\|"
+ "\\([0-9]+\\(\\.[0-9]+\\|\\)"
+ "\\([eE]\\(\\~\\|\\)"
+ "[0-9]+\\|\\)\\)\\)")
'(0 mdw-number-face))
;; --- And anything else is punctuation ---
;; --- Fiddle with fontification ---
- (make-local-variable 'font-lock-keywords)
+ (make-local-variable 'font-lock-keywords)
(let ((haskell-keywords
(make-regexp '("as" "case" "ccall" "class" "data" "default"
"deriving" "do" "else" "foreign" "hiding" "if"
;; --- Real fontification things ---
- (make-local-variable 'font-lock-keywords)
+ (make-local-variable 'font-lock-keywords)
(setq font-lock-keywords
(list
't
;; --- Real fontification things ---
- (make-local-variable 'font-lock-keywords)
+ (make-local-variable 'font-lock-keywords)
(setq font-lock-keywords
(list
't
;; --- Handle @/.../ for italics ---
;; (list "\\(@/\\)\\([^/]*\\)\\(/\\)"
- ;; '(1 font-lock-keyword-face)
- ;; '(3 font-lock-keyword-face))
+ ;; '(1 font-lock-keyword-face)
+ ;; '(3 font-lock-keyword-face))
;; --- Handle @*...* for boldness ---
;; (list "\\(@\\*\\)\\([^*]*\\)\\(\\*\\)"
- ;; '(1 font-lock-keyword-face)
- ;; '(3 font-lock-keyword-face))
+ ;; '(1 font-lock-keyword-face)
+ ;; '(3 font-lock-keyword-face))
;; --- Handle @`...' for literal syntax things ---
;; (list "\\(@`\\)\\([^']*\\)\\('\\)"
- ;; '(1 font-lock-keyword-face)
- ;; '(3 font-lock-keyword-face))
+ ;; '(1 font-lock-keyword-face)
+ ;; '(3 font-lock-keyword-face))
;; --- Handle @<...> for nonterminals ---
;; (list "\\(@<\\)\\([^>]*\\)\\(>\\)"
- ;; '(1 font-lock-keyword-face)
- ;; '(3 font-lock-keyword-face))
+ ;; '(1 font-lock-keyword-face)
+ ;; '(3 font-lock-keyword-face))
;; --- Handle other @-commands ---
;; (list "@\\([^a-zA-Z]\\|[a-zA-Z]*\\)"
- ;; '(0 font-lock-keyword-face))
+ ;; '(0 font-lock-keyword-face))
;; --- Make sure we get comments properly ---
'(2 font-lock-string-face))
(list (concat "^\\([ \t]*#[ \t]*\\(\\("
preprocessor-keywords
- "\\)\\>\\|[0-9]+\\|$\\)\\)")
+ "\\)\\>\\|[0-9]+\\|$\\)\\)")
'(1 font-lock-keyword-face)))
message-mode-keywords)))
(turn-on-font-lock-if-enabled)
(local-set-key "\C-i" 'smalltalk-reindent))
(defun mdw-fontify-smalltalk ()
- (make-local-variable 'font-lock-keywords)
+ (make-local-variable 'font-lock-keywords)
(setq font-lock-keywords
(list
't
;; --- Not much fontification needed ---
- (make-local-variable 'font-lock-keywords)
+ (make-local-variable 'font-lock-keywords)
(setq font-lock-keywords
(list
't
~mdw / profile / blobdiff