Loads and loads and loads of updates.

[syinit] / 14-fonts-sy.el

diff --git a/14-fonts-sy.el b/14-fonts-sy.el
index 39d2561..2bb011e 100644 (file)
--- a/14-fonts-sy.el
+++ b/14-fonts-sy.el
@@ -1,11 +1,11 @@
 ;; 14-fonts-sy.el --- Fonts/Faces Settings   -*- Emacs-Lisp -*-
 
-;; Copyright (C) 2007 - 2013 Steve Youngs
+;; Copyright (C) 2007 - 2020 Steve Youngs
 
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
-;; Time-stamp: <Friday Aug 16, 2013 14:03:07 steve>
+;; Time-stamp: <Wednesday Feb 12, 2020 15:10:58 steve>
 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/14-fonts-sy.html>
 ;;   Git Repo: git clone http://git.sxemacs.org/syinit
@@ -58,18 +58,28 @@
 ;;; Code:
 ;:*=======================
 ;:* Turn on Lazy-(lock|shot)
-;; Lazy-lock
+;;; Lazy-lock
 ;; (require 'lazy-lock)
 ;; (if (eq emacs-minor-version 5)
 ;;     (setq font-lock-support-mode 'lazy-lock-mode)
 ;;  (add-hook 'font-lock-mode-hook 'turn-on-lazy-lock))
 ;; (setq lazy-lock-stealth-time 15)
 
-;; Lazy-shot (my preference)
-(require 'lazy-shot)
-(setq lazy-shot-verbose nil)
-(setq lazy-shot-stealth-verbose nil)
-(add-hook 'font-lock-mode-hook 'turn-on-lazy-shot)
+;;; Lazy-shot (my preference)
+;; (require 'lazy-shot)
+;; (setq lazy-shot-verbose nil)
+;; (setq lazy-shot-stealth-verbose nil)
+;; (add-hook 'font-lock-mode-hook 'turn-on-lazy-shot)
+
+;;; Fast-lock (it has caching!)
+(require 'fast-lock)
+(setq fast-lock-cache-directories
+      (list (paths-construct-path (list (getenv "XDG_CACHE_HOME")
+                                       "sxemacs" "fast-lock"))))
+(push 'save-buffer fast-lock-save-events)
+(fast-lock-mode 1)
+(add-hook 'font-lock-mode-hook 'turn-on-fast-lock)
+(setq-default fast-lock-mode t)
 
 ;:*=======================
 ;:* describe-face-at-point, a function to find out which face is which
@@ -205,18 +215,6 @@
       ((t (:background "light grey" :foreground "Black"))))
      (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
      (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
-     ;; EMchat.
-     (emchat-face-away ((t (:foreground "red"))))
-     (emchat-face-dnd ((t (:foreground "lightblue"))))
-     (emchat-face-ffc ((t (:foreground "yellow"))))
-     (emchat-face-log-read ((t (:foreground "turquoise"))))
-     (emchat-face-log-unread ((t (:foreground "red"))))
-     (emchat-face-na ((t (:foreground "pink"))))
-     (emchat-face-occ ((t (:foreground "orange"))))
-     (emchat-face-offline ((t (:foreground "grey"))))
-     (emchat-face-online ((t (:foreground "green"))))
-     (emchat-face-selected ((t (:background "yellow" :foreground "darkblue"))))
-     (emchat-wharf-default-face ((t (:foreground "Green" :size "10pt"))))
      ;; LaTeX
      (font-latex-bold-face ((t (:foreground "brown"))))
      (font-latex-italic-face ((t (:foreground "lightcoral"))))
@@ -415,8 +413,8 @@
 
 ;:*======================= :* 
 ; Use a sexy background pixmap.
-; (set-face-background-pixmap 'default 
-;                          [xpm :file "~/documents/pictures/marble.xpm"])
+;(set-face-background-pixmap 'default 
+;                          [xpm :file "~/documents/pictures/misc/marble.xpm"])
 ;:*=======================
 ;:* Set background-mode to dark (why isn't this autodetected?)
 (setq frame-background-mode 'dark)