emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Dan Davison <davison@stats.ox.ac.uk>
To: emacs org-mode mailing list <emacs-orgmode@gnu.org>
Subject: Re: outline-minor-mode and code editing / export
Date: Sat, 06 Jun 2009 15:45:11 -0400	[thread overview]
Message-ID: <87iqj9xi2g.fsf@stats.ox.ac.uk> (raw)
In-Reply-To: <87skidxinh.fsf@stats.ox.ac.uk> (Dan Davison's message of "Sat, 06 Jun 2009 15:32:34 -0400")

Yes, well I definitely git confused in the sense that the patch I
just sent was the inverse of what I intended (i.e. substitute - for +
and vice versa in the original). The patch I meant to submit is


diff --git a/lisp/org-exp.el b/lisp/org-exp.el
index 5f0ad88..0dcd956 100644
--- a/lisp/org-exp.el
+++ b/lisp/org-exp.el
@@ -2215,6 +2215,7 @@ INDENT was the original indentation of the block."
 			    (if (functionp mode)
 				(funcall mode)
 			      (fundamental-mode))
+			    (if (fboundp 'show-all) (show-all))
 			    (font-lock-fontify-buffer)
 			    (set-buffer-modified-p nil)
 			    (org-export-htmlize-region-for-paste
diff --git a/lisp/org.el b/lisp/org.el
index 1eb5e74..d124b1a 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -6875,7 +6875,9 @@ the language, a switch telling of the content should be in a single line."
 	code)
   (goto-char (point-min))
   (if (looking-at "[ \t\n]*\n") (replace-match ""))
-  (if (re-search-forward "\n[ \t\n]*\\'" nil t) (replace-match ""))
+  (when (re-search-forward "\n[ \t\n]*\\'" nil t)
+    (replace-match "")
+    (setq line (min line (org-current-line))))
   (when (org-bound-and-true-p org-edit-src-force-single-line)
     (goto-char (point-min))
     (while (re-search-forward "\n" nil t)
@@ -6914,11 +6916,18 @@ the language, a switch telling of the content should be in a single line."
 (defun org-edit-src-save ()
   "Save parent buffer with current state source-code buffer."
   (interactive)
-  (let ((p (point)) (m (mark)) msg)
+  (let ((p (point)) (m (mark))
+       (visibility org-cycle-global-status) msg)
     (org-edit-src-exit)
     (save-buffer)
     (setq msg (current-message))
     (org-edit-src-code)
+    (when visibility
+      (setq org-cycle-global-status visibility)
+      (cond
+       ((equal org-cycle-global-status 'overview) (org-overview))
+       ((equal org-cycle-global-status 'contents) (org-content))
+       ((equal org-cycle-global-status 'all) (show-all))))
     (push-mark m 'nomessage)
     (goto-char (min p (point-max)))
     (message (or msg ""))))



Dan Davison <davison@stats.ox.ac.uk> writes:

> In turn on outline-minor-mode in the language major modes that I use, so
> that code starts up folded, via a call to org-content that is made in my
> major-mode hook. I'm finding that this has two undesirable consequences
> for org-mode, as follows. I have also described a possible solution, as
> implemented by the patch at the end.
>
> 1. The code appears folded on HTML export
>
>    solution: add this line to org-export-format-source-code-or-example
>    (if (fboundp 'show-all) (show-all))
>
> 2. org-edit-src-save does not remember the visibility state, so C-x C-s
>    causes a jump to a different visibility state
>
>    solution: save the value of org-cycle-global-status and, when the
>    edit buffer is re-entered, call one of {org-overview,
>    org-content,show-all} accordingly
>
> Dan
>
> p.s. Carsten: the first hunk in the second diff (org.el) refers to a
> patch that I submitted a few days ago and which you said had been
> applied. http://article.gmane.org/gmane.emacs.orgmode/14154 However, I
> believe it is not in the current git. Apologies if I have got (git)
> confused, but if not I do believe there is still a need for it or an
> equivalent solution: without this change I go to end of edit buffer, hit
> return a few times, and then C-x C-s fails (leaves me in org buffer).
>
>
>
>
> diff --git a/lisp/org-exp.el b/lisp/org-exp.el
> index 0dcd956..5f0ad88 100644
> --- a/lisp/org-exp.el
> +++ b/lisp/org-exp.el
> @@ -2215,7 +2215,6 @@ INDENT was the original indentation of the block."
>  			    (if (functionp mode)
>  				(funcall mode)
>  			      (fundamental-mode))
> -			    (if (fboundp 'show-all) (show-all))
>  			    (font-lock-fontify-buffer)
>  			    (set-buffer-modified-p nil)
>  			    (org-export-htmlize-region-for-paste
> diff --git a/lisp/org.el b/lisp/org.el
> index d124b1a..1eb5e74 100644
> --- a/lisp/org.el
> +++ b/lisp/org.el
> @@ -6875,9 +6875,7 @@ the language, a switch telling of the content should be in a single line."
>  	code)
>    (goto-char (point-min))
>    (if (looking-at "[ \t\n]*\n") (replace-match ""))
> -  (when (re-search-forward "\n[ \t\n]*\\'" nil t)
> -    (replace-match "")
> -    (setq line (min line (org-current-line))))
> +  (if (re-search-forward "\n[ \t\n]*\\'" nil t) (replace-match ""))
>    (when (org-bound-and-true-p org-edit-src-force-single-line)
>      (goto-char (point-min))
>      (while (re-search-forward "\n" nil t)
> @@ -6916,18 +6914,11 @@ the language, a switch telling of the content should be in a single line."
>  (defun org-edit-src-save ()
>    "Save parent buffer with current state source-code buffer."
>    (interactive)
> -  (let ((p (point)) (m (mark))
> -       (visibility org-cycle-global-status) msg)
> +  (let ((p (point)) (m (mark)) msg)
>      (org-edit-src-exit)
>      (save-buffer)
>      (setq msg (current-message))
>      (org-edit-src-code)
> -    (when visibility
> -      (setq org-cycle-global-status visibility)
> -      (cond
> -       ((equal org-cycle-global-status 'overview) (org-overview))
> -       ((equal org-cycle-global-status 'contents) (org-content))
> -       ((equal org-cycle-global-status 'all) (show-all))))
>      (push-mark m 'nomessage)
>      (goto-char (min p (point-max)))
>      (message (or msg ""))))
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

  reply	other threads:[~2009-06-06 19:45 UTC|newest]

Thread overview: 7+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2009-06-06 19:32 outline-minor-mode and code editing / export Dan Davison
2009-06-06 19:45 ` Dan Davison [this message]
2009-06-07 15:56 ` Carsten Dominik
2009-06-07 17:19   ` Dan Davison
2009-06-08  6:54     ` Carsten Dominik
2009-06-09 13:22       ` Dan Davison
2009-06-09 17:29         ` Carsten Dominik

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87iqj9xi2g.fsf@stats.ox.ac.uk \
    --to=davison@stats.ox.ac.uk \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).