diff options
Diffstat (limited to '')
-rw-r--r-- | emacs/custom/my-ui.el | 94 |
1 files changed, 0 insertions, 94 deletions
diff --git a/emacs/custom/my-ui.el b/emacs/custom/my-ui.el deleted file mode 100644 index 228baea..0000000 --- a/emacs/custom/my-ui.el +++ /dev/null @@ -1,94 +0,0 @@ -;;; my-ui.el --- configure UI elements -*- lexical-binding: t -*- - -;;; Commentary: - -;;; Code: - -;; cleaning up the UI -(scroll-bar-mode -1) -(tool-bar-mode -1) -(menu-bar-mode -1) -(blink-cursor-mode -1) - -;;; no fringe on the right side -(set-fringe-mode '(8 . 0)) - -(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)) - (set-face-attribute 'default nil :font "Source Code Pro" :height 130) - ;; 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)) - -(customize-set-variable 'display-time-24hr-format t) -(customize-set-variable 'display-time-day-and-date t) -(customize-set-variable 'display-time-format "%a %e %b, %H:%M") -(customize-set-variable 'display-time-interval 60) -(customize-set-variable 'display-time-default-load-average nil) -(customize-set-variable 'zoneinfo-style-world-list - '(("UTC" "UTC") - ("America/Los_Angeles" "Berkeley") - ("America/Denver" "Mountain Time") - ("America/Chicago" "Central Time") - ("America/New_York" "New York") - ("Europe/London" "London") - ("Europe/Paris" "Paris") - ("Asia/Calcutta" "Bangalore") - ("Asia/Tokyo" "Tokyo"))) - -;; the following setup only works with emacs >=28 I think -(when (boundp 'world-clock-list) - (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) - (setq world-clock-timer-enable t)) - -(when (boundp 'world-clock-timer-second) - (setq world-clock-timer-second 60)) - -;; Disable help mouse-overs for mode-line as they provide little to no benefits -(setq mode-line-default-help-echo nil - show-help-function nil) - -(setq display-buffer-alist - `( - ("\\*\\(.* # Help.*\\|Help\\|xref\\)\\*" ; See the hooks for `visual-line-mode' - (display-buffer-reuse-mode-window display-buffer-in-side-window) - (window-width . 0.35) - (side . left) - (slot . 0)) - ("\\*\\(Flymake diagnostics\\|Package-Lint\\).*" - (display-buffer-in-side-window) - (window-height . 0.16) - (side . top) - (slot . 0)) - ("\\*\\(Backtrace\\|Warnings\\|Compile-Log\\|Flymake log\\|Async Shell Command\\)\\*" - (display-buffer-in-side-window) - (window-height . 0.16) - (side . top) - (slot . 2)) - ("\\*\\(wclock\\|slo-calculator\\).*" - (display-buffer-in-side-window) - (window-width . 0.35) - (side . left) - (slot . 0)))) - -(add-hook 'help-mode-hook 'visual-line-mode) - -(provide 'my-ui) -;;; my-ui.el ends here |