commit f406f17338677239890ced197c704239890f6491
parent 59ae461dd97d51a8d20a9c6a20e74eedf729b621
Author: quantumish <freifeld.david@gmail.com>
Date: Sat, 8 Aug 2026 15:22:31 -0700
Fix various startup bugs
Diffstat:
3 files changed, 13 insertions(+), 12 deletions(-)
diff --git a/modules/firefox.el b/modules/firefox.el
@@ -1,4 +1,5 @@
(use-package ini)
+(require 'ini)
(require 'sqlite)
(defvar firefox-app-name "firefox-esr<"
@@ -41,19 +42,12 @@
"firefox"
(cdr firefox-current-profile))))
-(defun firefox-switch-profile ()
- "Switch the selected Firefox profile."
- (interactive)
- (let* ((cands (firefox--profiles-info))
- (chosen (completing-read "Profile: " cands nil nil)))
- (setq firefox-current-profile (assoc chosen cands))))
-
(defvar firefox-command
"env MOZ_USE_XINPUT2=1 firefox-esr --new-window"
"Shell command to run to launch Firefox.")
(defvar firefox-search-format
- "https://www.google.com/search?q=%s"
+ "https://www.google.com/search?q=%s&udm=14"
"Format string to use for searching non-URL queries.")
(defvar firefox-title-postprocessor
@@ -75,7 +69,7 @@
(defvar firefox--places-data nil
"Cached browsing history completion candidates.")
-(add-to-list 'savehist-additional-variables 'firefox--places-data)
+;; (add-to-list 'savehist-additional-variables 'firefox--places-data)
(defvar firefox-history-sql-where
"last_visit_date IS NOT NULL AND (visit_count > 1 or unixepoch() - last_visit < 2628000)"
@@ -108,6 +102,14 @@
(setf (cadr row) (funcall firefox-title-postprocessor (cadr row)))))
(setq firefox--places-data (mapcar 'firefox--make-completion firefox--places-data)))
+(defun firefox-switch-profile ()
+ "Switch the selected Firefox profile."
+ (interactive)
+ (let* ((cands (firefox--profiles-info))
+ (chosen (completing-read "Profile: " cands nil nil)))
+ (setq firefox-current-profile (assoc chosen cands))
+ (firefox--set-data-cache)))
+
(defun firefox--urlify (input)
"Coerces INPUT to a URL by either adding a https prefix or converting to a search query."
(url-encode-url
diff --git a/modules/music.el b/modules/music.el
@@ -3,8 +3,6 @@
(use-package ready-player :ensure t
:init (ready-player-mode)
- :config
-
(defun now-playing ()
(let ((out (ignore-errors
(with-current-buffer (ready-player--active-buffer)
@@ -19,6 +17,7 @@
(t "")))))))
(if out out "")))
+ :config
(setq ready-player-ask-for-project-sustainability nil)
(setq ready-player-my-media-collection-location (expand-file-name "~/soul"))
diff --git a/modules/system.el b/modules/system.el
@@ -2,7 +2,7 @@
;;; Configuration for system related functionality.
(use-package exwm
- :config
+ :init
(setq exwm-workspace-number 2)
(setq exwm-input-global-keys `(([?\s-r] . exwm-reset)))
(setq exwm-input-simulation-keys
