From mboxrd@z Thu Jan 1 00:00:00 1970 From: Xebar Saram Subject: Re: [RFC] Add commmand for wrapping sexp/region in src-blocks to Org? Date: Wed, 6 Aug 2014 14:43:37 +0300 Message-ID: References: <87k36wqirh.fsf@gmail.com> <87zjfjulf7.fsf@gmail.com> Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=001a11c21b069e0eb204fff47b8b Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:39678) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XEzd5-0000Sz-OT for emacs-orgmode@gnu.org; Wed, 06 Aug 2014 07:43:40 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XEzd4-0002XR-Mc for emacs-orgmode@gnu.org; Wed, 06 Aug 2014 07:43:39 -0400 Received: from mail-oi0-x236.google.com ([2607:f8b0:4003:c06::236]:59950) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XEzd4-0002XN-FI for emacs-orgmode@gnu.org; Wed, 06 Aug 2014 07:43:38 -0400 Received: by mail-oi0-f54.google.com with SMTP id i138so1577770oig.27 for ; Wed, 06 Aug 2014 04:43:37 -0700 (PDT) In-Reply-To: <87zjfjulf7.fsf@gmail.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Thorsten Jolitz Cc: org mode --001a11c21b069e0eb204fff47b8b Content-Type: text/plain; charset=UTF-8 thanks Thorsten its perfect z On Tue, Aug 5, 2014 at 4:15 PM, Thorsten Jolitz wrote: > Xebar Saram writes: > > Hi Xebar, > > > small question. > > sorry for the late answer > > > i wonder if i could request a tiny related feature (this may be very > > easy to do already). > > i would like to assign hotkeys for 2 scenarios: > > > > 1) pre selected language for 1 line > > 2) pre selected language prompting for number of lines to wrap > > > > so IE id assign F9-b to auto wrap current line with bash syntax while > > F9-l would wrap in lisp > > also F10-b would prompt me how man lines to wrap in bash etc > > > > is that possible? > > I think so, I have some predefined calls to that function with global > keybindings in my init file (right now I call it `tj/wrap-in-src-block', > you might have to adapt this): > > (global-set-key (kbd "C-c w l") > (lambda () > (interactive) > (let ((current-prefix-arg '(4))) > (call-interactively > 'tj/wrap-in-src-block)))) > > (global-set-key (kbd "C-c w n") > (lambda () > (interactive) > (let ((current-prefix-arg '(16))) > (call-interactively > 'tj/wrap-in-src-block)))) > > (global-set-key (kbd "C-c w w") 'tj/wrap-in-src-block) > > > > 1) pre selected language for 1 line > > e.g. > (global-set-key (kbd "C-c w y") > (lambda () > (interactive) > (tj/wrap-in-src-block "shell" 1))) > > > > 2) pre selected language prompting for number of lines to wrap > > emacs-lisp is kind of preselected, but you could add this after the > ((equal current-prefix-arg '(16)) ...) part > > > ((equal current-prefix-arg '(64)) > (list > "shell" > (read-number "Number of lines to wrap: " 1))) > > and then > > (global-set-key (kbd "C-c w z") > (lambda () > (interactive) > (let ((current-prefix-arg '(64))) > (call-interactively > 'tj/wrap-in-src-block)))) > > everything untested, unfortunately ... > -- > cheers, > Thorsten > > > --001a11c21b069e0eb204fff47b8b Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable
thanks Thorsten

its perfect
<= br>
z


On Tue, Aug 5, 2014 at 4:15 PM, Thorsten Jolitz <tjolitz@gma= il.com> wrote:
Xebar Saram <zeltakc@gmail.com> writes:

Hi Xebar,

> small question.

sorry for the late answer

> i wonder if i could request a tiny related feature (this may be very > easy to do already).
> i would like to assign hotkeys for 2 scenarios:
>
> 1) pre selected language for 1 line
> 2) pre selected language prompting for number of lines to wrap
>
> so IE id assign F9-b to auto wrap current line with bash syntax while<= br> > F9-l would wrap in lisp
> also F10-b would prompt me how man lines to wrap in bash etc
>
> is that possible?

I think so, I have some predefined calls to that function with global=
keybindings in my init file (right now I call it `tj/wrap-in-src-block'= ,
you might have to adapt this):

(global-set-key (kbd "C-c w l")
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (lambda ()
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (interactive= )
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (let ((curre= nt-prefix-arg '(4)))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0(call-interactively
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 'tj/wrap-in-src-block))))

(global-set-key (kbd "C-c w n")
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (lambda ()
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (interactive= )
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (let ((curre= nt-prefix-arg '(16)))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0(call-interactively
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 'tj/wrap-in-src-block))))

(global-set-key (kbd "C-c w w") 'tj/wrap-in-src-block)


> 1) pre selected language for 1 line

e.g.
(global-set-key (kbd "C-c w y")
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (lambda ()
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (interactive= )
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 (tj/wrap-in-src-block "shell" 1)))


> 2) pre selected language prompting for number of lines to wrap

emacs-lisp is kind of preselected, but you could add this after the ((equal current-prefix-arg '(16)) ...) part


=C2=A0 =C2=A0 ((equal current-prefix-arg '(64))
=C2=A0 =C2=A0 =C2=A0(list
=C2=A0 =C2=A0 =C2=A0"shell"
=C2=A0 =C2=A0 =C2=A0 (read-number "Number of lines to = wrap: " 1)))

and then

(global-set-key (kbd "C-c w z")
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (lambda ()
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (interactive= )
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (let ((curre= nt-prefix-arg '(64)))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0(call-interactively
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 'tj/wrap-in-src-block))))

everything untested, unfortunately ...
--
cheers,
Thorsten



--001a11c21b069e0eb204fff47b8b--