From: PHO <pho@cielonegro.org>
Date: Thu, 22 Apr 2021 06:44:53 +0000 (+0900)
Subject: Auto commit by The Sugar System.
X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=commitdiff_plain;h=4263b7f99f2c5cff9bc5d9eed7ea7bc6a5bddecc;p=sugar.git

Auto commit by The Sugar System.
---

diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el
index 6cc8fb6..6418da4 100644
--- a/dot-files/_emacs_el
+++ b/dot-files/_emacs_el
@@ -238,15 +238,10 @@ Will prompt you shell name when you type `C-u' before this command." t)
     (paren-activate))
 
 ;; elscreen
-(condition-case e
-    (load "elscreen" "ElScreen" t)
-  (file-error
-   (if (equal (cadr e) "Cannot open load file")
-       (message "Warning: feature %s is absent" feature) ; warn and ignore
-     (apply 'signal (car e) (cdr e))))) ; rethrow
+(require-if-present 'elscreen)
+(require-if-present 'elscreen-w3m)
 (if (featurep 'elscreen)
     (elscreen-start))
-(require-if-present 'elscreen-w3m)
 
 ;; undo-tree
 (require-if-present 'undo-tree)
@@ -726,7 +721,7 @@ Will prompt you shell name when you type `C-u' before this command." t)
      ("melpa" . "https://melpa.org/packages/"))))
  '(package-selected-packages
    (quote
-    (projectile elixir-mode flycheck-haskell flycheck-inline flycheck-rust undo-tree auto-complete typescript-mode cargo toml-mode rust-mode)))
+    (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
@@ -787,6 +782,7 @@ Will prompt you shell name when you type `C-u' before this command." t)
  '(navi2ch-bm-new-unread-face ((t (:foreground "PaleGreen" :weight bold))))
  '(navi2ch-bm-updated-cache-face ((t (:foreground "CornflowerBlue" :weight bold))))
  '(navi2ch-bm-updated-unread-face ((t (:foreground "DarkSeaGreen3" :weight bold))))
+ '(org-level-1 ((t (:foreground "pale turquoise"))))
  '(textile-link-face ((t (:foreground "cyan"))))
  '(textile-ol-bullet-face ((t (:foreground "dark orange"))))
  '(textile-ul-bullet-face ((t (:foreground "deep sky blue"))))