emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

ui/popup: refactor org hacks

Browse source 
This removes a few popup advice functions that are no longer necessary
and changes how we handle org agenda windows (they're now displayed in
the current window, rather than a popup -- see org-agenda-window-setup
to change this).

Other issues addressed:

+ Fixes 'Attempt to delete main window of frame' errors when using
  org-todo from popups (particularly in daemon Emacs).
+ Removed the custom 'popup-window options for org-agenda-window-setup
  and org-src-window-setup, and change them to 'current-window and
  'other-window, respectively.
This commit is contained in:
Henrik Lissner 2019-09-10 14:54:13 -04:00
parent 887bc05478
commit 6f6e30c428
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 14 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

11
modules/lang/org/config.el
View file

@ -7,6 +7,8 @@
(unless org-agenda-files
(setq org-agenda-files (list org-directory)))
(setq-default
;; Don't monopolize the whole frame just for the agenda
org-agenda-window-setup 'current-window
;; Hide blocked tasks in the agenda view.
org-agenda-dim-blocked-tasks 'invisible
org-agenda-inhibit-startup t
@ -84,8 +86,9 @@
(defun +org-init-babel-h ()
(setq org-src-preserve-indentation t ; use native major-mode indentation
org-src-tab-acts-natively t
org-src-window-setup 'current-window
org-confirm-babel-evaluate nil) ; you don't need my permission
org-confirm-babel-evaluate nil ; you don't need my permission
;; Show src buffer in popup, and don't monopolize the frame
org-src-window-setup 'other-window)
;; I prefer C-c C-c over C-c ' (more consistent)
(define-key org-src-mode-map (kbd "C-c C-c") #'org-edit-src-exit)
@ -707,8 +710,8 @@ between the two."
'(("^\\*Org Links" :slot -1 :vslot -1 :size 2 :ttl 0)
("^\\*\\(?:Agenda Com\\|Calendar\\|Org \\(?:Export Dispatcher\\|Select\\)\\)"
:slot -1 :vslot -1 :size #'+popup-shrink-to-fit :ttl 0)
("^\\*Org Agenda" :size 0.35 :select t :ttl nil)
("^\\*Org Src" :size 0.3 :quit nil :select t :autosave t :ttl nil)
("^\\*Org Agenda" :ignore t)
("^\\*Org Src" :size 0.4 :quit nil :select t :autosave t :modeline t :ttl nil)
("^CAPTURE.*\\.org$" :size 0.2 :quit nil :select t :autosave t))))