X-Git-Url: https://code.delx.au/dotemacs/blobdiff_plain/418f80d20e464a8eb161b84b0b38be6669f9bf61..bf70105d5651a3a341303542aada2ebbf46c462b:/lisp/my-gui.el

diff --git a/lisp/my-gui.el b/lisp/my-gui.el
index 9cefd9d..a5a844a 100644
--- a/lisp/my-gui.el
+++ b/lisp/my-gui.el
@@ -1,5 +1,12 @@
+;;; -*- lexical-binding: t -*-
+
 (require 'pastels-on-dark-theme)
 
+(setq default-frame-alist '((vertical-scroll-bars)
+                            (background-mode . dark)
+                            (alpha . 90)
+                            (font . "monospace 11")))
+
 (menu-bar-mode -1)
 (tool-bar-mode -1)
 (scroll-bar-mode -1)
@@ -14,27 +21,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)
-
-(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)