EMACS: theme, fullscreen, font

`.emacs.d/functions.el'
        - Don't require the lcars-theme.

        - Removed theme settings for markdown mode.

        - Don't use the fullscreen function at startup.

`.emacs.d/init.el'
        - Switched to naquadah-theme.

        - Change some markdown-mode theme settings when the naquadah
          theme is loaded.

        - Increased font-size to 11, from 10.

`.emacs.d/ryuslash-load-path.el'
        - Added `~/.emacs.d/naquadah-theme' to `load-path'.
This commit is contained in:
Tom Willemsen 2011-08-30 00:02:28 +02:00
parent ac8a5d362f
commit cb909ac473
3 changed files with 17 additions and 19 deletions

View file

@ -110,23 +110,6 @@ Currently adds | & ! . + = - / % * , < > ? : ->"
(defun x-init ()
"Initialization only for X"
(require 'lcars-theme)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; THEME SETTINGS ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(lcars-theme-set-faces
'lcars
;; markdown-mode
'(markdown-link-face (:inherit 'link))
'(markdown-header-face-1 (:inherit 'org-level-1))
'(markdown-header-face-2 (:inherit 'org-level-2))
'(markdown-header-face-3 (:inherit 'org-level-3))
'(markdown-header-face-4 (:inherit 'org-level-4))
'(markdown-header-face-5 (:inherit 'org-level-5))
'(markdown-header-face-6 (:inherit 'org-level-6)))
(add-hook 'emacs-startup-hook 'fullscreen)
(setq linum-format " %d"))
(defun cli-init ()

View file

@ -1,6 +1,20 @@
;; -*- mode: Emacs-Lisp; -*-
(load "~/.emacs.d/ryuslash-load-path")
(load "~/.emacs.d/functions")
;;; Theme
(require 'naquadah-theme)
(eval-after-load 'naquadah-theme
(naquadah-theme-set-faces
'naquadah
;; markdown-mode
'(markdown-link-face (:inherit 'link))
'(markdown-header-face-1 (:inherit 'org-level-1))
'(markdown-header-face-2 (:inherit 'org-level-2))
'(markdown-header-face-3 (:inherit 'org-level-3))
'(markdown-header-face-4 (:inherit 'org-level-4))
'(markdown-header-face-5 (:inherit 'org-level-5))
'(markdown-header-face-6 (:inherit 'org-level-6))))
;;; Autopair
(require 'autopair)
@ -199,9 +213,9 @@
`((".*" ,temporary-file-directory t)))
(setq default-frame-alist ; default frame settings
(append '((font . "DejaVu Sans Mono-10:antialias=true"))))
(append '((font . "DejaVu Sans Mono-11:antialias=true"))))
(setq initial-frame-alist ; initial frame settings
(append '((font . "DejaVu Sans Mono-10:antialias=true"))))
(append '((font . "DejaVu Sans Mono-11:antialias=true"))))
(if window-system
(x-init)

View file

@ -6,5 +6,6 @@
(add-to-list 'load-path "~/.emacs.d/elisp/rainbow")
(add-to-list 'load-path "~/.emacs.d/elisp/rainbow-delimiters")
(add-to-list 'load-path "~/.emacs.d/elisp/zencoding")
(add-to-list 'load-path "~/.emacs.d/naquadah-theme")
(provide 'ryuslash-load-path)