Update.

[elisp.git] / emacs.el
diff --git a/emacs.el b/emacs.el

index 28e5daa..a8303c9 100644 (file)
--- a/emacs.el
+++ b/emacs.el
@@ -802,7 +802,7 @@ printer."
           (if (> temp 50)
               (concat
                (let ((s (format "%dC " temp)))
-                (if (> temp 65) (propertize s 'face
+                (if (> temp 70) (propertize s 'face
                                              'font-lock-warning-face)
                    s))
                )
@@ -1641,6 +1641,11 @@ int main(int argc, char **argv) {
  <head>
  <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />
  <title></title>
+<style>
+p {
+ color:#009900;
+}
+</style>
  </head>
  
  <body>
@@ -1964,18 +1969,18 @@ a file in /tmp"
  ;; (when (ff/load-or-alert "flyspell-timer" t)
  ;;   (add-hook 'flyspell-mode-hook 'flyspell-timer-ensure-idle-timer))
  
-;; (defun ff/start-flyspell () (interactive)
-  ;; (ff/configure-faces
-   ;; '(
-     ;; ;; (flyspell-incorrect :background "#ff0000" :foreground "black")
-     ;; ;; (flyspell-duplicate :background "#ff9000" :foreground "black")
-     ;; (flyspell-incorrect :foreground "#ff0000" :weight 'bold)
-     ;; (flyspell-duplicate :foreground "#ff9000" :weight 'bold)
-     ;; ))
+(defun ff/start-flyspell () (interactive)
+  (ff/configure-faces
+   '(
+     ;; (flyspell-incorrect :background "#ff0000" :foreground "black")
+     ;; (flyspell-duplicate :background "#ff9000" :foreground "black")
+     (flyspell-incorrect :foreground "#ff0000" :weight 'bold)
+     (flyspell-duplicate :foreground "#ff9000" :weight 'bold)
+     ))
    ;; (flyspell-buffer)
-  ;; )
+  )
  
-;; (add-hook 'flyspell-mode-hook 'ff/start-flyspell)
+(add-hook 'flyspell-mode-hook 'ff/start-flyspell)
  
  (defun ff/pick-dictionnary () (interactive)
    (when (and (boundp 'flyspell-mode) flyspell-mode)