chris/emacs
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

idk maybe something

Browse source
This commit is contained in:
Chris Cochrun 2021-10-12 12:05:31 -05:00
parent 22103de07b
commit 012f31b351
2 changed files with 14 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
README.org
View file

@ -104,9 +104,9 @@ In order to have this config work on both my desktop with regular joe-schmoe mon
(defun chris/set-transparency () (defun chris/set-transparency ()
"Set the frame to be transparent on Wayland compositors" "Set the frame to be transparent on Wayland compositors"
(if (string-search "wayland" x-display-name) (if (string-search "wayland" x-display-name)
'((set-frame-parameter (selected-frame) 'alpha '(80 . 50)) '((set-frame-parameter (selected-frame) 'alpha '(80 . 80))
(add-to-list 'default-frame-alist '(alpha . (80 . 50))) (add-to-list 'default-frame-alist '(alpha . (80 . 80)))
(add-to-list 'initial-frame-alist '(alpha . (80 . 50)))))) (add-to-list 'initial-frame-alist '(alpha . (80 . 80))))))
(if (daemonp) (if (daemonp)
(add-hook 'after-make-frame-functions (add-hook 'after-make-frame-functions
@ -1176,11 +1176,10 @@ Part of this config includes some special capture templates for my work as a you
(defun chris/org-agenda () (defun chris/org-agenda ()
"create a window that houses my org-agenda" "create a window that houses my org-agenda"
(interactive) (interactive)
(if (not (ignore-errors (select-frame-by-name "org-agenda"))) (with-selected-frame (make-frame
(with-selected-frame (make-frame '((name . "org-agenda")
'((name . "org-agenda") (width . 100)))
(width . 100))) (org-agenda-list)))
(org-agenda-list))))
:general :general

15
init.el
View file

@ -39,9 +39,9 @@
(defun chris/set-transparency () (defun chris/set-transparency ()
"Set the frame to be transparent on Wayland compositors" "Set the frame to be transparent on Wayland compositors"
(if (string-search "wayland" x-display-name) (if (string-search "wayland" x-display-name)
'((set-frame-parameter (selected-frame) 'alpha '(80 . 50)) '((set-frame-parameter (selected-frame) 'alpha '(80 . 80))
(add-to-list 'default-frame-alist '(alpha . (80 . 50))) (add-to-list 'default-frame-alist '(alpha . (80 . 80)))
(add-to-list 'initial-frame-alist '(alpha . (80 . 50)))))) (add-to-list 'initial-frame-alist '(alpha . (80 . 80))))))
(if (daemonp) (if (daemonp)
(add-hook 'after-make-frame-functions (add-hook 'after-make-frame-functions
@ -777,11 +777,10 @@ vertically."
(defun chris/org-agenda () (defun chris/org-agenda ()
"create a window that houses my org-agenda" "create a window that houses my org-agenda"
(interactive) (interactive)
(if (not (ignore-errors (select-frame-by-name "org-agenda"))) (with-selected-frame (make-frame
(with-selected-frame (make-frame '((name . "org-agenda")
'((name . "org-agenda") (width . 100)))
(width . 100))) (org-agenda-list)))
(org-agenda-list))))
:general :general