Re: [O] How to utilize the vc package inside of the edit source block buffer?

[Grant Rettke]

Thank you Aaron and Jonathan.

Here is what I did:

(defadvice vc-next-action (before vc-next-action-in-org-src-block last activate)
  "If in org source block, exit it."
  (when (condition-case nil
            (org-src-in-org-buffer)
          (error nil))
    (org-edit-src-exit)))

I had trouble with the latter and I suspect it is due to my personal
configuration. That would be quite nice indeed to be able to keep the
org source edit buffer open.

On Tue, Sep 23, 2014 at 1:52 PM, Jonathan Leech-Pepin
<address@hidden> wrote:
> Hello,
>
> On 23 September 2014 14:19, Aaron Ecay <address@hidden> wrote:
>>
>> Hi Grant,
>>
>> 2014ko irailak 23an, Grant Rettke-ek idatzi zuen:
>> >
>> > Good afternoon,
>> >
>> > The ability to org-edit-special inside of source block is truly
>> > priceless.
>> >
>> > There is a delightful workflow to be found with approach.
>> >
>> > It has got me spending more and more time in the edit buffer though,
>> > wanting to utilize
>> > vc-next-action to initiate a commit. This is not possible because the
>> > buffer is not associated
>> > with a file.
>> >
>> > Is there some way to get tell Emacs to execute the action on the
>> > source buffer from which the
>> > source edit block buffer originated?
>>
>> One approach might be to advise the vc commands like (pseudocode):
>>
>> (defadvice vc-foo (around org-src activate)
>>   (when (in-src-edit-p)
>>     (org-edit-src-exit))
>>   ad-do-it)
>>
>
> The following would work as a wrapper:
>
> (defun test-buffer ()
>   (interactive)
>   (when org-edit-src-from-org-mode
>     (let ((buffer (marker-buffer org-edit-src-beg-marker)))
>       (with-current-buffer buffer
>         (message "%s is current for file: %s"
>                  (current-buffer)
>                  (buffer-file-name))))))
>
> Replace (message ...) with `vc-next-action` or use the above as advice
> [adjusting from (when..) to (if..)].
>
> Regards,
> Jonathan
>
>>
>> --
>> Aaron Ecay
>>
>



-- 
Grant Rettke
address@hidden | http://www.wisdomandwonder.com/
“Wisdom begins in wonder.” --Socrates
((λ (x) (x x)) (λ (x) (x x)))
“Life has become immeasurably better since I have been forced to stop
taking it seriously.” --Thompson