From d0db5660caa836755ea8c99471d816484ea9e837 Mon Sep 17 00:00:00 2001
From: David Morgan <djm_uk@protonmail.com>
Date: Tue, 17 Aug 2021 12:49:19 +0100
Subject: Add new .emacs.d

---
 .emacs.d/lisp/init-ui.el | 110 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 110 insertions(+)
 create mode 100644 .emacs.d/lisp/init-ui.el

(limited to '.emacs.d/lisp/init-ui.el')

diff --git a/.emacs.d/lisp/init-ui.el b/.emacs.d/lisp/init-ui.el
new file mode 100644
index 0000000..1f1a388
--- /dev/null
+++ b/.emacs.d/lisp/init-ui.el
@@ -0,0 +1,110 @@
+;;; init-ui.el --- UI Configuration File -*- lexical-binding: t -*-
+;;; Commentary:
+;; Some parts copied from prelude-ui.el and prelude-editor.el
+;; {menu,tool,scoll}-bar-mode disabled in early-init.el, rather than here
+;;; Code:
+
+(use-package emacs
+  :config
+  (toggle-frame-maximized)
+
+  ;; https://github.com/rougier/elegant-emacs/blob/master/sanity.el
+  (setq inhibit-startup-screen t
+        inhibit-startup-echo-area-message t
+        inhibit-startup-message t
+        initial-scratch-message nil)
+
+  (blink-cursor-mode -1)
+
+  (setq whitespace-line-column 120)
+  (setq ring-bell-function 'ignore
+        visible-bell t)
+
+  ;; TODO do we want these? (copied from prelude)
+  (setq scroll-margin 0
+        scroll-conservatively 100000
+        scroll-preserve-screen-position 1)
+
+  (global-display-line-numbers-mode)
+  (global-hl-line-mode +1)
+
+  (fset 'yes-or-no-p 'y-or-n-p)
+
+  (global-set-key (kbd "C-x C-S-k") 'kill-this-buffer)
+
+  (setq frame-title-format
+        '("Emacs: " (:eval (if (buffer-file-name)
+                               (abbreviate-file-name (buffer-file-name))
+                             "%b"))))
+
+  (when (eq system-type 'darwin)
+    (setq mac-option-modifier 'meta)
+    (setq mac-right-option-modifier 'none)
+    (setq mac-command-modifier 'super)))
+
+(use-package modus-themes
+  :init
+  ;; (setq modus-themes-syntax '(alt-syntax green-strings yellow-comments))
+  (setq modus-themes-syntax '(green-strings yellow-comments)
+        modus-themes-paren-match '(bold intense underline)
+        modus-themes-lang-checkers '(text-also background))
+  (load-theme 'modus-vivendi t))
+
+(use-package whitespace
+  :ensure nil
+  :diminish
+  :custom
+  (whitespace-line-column 120)
+  (whitespace-style '(face tabs empty trailing lines-tail))
+  :hook
+  (text-mode . (lambda () (whitespace-mode +1)))
+  (prog-mode . (lambda () (whitespace-mode +1)))
+  (cider-repl-mode . (lambda () (whitespace-mode -1)))
+  (ielm-mode . (lambda () (whitespace-mode -1)))
+  (vterm-mode . (lambda () (whitespace-mode -1)))
+  (eshell-mode . (lambda () (whitespace-mode -1))))
+
+(use-package hi-lock
+  :diminish
+  :config
+  (when (eq system-type 'darwin)
+    (defun my/toggle-highlight-symbol-at-point ()
+      (interactive)
+      (if hi-lock-interactive-patterns
+          (unhighlight-regexp (car (car hi-lock-interactive-patterns)))
+        (highlight-symbol-at-point)))
+    (global-set-key (kbd "s-.") 'my/toggle-highlight-symbol-at-point)))
+
+(use-package volatile-highlights
+  :diminish
+  :config
+  (volatile-highlights-mode t))
+
+(use-package idle-highlight-mode
+  :hook (prog-mode . idle-highlight-mode))
+
+(use-package paren
+  :config
+  (show-paren-mode +1))
+
+(use-package which-key
+  :diminish
+  :config (which-key-mode +1))
+
+;; Other key-chords defined with in the relevant use-package calls
+(use-package key-chord
+  :config
+  (key-chord-mode +1)
+  (key-chord-define-global "xx" 'execute-extended-command))
+
+(use-package rainbow-delimiters
+  :config
+  (rainbow-delimiters-mode +1))
+
+(use-package rainbow-mode
+  :diminish)
+
+(use-package smartrep)
+
+(provide 'init-ui)
+;;; init-ui.el ends here
-- 
cgit 1.4.1-2-gfad0