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 7376d1bf246d91bdf68d2dc12ad6522db4c5d85f..9c3dce1cd8db56e68de758b139261f23fc37ee79 100644 (file)
--- a/lisp/my-gui.el
+++ b/lisp/my-gui.el
@@ -1,6 +1,24 @@
 ;;; -*- 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)
@@ -16,17 +34,25 @@
 
 (show-paren-mode t)
 
-(setq-default 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)
 
-(add-to-list 'delete-frame-functions #'my/kill-buffers-if-deleting-last-frame)
+(defalias 'yes-or-no-p 'y-or-n-p)
+
+(setq find-file-visit-truename t)
 
-(setq frame-title-format '((:eval (funcall #'my/generate-frame-title))))
-(setq icon-title-format frame-title-format)
+(setq disabled-command-function nil)
 
-(add-to-list 'post-command-hook #'my/terminal-update-title)
+(setq save-interprogram-paste-before-kill t)
 
-(defalias 'yes-or-no-p 'y-or-n-p)
+(setq undo-limit 10000000)
+(setq undo-strong-limit undo-limit)