From 7612c636129aadff382d87ddafc3c840b518b56b Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Wed, 30 Apr 2014 12:14:50 +0100
Subject: Emacs: Remove custom font-face configurations

I actually think they were for the other version of solarized.
---
 tag-emacs/emacs.d/init.el | 67 -----------------------------------------------
 1 file changed, 67 deletions(-)

(limited to 'tag-emacs')

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)
-- 
cgit 1.4.1