|
From: | Marc Ihm |
Subject: | [O] Small code fragment to make zone-mode play well with org |
Date: | Tue, 8 Aug 2017 19:02:32 +0200 |
User-agent: | Mozilla/5.0 (Windows NT 10.0; WOW64; rv:38.0) Gecko/20100101 Thunderbird/38.7.2 |
Hi,with the fragment below in my startup-file, zone-mode handles hidden text correctly (does not reveal it) and thus plays well with orgmode.
(Of course the correct way to handle this would be to create a proper patch for zone.el instead of fixing this locally; but I am sending it here anyway: maybe someone has commit-rights to emacs core itself ...)
best regards Marc Ihm (advice-add 'zone :around (lambda (orig-fun &rest args) (interactive) (let (result text name) (when (string= major-mode "org-mode") (setq text (org-copy-visible (window-start) (window-end))) (setq name (generate-new-buffer-name (buffer-name))) (switch-to-buffer (get-buffer-create name)) (erase-buffer) (insert text)) (setq result (apply orig-fun args)) (if name (kill-buffer name)) result)))
[Prev in Thread] | Current Thread | [Next in Thread] |