ini/conf-mode.el @@ -4,3 +4,4 @@ packages other *.elc +*.snippets .gitignore @@ -94,7 +94,7 @@ (jw-font 'font-lock-string-face "LightGreen") ; Strings and Regex (jw-font 'font-lock-comment-face "grey60") (jw-font 'font-lock-comment-delimiter-face "grey60") - (jw-font 'font-lock-type-face "#80a0ff") + (jw-font 'font-lock-type-face "#c0c0ff" :bold) (jw-font 'font-lock-variable-name-face "#90b0ff") ; (jw-font 'font-lock-function-name-face "cyan") (jw-font 'font-lock-constant-face "pink") ini/font-lock.el @@ -24,7 +24,7 @@ (defconst jw-rake-command "rake") ;;; Options to be added to the ruby based test commands. -(defconst jw-test-options "-Ilib:test:.") +(defconst jw-test-options "-w -Ilib:test:.") ;;; Options to be added to the spec command. (defconst jw-spec-options "") ini/testing.el @@ -9,6 +9,7 @@ (if (boundp 'osx-key-mode-map) (progn (define-key osx-key-mode-map (kbd "A-p") 'jw-noop) + (define-key osx-key-mode-map (kbd "A-t") 'jw-noop) (define-key osx-key-mode-map (kbd "C-A-p") 'aquamacs-print) )) (cond (t ini/zkeys.el @@ -2,12 +2,26 @@ (provide 'codol) -(defconst codol-re " *\\(def \\|class \\|module \\|include \\|extend \\|attr_\\|private\\|public\\|context \\|should\\|.* FLOW: \\|flow_step\\|# == [A-Za-z0-9]\\)") +(defconst codol-ruby-re " *\\(def \\|class \\|module \\|include \\|extend \\|attr_\\|private\\|public\\|context \\|should\\|.* FLOW: \\|flow_step\\|# == [A-Za-z0-9]\\)") + +(defvar codol-re-patterns + (list (cons "Ruby" codol-ruby-re) + (cons "Emacs-Lisp" "(defun") + (cons "Text" "==><=="))) (defvar codol-state 'full) (make-variable-buffer-local 'codol-state) +(defun codol-pattern-recurse (patterns) + (cond ((null patterns) nil) + ((equal (caar patterns) mode-name) + (cdar patterns)) + (t (codol-pattern-recurse (cdr patterns))) )) + +(defun codol-pattern () + (codol-pattern-recurse codol-re-patterns)) + (defun codol-hide (a b) (overlay-put (make-overlay a b) 'invisible 'hide)) @@ -26,7 +40,7 @@ (let (pt) (while (not (eq (point) (point-max))) (beginning-of-line) - (cond ((looking-at codol-re) + (cond ((looking-at (codol-pattern)) (cond (pt (codol-hide pt (point)) (setq pt nil)) )) local-pkgs/codol.el 62e2c755e240ebf7109ea6ee12c90e8f2f707e9d Jim Weirich jim.weirich@gmail.com http://github.com/jimweirich/emacs-setup/commit/4530ae60e73c68ec77dfbab2ea00231b31ec53b1 4530ae60e73c68ec77dfbab2ea00231b31ec53b1 2009-02-27T11:58:12-08:00 2009-02-27T11:58:12-08:00 code outline now handles multiple modes. Better Class font colors for ruby. Warning added to testing stuff. d3c7622ff994ef87748c84b933c319e91d9425a3 Jim Weirich jim.weirich@gmail.com