Auto commit by The Sugar System.

[sugar.git] / dot-files / _emacs_el

diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el
index 11588d5426b272779cac5d23615e262787325e0f..c54ee01c3143c148a072ce9f16d2a2a05ca656b0 100644 (file)
--- a/dot-files/_emacs_el
+++ b/dot-files/_emacs_el
@@ -109,21 +109,14 @@
 ;; Setting for Frames ----------------------------------------------------------
 (when window-system
   (let ((host (system-name)))
-    (cond ((equal host "seras")
-           (set-frame-font "Dejavu Sans Mono 11" t))
+    (cond ((equal host "kurumi.cielonegro.org")
+           (set-frame-font "Andale Mono 14"))
 
-          ((equal host "yukari.cielonegro.org")
+          ((equal host "seras")
            (set-frame-font "Dejavu Sans Mono 11" t))
 
-          ((equal host "aria.cielonegro.org")
-           (progn
-             (set-frame-font "Dejavu Sans Mono 13" t)
-             ;; Emacs 24.4.1 somehow gets very slow when the following
-             ;; lines are uncommented.
-             ;;(set-fontset-font nil 'japanese-jisx0208 "さざなみゴシック")
-             ;;(set-fontset-font nil 'japanese-jisx0212 "さざなみゴシック")
-             ;;(set-fontset-font nil 'katakana-jisx0201 "さざなみゴシック")
-             )))))
+          ((equal host "yukari.cielonegro.org")
+           (set-frame-font "Dejavu Sans Mono 11" t)))))
 
 ;; Setting for Packages --------------------------------------------------------
 (defun require-if-present (feature)
@@ -635,8 +628,7 @@ Will prompt you shell name when you type `C-u' before this command." t)
  '(markdown-live-preview-delete-export (quote delete-on-export))
  '(mediawiki-site-alist
    (quote
-    (("Wikipedia" "http://en.wikipedia.org/w/" "username" "password" "Main Page")
-     ("YmirDev" "https://ymirlink:santamo@update.forcast.jp/fcdiv/mwiki/" "PHO" "" "メインページ"))))
+    (("Wikipedia" "http://en.wikipedia.org/w/" "username" "password" "Main Page"))))
  '(mew-field-spec
    (quote
     (("^Resent-\\(From\\|To\\|Cc\\|Date\\)" t mew-face-header-important mew-face-header-important)
@@ -721,7 +713,7 @@ Will prompt you shell name when you type `C-u' before this command." t)
      ("melpa" . "https://melpa.org/packages/"))))
  '(package-selected-packages
    (quote
-    (color-theme-modern elscreen elscreen-multi-term projectile elixir-mode flycheck-haskell flycheck-inline flycheck-rust undo-tree auto-complete typescript-mode cargo toml-mode rust-mode)))
+    (elscreen-fr color-theme-modern elscreen elscreen-multi-term projectile elixir-mode flycheck-haskell flycheck-inline flycheck-rust undo-tree auto-complete typescript-mode cargo toml-mode rust-mode)))
  '(rcirc-server-alist (quote (("irc1.ymir.jp" :nick "PHO`cons" nil nil))))
  '(riece-layout "default")
  '(riece-layout-alist
@@ -779,6 +771,8 @@ Will prompt you shell name when you type `C-u' before this command." t)
  '(diff-added ((t (:inherit diff-changed :foreground "medium spring green" :weight extra-bold))))
  '(diff-removed ((t (:foreground "gold3" :weight extra-bold))))
  '(flyspell-incorrect ((t (:foreground "OrangeRed" :overline t))))
+ '(font-lock-comment-face ((t (:foreground "white smoke"))))
+ '(font-lock-keyword-face ((t (:foreground "salmon"))))
  '(jaspace-highlight-tab-face ((((class color) (background dark)) (:foreground "gray70" :underline t))))
  '(navi2ch-bm-new-unread-face ((t (:foreground "PaleGreen" :weight bold))))
  '(navi2ch-bm-updated-cache-face ((t (:foreground "CornflowerBlue" :weight bold))))