X-Git-Url: https://code.delx.au/dotemacs/blobdiff_plain/4280dd77ca0ee853a914eab2ca4d42db63265bd4..3d89ecc9536d0a7e9b8e5bf89390c92e441f5684:/lisp/my-gui.el

diff --git a/lisp/my-gui.el b/lisp/my-gui.el
index 4f005ff..38282b4 100644
--- a/lisp/my-gui.el
+++ b/lisp/my-gui.el
@@ -1,9 +1,32 @@
-(require 'pastels-on-dark-theme)
+;;; -*- lexical-binding: t -*-
 
 (menu-bar-mode -1)
 (tool-bar-mode -1)
 (scroll-bar-mode -1)
 
+(require 'pastels-on-dark-theme)
+(setq frame-background-mode 'dark)
+
+(setq default-frame-alist '((vertical-scroll-bars)
+                            (background-mode . dark)
+                            (alpha . 95)
+                            (font . "monospace 12")))
+
+(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))
+
+(add-to-list 'term-file-aliases
+                 '("screen.xterm-256color" . "screen-256color"))
+
 (setq scroll-conservatively 1)
 (setq scroll-margin 1)
 (setq mouse-wheel-scroll-amount '(3))
@@ -14,25 +37,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)