1 files changed, 76 insertions, 0 deletions
diff --git a/modules/ui-config.el b/modules/ui-config.el
new file mode 100644
index 00000000..5f0c2801
--- /dev/null
+++ b/modules/ui-config.el
@@ -0,0 +1,76 @@
+;;; ui-config --- User Interface Preferences -*- lexical-binding: t; -*-
+;; author: Craig Jennings <c@cjennings.net>
+
+;;; Commentary:
+
+;;; Code:
+
+;; ----------------------------- System UI Settings ----------------------------
+
+(add-to-list 'initial-frame-alist '(fullscreen . maximized))	;; start the initial frame maximized
+(add-to-list 'default-frame-alist '(fullscreen . maximized))	;; start every frame maximized
+(setq pixel-scroll-precision-mode nil)							;; smooth scroll past images - enabled if nil!
+
+(setq-default frame-inhibit-implied-resize t)					;; don't resize frames when setting ui-elements
+(setq frame-title-format '("Emacs " emacs-version " - %b"))		;; the title is just the app name and version
+
+(setq use-file-dialog nil)										;; no file dialog
+(setq use-dialog-box nil)										;; no dialog boxes either
+(column-number-mode 1)											;; show column number in the modeline
+(setq switch-to-buffer-obey-display-actions t)                  ;; manual buffer switching obeys display action rules
+
+;; -------------------------------- Transparency -------------------------------
+
+(set-frame-parameter (selected-frame) 'alpha '(84 84))
+(add-to-list 'default-frame-alist '(alpha 84 84))
+
+;; ----------------------------------- Cursor ----------------------------------
+;; set cursor color according to mode
+;;
+;;    #f06a3f indicates a read-only document
+;;    #c48702 indicates overwrite mode
+;;    #64aa0f indicates insert and read/write mode
+
+
+(defvar cj/set-cursor-color-color "")
+(defvar cj/set-cursor-color-buffer "")
+
+(defun cj/set-cursor-color-according-to-mode ()
+  "Change the cursor color based on selected minor modes.
+Cursor becomes a red hue when in a read-only buffer,
+turns goldenrod when in overwrite mode, and green otherwise."
+  ;; set-cursor-color is somewhat costly, so only call it when needed:
+  (let ((color
+         (if buffer-read-only "#f06a3f"
+           (if overwrite-mode "#c48702"
+             "#64aa0f"))))
+    (unless (and
+             (string= color cj/set-cursor-color-color)
+             (string= (buffer-name) cj/set-cursor-color-buffer))
+      (set-cursor-color (setq cj/set-cursor-color-color color))
+      (setq cj/set-cursor-color-buffer (buffer-name)))))
+(add-hook 'post-command-hook 'cj/set-cursor-color-according-to-mode)
+(setq cursor-in-non-selected-windows 'nil) ;; don't show cursor in unselected windows
+
+;; SET-CURSOR-TYPE
+(defun cj/set-cursor-type (new-cursor-type)
+  "Set the cursor type of the selected frame to NEW-CURSOR-TYPE.
+When called interactively, prompt for the type to use.
+To get the frame's current cursor type, use `frame-parameters'."
+  (interactive
+   (list (intern (completing-read
+                  "Cursor type: "
+                  (mapcar 'list '("box" "hollow" "bar" "hbar" nil))))))
+  (modify-frame-parameters (selected-frame)
+						   (list (cons 'cursor-type new-cursor-type))))
+(cj/set-cursor-type 'box) ;; start with the box cursor
+
+;; --------------------------------- Nerd Icons --------------------------------
+;; use icons from nerd fonts in the Emacs UI
+
+(use-package nerd-icons
+  :demand t)
+
+
+(provide 'ui-config)
+;;; ui-config.el ends here