summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorAlan Pearce2014-04-30 12:14:50 +0100
committerAlan Pearce2014-04-30 12:14:50 +0100
commit7612c636129aadff382d87ddafc3c840b518b56b (patch)
tree08aa529c915521414b20bb42b06f9ccdeea2a5a2
parent82cdaec62c42664f01c4210165c55629dc6a3250 (diff)
downloaddotfiles-7612c636129aadff382d87ddafc3c840b518b56b.tar.lz
dotfiles-7612c636129aadff382d87ddafc3c840b518b56b.tar.zst
dotfiles-7612c636129aadff382d87ddafc3c840b518b56b.zip
Emacs: Remove custom font-face configurations
I actually think they were for the other version of solarized.
-rw-r--r--tag-emacs/emacs.d/init.el67
1 files changed, 0 insertions, 67 deletions
diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el
index ddfd34d..15be03b 100644
--- a/tag-emacs/emacs.d/init.el
+++ b/tag-emacs/emacs.d/init.el
@@ -101,73 +101,6 @@
    ((eq system-type 'darwin)
     (ap/set-fonts "Droid Sans Mono" "Helvetica_Neue" 14))))
 
-(let* ((font-height (face-attribute 'default :height))
-       (small-font-height (max 1 (floor (* .917 font-height)))))
-    (mapc (lambda (item)
-              (put (car item) 'customized-face (cadr item))
-              (face-spec-set (car item) (cadr item)))
-          `((linum
-             ((t (:height ,small-font-height
-                          :foreground unspecified
-                          :inherit fringe
-                          :overline nil
-                          :slant normal))))
-            (vertical-border
-             ((t (:foreground unspecified
-                              :background unspecified
-                              :inherit file-name-shadow))))
-            (font-lock-comment-face
-             ((t (:slant normal))))
-            (font-lock-doc-face
-             ((t (:slant normal))))
-            (popup-face
-             ((t (:background unspecified
-                              :foreground unspecified
-                              :inherit linum
-                              :height ,font-height))))
-            (popup-scroll-bar-foreground-face
-             ((t (:background unspecified
-                              :inherit region))))
-            (popup-scroll-bar-background-face
-             ((t (:background unspecified
-                              :inherit popup-face))))
-            (ac-completion-face
-             ((t (:background unspecified
-                              :foreground unspecified
-                              :inherit popup-face))))
-            (ac-candidate-face
-             ((t (:background unspecified
-                              :foreground unspecified
-                              :inherit linum
-                              :height ,font-height))))
-            (ac-selection-face
-             ((t (:background unspecified
-                              :foreground unspecified
-                              :inherit font-lock-variable-name-face
-                              :inverse-video t))))
-            (ac-candidate-mouse-face
-             ((t (:background unspecified
-                              :foreground unspecified
-                              :inherit region))))
-            (ac-dabbrev-menu-face
-             ((t (:background unspecified
-                              :foreground unspecified
-                              :inherit popup-face))))
-            (ac-dabbrev-selection-face
-             ((t (:background unspecified
-                              :foreground unspecified
-                              :inherit ac-selection-face))))
-            (flymake-warnline
-             ((t (:background unspecified
-                              :foreground unspecified
-                              :inherit font-lock-preprocessor-face))))
-            (org-table ((t (:inherit 'fixed-pitch))))
-            (org-formula ((t (:foreground "Firebrick"
-                                          :inherit 'fixed-pitch))))
-            (org-done ((t (:weight normal
-                                   :strike-through t))))
-            (org-headline-done ((t (:strike-through t)))))))
-
 ;;;; Autosaves & Backups
 (let ((backup-dir (expand-file-name "~/.emacs.d/backups/")))
   (unless (file-directory-p backup-dir)