Copy pastels-on-dark-theme into local repo

[dotemacs] / lisp / my-gui.el

diff --git a/lisp/my-gui.el b/lisp/my-gui.el
index f97309ac0b6b6ff3fb071daaf1cb7099d20e674b..9c3dce1cd8db56e68de758b139261f23fc37ee79 100644 (file)
--- a/lisp/my-gui.el
+++ b/lisp/my-gui.el
@@ -1,4 +1,24 @@
-(load-theme 'deeper-blue)
+;;; -*- lexical-binding: t -*-
+
+(require 'pastels-on-dark-theme)
+(setq frame-background-mode 'dark)
+
+(setq default-frame-alist '((vertical-scroll-bars)
+                            (background-mode . dark)
+                            (alpha . 95)
+                            (font . "monospace 11")))
+
+(require 'ansi-color)
+(setq ansi-color-names-vector
+      '("#000000"
+        "#fc391f"
+        "#31e722"
+        "#eaec23"
+        "#4856f7"
+        "#f935f8"
+        "#14f0f0"
+        "#e9ebeb"))
+(setq ansi-color-map (ansi-color-make-color-map))
 
 (menu-bar-mode -1)
 (tool-bar-mode -1)
@@ -14,25 +34,25 @@
 
 (show-paren-mode t)
 
-(setq show-trailing-whitespace t)
+(dolist (hook '(prog-mode-hook text-mode-hook))
+  (add-hook hook (lambda ()
+                   (setq show-trailing-whitespace t))))
+
+(setq shift-select-mode nil)
+(delete-selection-mode t)
+(setq sentence-end-double-space nil)
 
 (require 'uniquify)
 (setq uniquify-strip-common-suffix t)
 (setq uniquify-buffer-name-style 'post-forward)
 
-(setq frame-title-format
-      '((:eval (if (buffer-file-name)
-                   (concat
-                    (file-name-nondirectory (buffer-file-name))
-                    (if (buffer-modified-p)
-                        " +")
-                    " ("
-                    (abbreviate-file-name (substring (file-name-directory (buffer-file-name)) 0 -1))
-                    ") - Emacs"
-                    )
-                 (concat
-                  "%b"
-                  (if (buffer-modified-p)
-                      " +")
-                  " - Emacs")))))
-(setq icon-title-format frame-title-format)
+(defalias 'yes-or-no-p 'y-or-n-p)
+
+(setq find-file-visit-truename t)
+
+(setq disabled-command-function nil)
+
+(setq save-interprogram-paste-before-kill t)
+
+(setq undo-limit 10000000)
+(setq undo-strong-limit undo-limit)