byteio/nixos-config
1
0
Fork 0
mirror of https://github.com/librephoenix/nixos-config synced 2025-01-19 07:05:51 +05:30
Code Issues Packages Projects Releases Wiki Activity

Fixes multi-org-roam when username changed in flake + wsl improvement

Browse source
This commit is contained in:
Emmet 2023-09-09 06:22:05 -05:00
parent 4108b4eb0e
commit 813f39882b
2 changed files with 26 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
user/app/doom-emacs/config.el
View file

@ -33,8 +33,18 @@
(remove-hook 'doom-init-ui-hook '+unicode-init-fonts-h) (remove-hook 'doom-init-ui-hook '+unicode-init-fonts-h)
;; Transparent background ;; Transparent background
(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) (set-frame-parameter nil 'alpha-background 65)
(add-to-list 'default-frame-alist '(alpha-background . 65)) (add-to-list 'default-frame-alist '(alpha-background . 65))
))
)
;; Icons in completion buffers ;; Icons in completion buffers
(add-hook 'marginalia-mode-hook #'all-the-icons-completion-marginalia-setup) (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) (dolist (item full-org-roam-db-list)
(setq full-org-roam-db-list-pretty (setq full-org-roam-db-list-pretty
(append (list (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: " (setq org-roam-db-choice (completing-read "Select org roam database: "
full-org-roam-db-list-pretty nil t))) full-org-roam-db-list-pretty nil t)))

12
user/app/doom-emacs/doom.org
View file

@ -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) (remove-hook 'doom-init-ui-hook '+unicode-init-fonts-h)
;; Transparent background ;; Transparent background
(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) (set-frame-parameter nil 'alpha-background 65)
(add-to-list 'default-frame-alist '(alpha-background . 65)) (add-to-list 'default-frame-alist '(alpha-background . 65))
))
)
;; Icons in completion buffers ;; Icons in completion buffers
(add-hook 'marginalia-mode-hook #'all-the-icons-completion-marginalia-setup) (add-hook 'marginalia-mode-hook #'all-the-icons-completion-marginalia-setup)
@ -663,7 +673,7 @@ exit
(dolist (item full-org-roam-db-list) (dolist (item full-org-roam-db-list)
(setq full-org-roam-db-list-pretty (setq full-org-roam-db-list-pretty
(append (list (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: " (setq org-roam-db-choice (completing-read "Select org roam database: "
full-org-roam-db-list-pretty nil t))) full-org-roam-db-list-pretty nil t)))