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

org agenda frames

Browse source
This commit is contained in:
Chris Cochrun 2021-09-28 06:18:42 -05:00
parent ede21c8cd9
commit 22103de07b
2 changed files with 20 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
README.org
View file

@ -104,12 +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 '(100 . 100)) '((set-frame-parameter (selected-frame) 'alpha '(80 . 50))
(set-frame-parameter (selected-frame) 'undecorated nil) (add-to-list 'default-frame-alist '(alpha . (80 . 50)))
(add-to-list 'default-frame-alist '(undecorated . nil)) (add-to-list 'initial-frame-alist '(alpha . (80 . 50))))))
(add-to-list 'default-frame-alist '(alpha . (100 . 100)))
(add-to-list 'initial-frame-alist '(alpha . (100 . 100)))
(add-to-list 'initial-frame-alist '(undecorated . t)))))
(if (daemonp) (if (daemonp)
(add-hook 'after-make-frame-functions (add-hook 'after-make-frame-functions
@ -118,7 +115,6 @@ In order to have this config work on both my desktop with regular joe-schmoe mon
(chris/set-font-faces))) (chris/set-font-faces)))
(chris/set-font-faces))) (chris/set-font-faces)))
(add-to-list 'default-frame-alist '(undecorated . t))
#+end_src #+end_src
Then let's make sure line-numbers are relative and on. And let's turn on visual-line-mode globally. Then let's make sure line-numbers are relative and on. And let's turn on visual-line-mode globally.
@ -1178,13 +1174,14 @@ Part of this config includes some special capture templates for my work as a you
(setq org-agenda-window-setup 'current-window) (setq org-agenda-window-setup 'current-window)
(defun chris/org-agenda () (defun chris/org-agenda ()
"create a window in AwesomeWM that houses my org-agenda" "create a window that houses my org-agenda"
(interactive) (interactive)
(with-selected-frame (make-frame (if (not (ignore-errors (select-frame-by-name "org-agenda")))
'((name . "org-agenda") (with-selected-frame (make-frame
(width . 100))) '((name . "org-agenda")
(org-agenda-list))) (width . 100)))
(org-agenda-list))))
:general :general
(chris/leader-keys (chris/leader-keys

24
init.el
View file

@ -39,12 +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 '(100 . 100)) '((set-frame-parameter (selected-frame) 'alpha '(80 . 50))
(set-frame-parameter (selected-frame) 'undecorated nil) (add-to-list 'default-frame-alist '(alpha . (80 . 50)))
(add-to-list 'default-frame-alist '(undecorated . nil)) (add-to-list 'initial-frame-alist '(alpha . (80 . 50))))))
(add-to-list 'default-frame-alist '(alpha . (100 . 100)))
(add-to-list 'initial-frame-alist '(alpha . (100 . 100)))
(add-to-list 'initial-frame-alist '(undecorated . t)))))
(if (daemonp) (if (daemonp)
(add-hook 'after-make-frame-functions (add-hook 'after-make-frame-functions
@ -53,8 +50,6 @@
(chris/set-font-faces))) (chris/set-font-faces)))
(chris/set-font-faces))) (chris/set-font-faces)))
(add-to-list 'default-frame-alist '(undecorated . t))
(setq display-line-numbers-type 'relative) (setq display-line-numbers-type 'relative)
(global-display-line-numbers-mode +1) (global-display-line-numbers-mode +1)
(add-hook 'prog-mode-hook (display-line-numbers-mode +1)) (add-hook 'prog-mode-hook (display-line-numbers-mode +1))
@ -780,13 +775,14 @@ vertically."
(setq org-agenda-window-setup 'current-window) (setq org-agenda-window-setup 'current-window)
(defun chris/org-agenda () (defun chris/org-agenda ()
"create a window in AwesomeWM that houses my org-agenda" "create a window that houses my org-agenda"
(interactive) (interactive)
(with-selected-frame (make-frame (if (not (ignore-errors (select-frame-by-name "org-agenda")))
'((name . "org-agenda") (with-selected-frame (make-frame
(width . 100))) '((name . "org-agenda")
(org-agenda-list))) (width . 100)))
(org-agenda-list))))
:general :general
(chris/leader-keys (chris/leader-keys