diff options
Diffstat (limited to '.config/emacs/bd-mode-and-themes.el')
| -rw-r--r-- | .config/emacs/bd-mode-and-themes.el | 161 |
1 files changed, 0 insertions, 161 deletions
diff --git a/.config/emacs/bd-mode-and-themes.el b/.config/emacs/bd-mode-and-themes.el deleted file mode 100644 index 528e920..0000000 --- a/.config/emacs/bd-mode-and-themes.el +++ /dev/null @@ -1,161 +0,0 @@ -;; -*- lexical-binding: t; -*- - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; excellent resources : https://gitlab.com/mark.feller/emacs.d/-/blob/master/modules/module-solarized.el ;; -;; https://protesilaos.com/codelog/2023-07-29-emacs-custom-modeline-tutorial/ ;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -;;;; icon components for filename and git status -(use-package all-the-icons - :demand t - :init - (defun modeline-buffer-name () - "Return 'buffer-name' with proper spacing and icon." - (format " %s %s" (all-the-icons-icon-for-file (buffer-name)) (buffer-name))) - (defvar-local bd/buffer-identification-mode-line - '(:eval (format "%s" (modeline-buffer-name))) - "Formats the modeline-buffer-name.") - - (defun git-vc-modeline () - (let ((branch (mapconcat 'concat (cdr (split-string vc-mode "[:-]")) "-"))) - (concat - (propertize (format " %s" (all-the-icons-octicon "git-branch")) - 'face `(:height 1 :family ,(all-the-icons-octicon-family)) - 'display '(raise 0)) - (propertize (format " %s" branch)) - (propertize " ")))) - (defvar-local bd/vc-mode-line - '(:eval (when (and vc-mode (not (eq major-mode 'magit-status-mode))) ; temp fix to avoid bug which occurs in magit buffer - (format "%s" - (propertize (git-vc-modeline) 'face 'shadow)))) - "Formats the checked out git repository.") - (defvar-local bd/emms-mode-line - '(:eval (when (and (mode-line-window-selected-p) emms-mode-line-string) - (format "%s %s" emms-mode-line-string - emms-playing-time-string))) - "Formats the currently playing emms track.") - :config - (setq emms-mode-line-icon-before-format (format "%s" (all-the-icons-fileicon "owl")) - emms-mode-line-icon-enabled-p t)) - -(use-package ednc - :init - (defun get-num-notifications () - "Return number of active notifcations as a string." - (format "%s" (length (ednc-notifications)))) - (defvar-local bd/notify-mode-line - '(:eval (when (and (ednc-notifications) (mode-line-window-selected-p)) - (format " %s %s" (all-the-icons-material "notifications_active") - (propertize (get-num-notifications) 'face 'error)))) - "Formats the notification number.") - (ednc-mode)) - -;;;; time and date -(setq display-time-format "%m/%d/%y %H:%M (%a)" - display-time-default-load-average nil) -(display-time) - -(defvar-local bd/time-mode-line - '(:eval - (when (mode-line-window-selected-p) - display-time-string)) - "displays current time and date in selected window.") - -(defun mode-line-fill (reserve) - "Return empty space, leaving RESERVE space on the right." - (unless reserve - (setq reserve 20)) - (when (and window-system (eq 'right (get-scroll-bar-mode))) - (setq reserve (- reserve 3))) - (propertize " " - 'display `((space :align-to (- (+ right right-fringe right-margin) ,reserve))))) - -(dolist (construct '(bd/buffer-identification-mode-line - bd/vc-mode-line - bd/misc-mode-line)) - (put construct 'risky-local-variable t)) - -(setq-default mode-line-format - (list - mode-line-front-space - ;; mode-line-mule-info - ;; mode-line-frame-identification - bd/buffer-identification-mode-line - " " - mode-line-modes - " " - ;; mode-line-position - mode-line-modified - bd/notify-mode-line - bd/vc-mode-line - " " - bd/emms-mode-line - (mode-line-fill 21) - bd/time-mode-line)) - -;;;; remove mode-line-clutter -(define-minor-mode minor-mode-blackout-mode - "Hides minor modes from the mode line." - t) - -(catch 'done - (mapc (lambda (x) - (when (and (consp x) - (equal (cadr x) '("" minor-mode-alist))) - (let ((original (copy-sequence x))) - (setcar x 'minor-mode-blackout-mode) - (setcdr x (list "" original))) - (throw 'done t))) - mode-line-modes)) - -(global-set-key (kbd "C-c m") 'minor-mode-blackout-mode) - -(defun disable_mode_line () - (setq mode-line-format nil)) - -;; custom function to remove mode line from images -(add-hook 'image-mode-hook 'disable_mode_line) - -;;;; true transparency -;; (add-to-list 'default-frame-alist '(alpha-background . 60)) -(add-to-list 'default-frame-alist '(alpha . (80 . 80))) - -(defun set-frame-alpha (value) - "Sets the transparency of the frame background. 0=transparent/100=opaque" - (interactive "nTransparency Value 0 - 100 opaque:") - (setq value (clamp 0 100 value)) - (set-frame-parameter (selected-frame) 'alpha-background value) - (message "Alpha set to %d" value)) - -;;;; modus themes -(defun modus-themes-custom-faces () - (modus-themes-with-colors - (custom-set-faces - `(mode-line-inactive ((,class :background ,bg-main - :foreground ,fg-active))) - `(mode-line-active ((,class :background ,bg-main - :foreground ,fg-active))) - - `(hl-line ((,class :background ,magenta-nuanced-bg))) - - `(emms-playlist-track-face ((,class :foreground ,blue-nuanced-fg))) - `(emms-playlist-selected-face ((,class :foreground ,fg-special-cold))) - `(emms-browser-track-face ((,class :foreground ,blue-nuanced-fg)))))) - -(add-hook 'modus-themes-after-load-theme-hook #'modus-themes-custom-faces) - -(setopt modus-themes-italic-constructs t - modus-themes-bold-constructs t - modus-themes-hl-line '(accented) - modus-themes-subtle-line-numbers t - modus-themes-paren-match '(intense) - modus-themes-region '(bg-only) - modus-themes-syntax '(faint) - modus-themes-mode-line '(borderless) - modus-themes-org-blocks 'gray-background - modus-themes-headings '( - (1 . (rainbow overline)))) - -(load-theme 'modus-vivendi t) - -(modus-themes-custom-faces) |