1 files changed, 0 insertions, 144 deletions
diff --git a/lisp/ss-ui.el b/lisp/ss-ui.el
deleted file mode 100644
index 3dd728c..0000000
--- a/lisp/ss-ui.el
+++ /dev/null
@@ -1,144 +0,0 @@
-;;; ss-ui.el --- Interface configuration -*- lexical-binding: t; -*-
-
-;;; Commentary:
-
-;; Theme, frame, completion, and interface setup.
-
-;;; Code:
-
-(require 'ss-core)
-
-(defun ss-ui--configure-frames ()
-  "Apply GUI and terminal frame behavior."
-  (when (display-graphic-p)
-    (set-frame-size (selected-frame) 140 42)
-    (menu-bar-mode -1)
-    (tool-bar-mode -1)
-    (scroll-bar-mode -1)
-    (tooltip-mode -1)
-    (set-face-attribute
-     'default nil
-     :family "JetBrains Mono" :height 140 :weight 'medium)
-    (set-face-attribute
-     'fixed-pitch nil
-     :family "JetBrains Mono" :weight 'medium)
-    (set-face-attribute
-     'fixed-pitch-serif nil
-     :family "JetBrains Mono" :weight 'medium))
-
-  (unless (display-graphic-p)
-    ;; Terminal menu bar removal stays on startup hook to avoid tty regressions.
-    (add-hook 'emacs-startup-hook (lambda () (menu-bar-mode -1)))))
-
-(defun ss-ui--setup-modeline ()
-  "Configure the modeline."
-  (use-package time
-    :ensure nil
-    :config
-    (setq display-time-24hr-format t
-          display-time-day-and-date t
-          display-time-default-load-average nil
-          calendar-latitude -37.7667
-          calendar-longitude 145.0
-          calendar-location-name "Melbourne, VIC")
-    (display-time-mode 1))
-
-  ;; Keep the theme's faces, but make the right edge alignment dynamic.
-  (setq-default mode-line-format
-                (list
-                 "  "
-                 "%e"
-                 mode-line-front-space
-                 mode-line-mule-info
-                 mode-line-client
-                 mode-line-modified
-                 mode-line-remote
-                 mode-line-frame-identification
-                 mode-line-buffer-identification
-                 "   "
-                 mode-line-position
-                 '(vc-mode vc-mode)
-                 "  "
-                 mode-line-modes
-                 '(:eval (propertize
-                          " "
-                          'display
-                          `((space :align-to
-                                   (- right
-                                      ,(+ 2 (string-width
-                                              (format-mode-line mode-line-misc-info))))))))
-                 mode-line-misc-info
-                 "  "
-                 mode-line-end-spaces)))
-
-(defun ss-ui--setup-completion ()
-  "Configure minibuffer and in-buffer completion."
-  (use-package vertico
-    :ensure t
-    :pin melpa
-    :init
-    (vertico-mode 1))
-
-  (use-package orderless
-    :ensure t
-    :pin melpa
-    :custom
-    (completion-styles '(orderless basic))
-    (completion-category-defaults nil)
-    (completion-category-overrides '((file (styles basic partial-completion)))))
-
-  (use-package marginalia
-    :ensure t
-    :pin melpa
-    :after vertico
-    :init
-    (marginalia-mode 1))
-
-  (use-package corfu
-    :ensure t
-    :pin gnu
-    :init
-    (global-corfu-mode 1)))
-
-(defun ss-ui--setup-writing-layout ()
-  "Configure centered writing layout helpers."
-  (use-package olivetti
-    :ensure t
-    :pin melpa
-    :custom
-    (olivetti-body-width 100)))
-
-(defun ss-ui-setup ()
-  "Initialize interface and completion behavior."
-  (setq inhibit-startup-message t
-        inhibit-startup-screen t
-        ring-bell-function 'ignore)
-
-  (ss-ui--configure-frames)
-
-  (use-package modus-themes
-    :ensure nil
-    :no-require t
-    :config
-    (load-theme 'modus-vivendi t))
-
-  (use-package dired
-    :ensure nil
-    :custom
-    (dired-use-ls-dired nil))
-
-  (line-number-mode 1)
-  (column-number-mode 1)
-  (show-paren-mode 1)
-
-  (setq-default indicate-empty-lines nil)
-  (setq-default indicate-buffer-boundaries nil)
-  (setq-default fringe-indicator-alist nil)
-
-  (ss-ui--setup-modeline)
-  (ss-ui--setup-completion)
-  (ss-ui--setup-writing-layout))
-
-(provide 'ss-ui)
-
-;;; ss-ui.el ends here