From 288ccb3984c7cb46b67d0f6bf7fb6d53c5d7a2d3 Mon Sep 17 00:00:00 2001 From: bd Date: Sat, 13 Dec 2025 23:43:10 -0500 Subject: guix: full refactor of configuration structure --- .config/emacs/modules/bd--utility.el | 160 ----------------------------------- 1 file changed, 160 deletions(-) delete mode 100644 .config/emacs/modules/bd--utility.el (limited to '.config/emacs/modules/bd--utility.el') diff --git a/.config/emacs/modules/bd--utility.el b/.config/emacs/modules/bd--utility.el deleted file mode 100644 index ee74f58..0000000 --- a/.config/emacs/modules/bd--utility.el +++ /dev/null @@ -1,160 +0,0 @@ -;;; -*- lexical-binding: t; -*- -;;; Commentary: -;;; Code: - -(require 'project) -(require 'xdg) - - -(defun bd/set-frame-alpha (value) - "Set the transparency of ALL frame backgrounds to VALUE. 0=transparent/100=opaque." - (interactive "nTransparency Value (50 - 100 opaque): ") - (setq value (max 50 (min value 100))) - (mapc (lambda (f) - (set-frame-parameter f 'alpha `(,value . ,value))) - (frame-list)) - (message "Alpha set to %d" value)) - -(defun bd/set-bg (&optional arg) - "Set the current wallpaper using feh. -ARG can be one of the following: - -- nil: set the most recent wallpaper -- directory: set a random image from the directory -- file: set the specified file" - (interactive - (list (read-file-name - "Select a wallpaper: " - (expand-file-name "~/wf/wall/") nil t))) - (let ((wall (expand-file-name "~/wf/wall/current"))) - (when arg - (cond - ((file-regular-p arg) (copy-file arg wall t)) - ((file-directory-p arg) - (let* ((images (directory-files arg (lambda (f) (string-match-p "\\.jpeg\\'" f)))) - (rfile (nth (random (length images)) images))) - (and rfile (copy-file rfile wall t)))))) - (start-process "set wallpaper" nil "feh" "--bg-fill" wall) - (message "Set wallpaper."))) - -(defun bd/lock () - "Lock the screen." - (interactive) - (start-process "lock" nil "slock")) - -(defun bd/shoot-full () - "Take a full-screen screenshot." - (interactive) - (let ((default-directory (xdg-user-dir "PICTURES"))) - (start-process-shell-command "flameshot" nil "flameshot full"))) - -(defun bd/shoot-part () - "Take a selective screen screenshot." - (interactive) - (let ((default-directory (xdg-user-dir "PICTURES"))) - (start-process-shell-command "flameshot" nil "flameshot launcher"))) - -(defun bd/toggle-mute () - "Toggle between muted and unmuted." - (interactive) - (start-process "sound toggle" nil "pactl" "set-sink-mute" "@DEFAULT_SINK@" "toggle")) - -(defun bd/set-volume (value) - "Set the volume to VALUE." - (start-process "set volume" nil "pactl" "set-sink-volume" "@DEFAULT_SINK@" value)) - -(defun bd/decrement-volume () - "Decrements the volume." - (interactive) - (bd/set-volume "-4%")) - -(defun bd/increment-volume () - "Increments the volume." - (interactive) - (bd/set-volume "+4%")) - -(defun bd/set-brightness (value) - "Set the brightness to VALUE." - (start-process "set brightness" nil "brightnessctl" "set" value)) - -(defun bd/decrement-brightness () - "decrements the brightness." - (interactive) - (bd/set-brightness "5%-")) - -(defun bd/increment-brightness () - "Increments the brightness." - (interactive) - (bd/set-brightness "5%+")) - -(defun bd/get-directory-dwim () - "Return the directory you always wanted." - (or (when (project-current) - (project-root (project-current))) ;; git - (locate-dominating-file "." "Makefile") ;; make - (locate-dominating-file "." "manifest.scm") ;; guix - default-directory)) - -(defun bd/buffer-eww-p (buf) - "Return non-nil if BUF is a `eww-mode' buffer." - (member - (buffer-local-value 'major-mode (get-buffer buf)) - '(eww-mode))) - -(defun bd/buffer-exwm-p (buf) - "Return non-nil if BUF is an `exwm-mode' buffer and is in the current workspace." - (and (member - (buffer-local-value 'major-mode (get-buffer buf)) - '(exwm-mode)) - (eq (exwm-workspace--position exwm-workspace--current) - (alist-get 'exwm--desktop (buffer-local-variables (get-buffer buf)))))) - -(defun bd/buffer-scratch-p (buf) - "Return non-nil if BUF is a scratch buffer." - (buffer-local-value 'scratch-buffer (get-buffer buf))) - -(defun bd/buffer-text-p (buf) - "Return non-nil if BUF derives from `text-mode'." - (provided-mode-derived-p (buffer-local-value 'major-mode (get-buffer buf)) 'text-mode)) - -(defun bd/buffer-prog-p (buf) - "Return non-nil if BUF derives from `prog-mode'." - (provided-mode-derived-p (buffer-local-value 'major-mode (get-buffer buf)) 'prog-mode)) - -(defun bd/buffer-shell-p (buf) - "Return non-nil if BUF derives from `text-mode'." - (member - (buffer-local-value 'major-mode (get-buffer buf)) - '(shell-mode eshell-mode term-mode vterm-mode))) - -(defun bd/buffer-dired-p (buf) - "Return non-nil if BUF is a `dired-mode' buffer." - (member - (buffer-local-value 'major-mode (get-buffer buf)) - '(dired-mode))) - -(defun bd/buffer-irc-p (buf) - "Return non-nil if BUF is an `irc-mode' buffer." - (member - (buffer-local-value 'major-mode (get-buffer buf)) - '(rcirc-mode erc-mode))) - -(defun bd/buffer-ordinary-p (buf) - "Return non-nil if BUF does not fit into known categories." - (not (or (bd/buffer-eww-p buf) - (bd/buffer-exwm-p buf) - (bd/buffer-text-p buf) - (bd/buffer-prog-p buf) - (bd/buffer-shell-p buf) - (bd/buffer-scratch-p buf) - (bd/buffer-dired-p buf) - (bd/buffer-irc-p buf)))) - -(defun bd/kill-quietly (proc) - "Kill PROC quietly." - (ignore-errors (cond ((bufferp proc) (kill-buffer proc)) - ((stringp proc) (interrupt-process proc))))) - - -(provide 'bd--utility) -;;; bd--utility.el ends here -- cgit v1.2.3