UI: remove completely `use-package'

The modus themes are part of emacs now.

1 files changed, 16 insertions, 23 deletions

diff --git a/emacs/custom/my-ui.el b/emacs/custom/my-ui.el
index 35bcc6b..698cc54 100644
--- a/emacs/custom/my-ui.el
+++ b/emacs/custom/my-ui.el
@@ -4,9 +4,6 @@
 
 ;;; Code:
 
-(eval-and-compile
-  (require 'use-package))
-
 ;; cleaning up the UI
 (scroll-bar-mode -1)
 (tool-bar-mode -1)
@@ -33,26 +30,20 @@
   ;; rendered correctly 😇 😀 and 🤢
   (set-fontset-font t 'symbol "Noto Color Emoji" nil 'append))
 
-(use-package modus-themes
-  :ensure t
-  :init
-  ;; Load the theme files before enabling a theme (else you get an error).
-  (modus-themes-load-themes)
-  :config
-  (modus-themes-load-operandi)
-  :custom
-  (modus-themes-syntax '(yellow-comments))
-  (modus-themes-links '(bold))
-  (modus-themes-markup '(bold intense background))
-  (modus-themes-org-blocks 'gray-background)
-  (modus-themes-headings
-   '((1 . (background 1))
-     (2 . (rainbow semibold 1))
-     (t . (bold))))
-  (modus-themes-completions
-   '((matches   . (extrabold intense))
-     (selection . (semibold  intense))
-     (popup     . (extrabold intense)))))
+;; Load a custom theme
+(eval-and-compile
+  (require 'modus-themes nil t)
+  (setq modus-themes-syntax '(yellow-comments)
+        modus-themes-links '(bold)
+        modus-themes-markup '(bold intense background)
+        modus-themes-org-blocks 'gray-background
+        modus-themes-headings '((1 . (background 1))
+                                (2 . (rainbow semibold 1))
+                                (t . (bold)))
+        modus-themes-completions '((matches   . (extrabold intense))
+                                   (selection . (semibold  intense))
+                                   (popup     . (extrabold intense))))
+  (load-theme 'modus-operandi t))
 
 (require 'time)
 (setq display-time-24hr-format t)
@@ -76,6 +67,8 @@
   (setq world-clock-list t))
 
 (when (boundp 'world-clock-time-format)
+  ;; UTC      => 02:42 +0000  Wednesday 20 April
+  ;; Berkeley => 19:42 -0700  Tuesday 19 April
   (setq world-clock-time-format "%R %z  %A %d %B"))
 
 (when (boundp 'world-clock-timer-enable)