From 6f8d1be4c4335df9a96c771d3aa6111d25c3ed1b Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Wed, 23 Mar 2022 07:19:41 -0700 Subject: rename fcuny-ui to my-ui --- emacs/custom/fcuny-ui.el | 127 ----------------------------------------------- emacs/custom/my-ui.el | 127 +++++++++++++++++++++++++++++++++++++++++++++++ emacs/init.el | 2 +- 3 files changed, 128 insertions(+), 128 deletions(-) delete mode 100644 emacs/custom/fcuny-ui.el create mode 100644 emacs/custom/my-ui.el diff --git a/emacs/custom/fcuny-ui.el b/emacs/custom/fcuny-ui.el deleted file mode 100644 index aad7e55..0000000 --- a/emacs/custom/fcuny-ui.el +++ /dev/null @@ -1,127 +0,0 @@ -;;; fcuny-ui -- configure UI elements -;;; 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))) - -(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)) - -(require 'time) -(setq display-time-24hr-format t) -(setq display-time-day-and-date t) -(setq display-time-format "%a %e %b, %H:%M") -(setq display-time-interval 60) -(setq display-time-default-load-average nil) -(setq 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) - (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) - -(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 display-buffer-alist - `( - ("\\*\\(.* # Help.*\\|Help\\)\\*" ; 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\\|eldoc\\|Package-Lint\\).*" - (display-buffer-in-side-window) - (window-height . 0.16) - (side . top) - (slot . 0)) - ("\\*\\(Backtrace\\|Warnings\\|Compile-Log\\|Flymake log\\)\\*" - (display-buffer-in-side-window) - (window-height . 0.16) - (side . top) - (slot . 2)) - ("\\*\\(Wo\\)\?Man" - (display-buffer-in-side-window) - (window-width . 0.4) - (side . left) - (slot . 0)) - ("\\*\\(wclock\\).*" - (display-buffer-in-side-window) - (window-width . 0.35) - (side . left) - (slot . 0)))) - -(add-hook 'help-mode-hook #'visual-line-mode) - -(provide 'fcuny-ui) -;;; fcuny-ui.el ends here diff --git a/emacs/custom/my-ui.el b/emacs/custom/my-ui.el new file mode 100644 index 0000000..a0473e6 --- /dev/null +++ b/emacs/custom/my-ui.el @@ -0,0 +1,127 @@ +;;;my-ui -- configure UI elements +;;; 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))) + +(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)) + +(require 'time) +(setq display-time-24hr-format t) +(setq display-time-day-and-date t) +(setq display-time-format "%a %e %b, %H:%M") +(setq display-time-interval 60) +(setq display-time-default-load-average nil) +(setq 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) + (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) + +(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 display-buffer-alist + `( + ("\\*\\(.* # Help.*\\|Help\\)\\*" ; 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\\|eldoc\\|Package-Lint\\).*" + (display-buffer-in-side-window) + (window-height . 0.16) + (side . top) + (slot . 0)) + ("\\*\\(Backtrace\\|Warnings\\|Compile-Log\\|Flymake log\\)\\*" + (display-buffer-in-side-window) + (window-height . 0.16) + (side . top) + (slot . 2)) + ("\\*\\(Wo\\)\?Man" + (display-buffer-in-side-window) + (window-width . 0.4) + (side . left) + (slot . 0)) + ("\\*\\(wclock\\).*" + (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 diff --git a/emacs/init.el b/emacs/init.el index b9409a0..534f116 100644 --- a/emacs/init.el +++ b/emacs/init.el @@ -39,7 +39,7 @@ (advice-add 'package-install :before 'my/package-install-refresh-contents) (require 'my-settings (expand-file-name "custom/my-settings" user-emacs-directory)) -(require 'fcuny-ui (expand-file-name "custom/fcuny-ui" user-emacs-directory)) +(require 'my-ui (expand-file-name "custom/my-ui" user-emacs-directory)) (require 'fcuny-navigation (expand-file-name "custom/fcuny-navigation" user-emacs-directory)) (require 'fcuny-edit (expand-file-name "custom/fcuny-edit" user-emacs-directory)) (require 'fcuny-text (expand-file-name "custom/fcuny-text" user-emacs-directory)) -- cgit 1.4.1