Permalink
Browse files

Improve #; highlighting, make the time estimate for email replies mor…

…e coarse.
  • Loading branch information...
elibarzilay committed Sep 3, 2011
1 parent d09797c commit a9740b7b3b082fcd6463672b9f3648ad198a206b
Showing with 12 additions and 10 deletions.
  1. +2 −2 extras/scheme.el
  2. BIN extras/scheme.elc
  3. +10 −8 extras/vm/eli-vm.el
  4. BIN extras/vm/eli-vm.elc
View
@@ -353,13 +353,13 @@ See `run-hooks'."
(point))))))
;;ELI }}}
;;ELI {{{ my addition
-(defvar sexpr-comment-face (simple-make-face '*/h221104))
+(defvar sexpr-comment-face (simple-make-face '*/h442211 'sexpr-comment-face))
;;ELI }}}
(defconst scheme-font-lock-keywords-2
(append
;;ELI {{{
- '((scheme-font-lock-sexp-comment (0 sexpr-comment-face)))
+ '((scheme-font-lock-sexp-comment (0 sexpr-comment-face t)))
;;ELI }}}
scheme-font-lock-keywords-1
(eval-when-compile
View
Binary file not shown.
View
@@ -3,8 +3,8 @@
(add-to-list 'Info-default-directory-list
(concat eli-extras-dir "vm/vm-8.1.93a/info"))
-;; these are needed before requiring vm, for some reason
(require 'vm)
+(eval-when-compile (require 'cl))
(setq
;; >> vm
@@ -331,13 +331,15 @@
(case n ((1) "One") ((2) "Two") ((3) "Three") ((4) "Four")
(t (number-to-string n))))))
(cond
- ;; includes negatives -- assume that it's always very recent
- ((<= secs 45) "A few seconds ago")
- ;; being precise isn't important
- ((<= secs 90) "About a minute ago")
- ((<= mins 10) (format "%s minutes ago" (funcall 2str mins)))
- ((<= mins 30) (format "%s minutes ago"
- (funcall 2str (* 5 (round mins 5)))))
+ ;; ;; includes negatives -- assume that it's always very recent
+ ;; ((<= secs 45) "A few seconds ago")
+ ;; ;; being precise isn't important
+ ;; ((<= secs 90) "About a minute ago")
+ ((<= mins 2) "Just now")
+ ;; ((<= mins 10) (format "%s minutes ago" (funcall 2str mins)))
+ ((<= mins 8) "A few minutes ago")
+ ;; ((<= mins 30) (format "%s minutes ago"
+ ;; (funcall 2str (* 5 (round mins 5)))))
((<= mins 54) (format "%s minutes ago"
(funcall 2str (* 10 (round mins 10)))))
((<= mins 75) "An hour ago")
View
Binary file not shown.

0 comments on commit a9740b7

Please sign in to comment.