From f2d3bf702965028fb3c325fd812a425d0efcf33d Mon Sep 17 00:00:00 2001
From: Franck Cuny <franck@fcuny.net>
Date: Tue, 19 Apr 2022 19:42:52 -0700
Subject: UI: remove completely `use-package'

The modus themes are part of emacs now.
---
 emacs/custom/my-ui.el | 39 ++++++++++++++++-----------------------
 1 file changed, 16 insertions(+), 23 deletions(-)

(limited to 'emacs/custom')

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)
-- 
cgit 1.4.1