From c1e58c22f2b5a5248c9a80c6751df4e64a6bed78 Mon Sep 17 00:00:00 2001
From: Franck Cuny <franck@fcuny.net>
Date: Mon, 18 Apr 2022 19:57:15 -0700
Subject: UI: simplify the code

---
 emacs/custom/my-ui.el | 76 +++++++++++++++++++++------------------------------
 1 file changed, 31 insertions(+), 45 deletions(-)

(limited to 'emacs/custom')

diff --git a/emacs/custom/my-ui.el b/emacs/custom/my-ui.el
index 4bb3254..35bcc6b 100644
--- a/emacs/custom/my-ui.el
+++ b/emacs/custom/my-ui.el
@@ -1,47 +1,37 @@
-;;; my-ui.el --- configure UI elements
+;;; my-ui.el --- configure UI elements -*- lexical-binding: t -*-
+
 ;;; Commentary:
 
 ;;; Code:
+
 (eval-and-compile
   (require 'use-package))
 
-(use-package scroll-bar
-  :config
-  (scroll-bar-mode -1))
-
-(use-package tool-bar
-  :config
-  (tool-bar-mode -1))
-
-(use-package menu-bar
-  :config
-  (menu-bar-mode -1))
-
-(use-package diminish
-  :ensure t)
-
-(use-package frame
-  :config
-  (blink-cursor-mode -1)
-  (setq frame-title-format '("%b@" (:eval (or (file-remote-p default-directory 'host) system-name))))
-  (when (memq window-system '(mac ns))
-    (add-to-list 'default-frame-alist '(font . "Source Code Pro-15"))
-    (add-to-list 'default-frame-alist '(fullscreen . maximized))
-    (add-to-list 'default-frame-alist '(ns-appearance . nil))
-    (add-to-list 'default-frame-alist '(ns-transparent-titlebar . nil))
-    (when (boundp 'ns-use-native-fullscreen)
-      (setq ns-use-native-fullscreen nil))
-    (when (boundp 'mac-allow-anti-aliasing)
-      (setq mac-allow-anti-aliasing t)))
-  (when (memq window-system '(x pgtk))
-    ;; if using `set-frame-font`, when opening a new frame with
-    ;; emacsclient, the font will not be used. Instead, use
-    ;; `default-frame-alist` to have the same font with emacsclient.
-    (add-to-list 'default-frame-alist '(font . "Source Code Pro-11"))
-    ;; this is a fall back in the case we have Unicode characters.
-    ;; For example, with this settings, the following source is
-    ;; rendered correctly 😇 😀 and 🤢
-    (set-fontset-font t 'symbol "Noto Color Emoji" nil 'append)))
+;; cleaning up the UI
+(scroll-bar-mode -1)
+(tool-bar-mode -1)
+(menu-bar-mode -1)
+(blink-cursor-mode -1)
+
+(when (memq window-system '(mac ns))
+  (add-to-list 'default-frame-alist '(font . "Source Code Pro-15"))
+  (add-to-list 'default-frame-alist '(fullscreen . maximized))
+  (add-to-list 'default-frame-alist '(ns-appearance . nil))
+  (add-to-list 'default-frame-alist '(ns-transparent-titlebar . nil))
+  (when (boundp 'ns-use-native-fullscreen)
+    (setq ns-use-native-fullscreen nil))
+  (when (boundp 'mac-allow-anti-aliasing)
+    (setq mac-allow-anti-aliasing t)))
+
+(when (memq window-system '(x pgtk))
+  ;; if using `set-frame-font`, when opening a new frame with
+  ;; emacsclient, the font will not be used. Instead, use
+  ;; `default-frame-alist` to have the same font with emacsclient.
+  (add-to-list 'default-frame-alist '(font . "Source Code Pro-11"))
+  ;; this is a fall back in the case we have Unicode characters.
+  ;; For example, with this settings, the following source is
+  ;; rendered correctly 😇 😀 and 🤢
+  (set-fontset-font t 'symbol "Noto Color Emoji" nil 'append))
 
 (use-package modus-themes
   :ensure t
@@ -98,13 +88,9 @@
 (setq mode-line-default-help-echo nil
       show-help-function nil)
 
-(use-package uniquify
-  :defer 5
-  :config
-  ;; don't muck with special buffers
-  (setq uniquify-ignore-buffers-re "^\\*")
-  (setq uniquify-buffer-name-style 'forward)
-  (setq uniquify-separator "/"))
+(setq uniquify-ignore-buffers-re "^\\*"
+     uniquify-buffer-name-style 'forward
+     uniquify-separator "/")
 
 (setq display-buffer-alist
       `(
-- 
cgit 1.4.1