path: root/emacs/custom/fcuny-ui.el

(use-package fringe
  :custom
  (left-fringe-width 0)
  (right-fringe-width 0)
  (fringes-outside-margins nil)
  (indicate-buffer-boundaries nil)
  (indicate-empty-lines nil)
  (overflow-newline-into-fringe t))

(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 modus-themes
  :ensure t
  :init
  (setq modus-themes-italic-constructs t
        modus-themes-bold-constructs t
        modus-themes-lang-checkers '(text-also background)
        modus-themes-mode-line '(3d intense)
        modus-themes-diffs '(desaturated)
        modus-themes-fringes nil
        modus-themes-paren-match '(intense)
        modus-themes-syntax '(yellow-comments green-strings)
        modus-themes-hl-line '(accented intense)
        modus-themes-prompts '(italic)
        modus-themes-region '(bg-only no-extend)
        modus-themes-org-blocks '(tinted-background)
        modus-themes-org-agenda '((event . (accented italic))
                                  (scheduled . uniform))
        modus-themes-headings '((1 . (background))
                                (2 . (rainbow))
                                (3 . (rainbow no-bold)))
        modus-themes-variable-pitch-ui nil
        modus-themes-variable-pitch-headings nil
        modus-themes-scale-headings nil)

  ;; Load the theme files before enabling a theme (else you get an error).
  (modus-themes-load-themes)
  :config
  (modus-themes-load-operandi))

(use-package frame
  :config
  (blink-cursor-mode -1)
  (set-background-color "#FFFFF8")
  (setq frame-title-format '("%b@" (:eval (or (file-remote-p default-directory 'host) system-name))))
  (when (memq window-system '(mac ns))
    (set-frame-font "Source Code Pro-14")
    (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))
    (set-frame-font "Source Code Pro-12")
    (set-face-attribute 'mode-line nil :font "Source Code Pro-10")
    ;; 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 "fontset-default" nil
                      (font-spec :name "Noto Color Emoji"))))

(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
      '(("America/Los_Angeles" "Berkeley")
        ("America/Chicago" "Chicago")
        ("America/New_York" "New York")
        ("Europe/Paris" "Paris")
        ("Asia/Tokyo" "Tokyo")
        ("Asia/Vladivostok" "Vladivostok")))
;; (setq world-clock-list t)
;; (setq world-clock-time-format "%R %z  %A %d %B")
;; (setq world-clock-buffer-name "*world-clock*") ; Placement handled by `display-buffer-alist'
;; (setq world-clock-timer-enable t)
;; (setq world-clock-timer-second 60)
(display-time-mode t)

(setq mode-line-percent-position '(-3 "%p"))

(setq-default mode-line-format
              '("%e"
                mode-line-front-space
                mode-line-modified
                mode-line-remote
                mod-line-frame-identification
                mode-line-buffer-identification
                "  "
                mode-line-position
                mode-line-modes
                "  "
                (vc-mode vc-mode)
                "  "
                mode-line-misc-info
                mode-line-end-spaces))

(use-package hl-line
  :hook ((prog-mode text-mode conf-mode special-mode) . hl-line-mode)
  :custom
  ;; Not having to render the hl-line overlay in multiple buffers offers a tiny
  ;; performance boost. I also don't need to see it in other buffers.
  (hl-line-sticky-flag nil)
  (global-hl-line-sticky-flag 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 "/"))

;; required for dap-mode and dap-ui-mode
(use-package posframe
  :ensure t)

(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))))

(add-hook 'help-mode-hook #'visual-line-mode)

(provide 'fcuny-ui)