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

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
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 ()
"Set the frame to be transparent on Wayland compositors"
(if (string-search "wayland" x-display-name)
'((set-frame-parameter (selected-frame) 'alpha '(80 . 50))
(add-to-list 'default-frame-alist '(alpha . (80 . 50)))
(add-to-list 'initial-frame-alist '(alpha . (80 . 50))))))
'((set-frame-parameter (selected-frame) 'alpha '(80 . 80))
(add-to-list 'default-frame-alist '(alpha . (80 . 80)))
(add-to-list 'initial-frame-alist '(alpha . (80 . 80))))))
(if (daemonp)
(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 ()
"create a window that houses my org-agenda"
(interactive)
(if (not (ignore-errors (select-frame-by-name "org-agenda")))
(with-selected-frame (make-frame
'((name . "org-agenda")
(width . 100)))
(org-agenda-list))))
(with-selected-frame (make-frame
'((name . "org-agenda")
(width . 100)))
(org-agenda-list)))
:general

15
init.el
View file

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