From 813f39882b039994593f5421667be13b327c58ce Mon Sep 17 00:00:00 2001 From: Emmet Date: Sat, 9 Sep 2023 06:22:05 -0500 Subject: [PATCH] Fixes multi-org-roam when username changed in flake + wsl improvement --- user/app/doom-emacs/config.el | 16 +++++++++++++--- user/app/doom-emacs/doom.org | 16 +++++++++++++--- 2 files changed, 26 insertions(+), 6 deletions(-) diff --git a/user/app/doom-emacs/config.el b/user/app/doom-emacs/config.el index b7fce09b..bbe0fe22 100644 --- a/user/app/doom-emacs/config.el +++ b/user/app/doom-emacs/config.el @@ -33,8 +33,18 @@ (remove-hook 'doom-init-ui-hook '+unicode-init-fonts-h) ;; Transparent background -(set-frame-parameter nil 'alpha-background 65) -(add-to-list 'default-frame-alist '(alpha-background . 65)) +(if (string= system-nix-profile "wsl") + ;; Can't be that tranparent under wsl because no blur + (funcall (lambda () + (set-frame-parameter nil 'alpha-background 98) + (add-to-list 'default-frame-alist '(alpha-background . 98)) + )) + ;; On Linux I can enable blur, however + (funcall (lambda () + (set-frame-parameter nil 'alpha-background 65) + (add-to-list 'default-frame-alist '(alpha-background . 65)) + )) +) ;; Icons in completion buffers (add-hook 'marginalia-mode-hook #'all-the-icons-completion-marginalia-setup) @@ -541,7 +551,7 @@ same directory as the org-buffer and insert a link to this file." (dolist (item full-org-roam-db-list) (setq full-org-roam-db-list-pretty (append (list - (replace-regexp-in-string "\\/home\\/emmet\\/Org\\/" "" item)) full-org-roam-db-list-pretty))) + (replace-regexp-in-string (concat "\\/home\\/" user-username "\\/Org\\/") "" item)) full-org-roam-db-list-pretty))) (setq org-roam-db-choice (completing-read "Select org roam database: " full-org-roam-db-list-pretty nil t))) diff --git a/user/app/doom-emacs/doom.org b/user/app/doom-emacs/doom.org index 2a285366..f01920a7 100644 --- a/user/app/doom-emacs/doom.org +++ b/user/app/doom-emacs/doom.org @@ -94,8 +94,18 @@ Doom Emacs is traditionally installed by cloning the repository ([[https://githu (remove-hook 'doom-init-ui-hook '+unicode-init-fonts-h) ;; Transparent background -(set-frame-parameter nil 'alpha-background 65) -(add-to-list 'default-frame-alist '(alpha-background . 65)) +(if (string= system-nix-profile "wsl") + ;; Can't be that tranparent under wsl because no blur + (funcall (lambda () + (set-frame-parameter nil 'alpha-background 98) + (add-to-list 'default-frame-alist '(alpha-background . 98)) + )) + ;; On Linux I can enable blur, however + (funcall (lambda () + (set-frame-parameter nil 'alpha-background 65) + (add-to-list 'default-frame-alist '(alpha-background . 65)) + )) +) ;; Icons in completion buffers (add-hook 'marginalia-mode-hook #'all-the-icons-completion-marginalia-setup) @@ -663,7 +673,7 @@ exit (dolist (item full-org-roam-db-list) (setq full-org-roam-db-list-pretty (append (list - (replace-regexp-in-string "\\/home\\/emmet\\/Org\\/" "" item)) full-org-roam-db-list-pretty))) + (replace-regexp-in-string (concat "\\/home\\/" user-username "\\/Org\\/") "" item)) full-org-roam-db-list-pretty))) (setq org-roam-db-choice (completing-read "Select org roam database: " full-org-roam-db-list-pretty nil t)))