From 92c3e6b6f1d997eab2f0c4a53c2d5e89d9b8d7fe Mon Sep 17 00:00:00 2001
From: Thomas von Dein <tom@vondein.org>
Date: Wed, 12 Apr 2023 16:41:11 +0200
Subject: [PATCH] remove distractions right from the start

---
 conf-lisp/system.el | 27 ++++-----------------------
 init.el             | 15 +++++++++++++--
 2 files changed, 17 insertions(+), 25 deletions(-)

diff --git a/conf-lisp/system.el b/conf-lisp/system.el
index f9e0db7..e80ac1f 100644
--- a/conf-lisp/system.el
+++ b/conf-lisp/system.el
@@ -50,22 +50,6 @@
 (define-key key-translation-map [?\C-h] [?\C-?])
 
 
-;;; ** hide menu- and tool-bar
-
-;; I prefer a bare bones emacs window without any distractions, so turn them off.
-(menu-bar-mode -1)
-(tool-bar-mode -1)
-(setq use-dialog-box nil)
-(scroll-bar-mode 0)
-
-
-;;; ** stay silent on startup
-(setq initial-scratch-message "")
-(setq inhibit-startup-message t)
-(setq inhibit-startup-screen t)
-(setq inhibit-startup-echo-area-message "scip")
-
-
 ;;; ** y means yes
 ;; y is shorter than yes and less error prone.
 (defalias 'yes-or-no-p 'y-or-n-p)
@@ -170,13 +154,10 @@
 ;; delete whole lines
 (setq kill-whole-line t)
 
-;; middle-mouse and C-y use both X-selection and Emacs-clipboard
-;; (if (null tvd-win-home)
-;;     (progn  ; unix
-;;       (setq x-select-enable-primary t)
-;;       (setq x-select-enable-clipboard nil))
-;;   (progn    ; win
-;;     (global-set-key (kbd "<up-mouse-2>") 'yank)))
+;; middle-mouse, shift-INSERT use both X-selection and Emacs-clipboard
+(setq x-select-enable-primary t)
+(setq x-select-enable-clipboard nil)
+(setq select-enable-primary t) ;; c-y use primary
 
 ;; marked region automatically copied, also on win
 (setq mouse-drag-copy-region t)
diff --git a/init.el b/init.el
index dd0c898..4edd877 100644
--- a/init.el
+++ b/init.el
@@ -5,7 +5,19 @@
 ;; I'm using an outdated config somewhere.
 (defvar tvd-emacs-version "20230412.01")
 
-;; from purcell's config
+;; I prefer a bare bones emacs window without any distractions, so turn them off.
+(menu-bar-mode -1)
+(tool-bar-mode -1)
+(setq use-dialog-box nil)
+(scroll-bar-mode 0)
+
+;;; ** stay silent on startup
+(setq initial-scratch-message "")
+(setq inhibit-startup-message t)
+(setq inhibit-startup-screen t)
+(setq inhibit-startup-echo-area-message "scip")
+
+;; from purcell's config, used below
 (defun sanityinc/add-subdirs-to-load-path (parent-dir)
   "Add every non-hidden subdir of PARENT-DIR to `load-path'."
   (let ((default-directory parent-dir))
@@ -70,7 +82,6 @@
 
 
 
-
 ;; ** mode-line setup (must be the last mode)
 
 ;; I just append the current version  of my emacs config and leave out