* paste from clip to code block
@ 2015-04-17 7:21 Xebar Saram
2015-04-17 13:56 ` John Kitchin
0 siblings, 1 reply; 10+ messages in thread
From: Xebar Saram @ 2015-04-17 7:21 UTC (permalink / raw)
To: org mode
[-- Attachment #1: Type: text/plain, Size: 173 bytes --]
Hi all
i was wondering if anyone has every created a function to auto paste what
in the sysclip/emas clip into org but as a formatted code block?
any clue anyone?
best
Z
[-- Attachment #2: Type: text/html, Size: 277 bytes --]
^ permalink raw reply [flat|nested] 10+ messages in thread
* Re: paste from clip to code block
2015-04-17 7:21 paste from clip to code block Xebar Saram
@ 2015-04-17 13:56 ` John Kitchin
2015-04-17 14:36 ` Xebar Saram
2015-04-17 15:08 ` Jorge A. Alfaro-Murillo
0 siblings, 2 replies; 10+ messages in thread
From: John Kitchin @ 2015-04-17 13:56 UTC (permalink / raw)
To: Xebar Saram; +Cc: org mode
I like this kind of keyboard shortcut:
For python:
<p TAB C-w
For emacs-lisp
<el TAB C-w
What else would you want?
If you like yasnippets, you could do this:
# -*- mode: snippet; require-final-newline: nil -*-
# --
#+begin_src python
`(yank)`
#+end_src
$0
Or some kind of lisp function like:
#+BEGIN_SRC emacs-lisp
(defun paste-python-code ()
(interactive)
(insert "#+BEGIN_SRC python\n")
(yank)
(insert "\n#+END_SRC"))
#+END_SRC
I guess you need one of these for every language type.
Xebar Saram writes:
> Hi all
>
> i was wondering if anyone has every created a function to auto paste what
> in the sysclip/emas clip into org but as a formatted code block?
> any clue anyone?
>
> best
>
> Z
--
Professor John Kitchin
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
@johnkitchin
http://kitchingroup.cheme.cmu.edu
^ permalink raw reply [flat|nested] 10+ messages in thread
* Re: paste from clip to code block
2015-04-17 13:56 ` John Kitchin
@ 2015-04-17 14:36 ` Xebar Saram
2015-04-17 15:08 ` Jorge A. Alfaro-Murillo
1 sibling, 0 replies; 10+ messages in thread
From: Xebar Saram @ 2015-04-17 14:36 UTC (permalink / raw)
To: John Kitchin; +Cc: org mode
[-- Attachment #1: Type: text/plain, Size: 1119 bytes --]
thx john
that are very helpful tips!
Z
On Fri, Apr 17, 2015 at 4:56 PM, John Kitchin <jkitchin@andrew.cmu.edu>
wrote:
> I like this kind of keyboard shortcut:
>
> For python:
> <p TAB C-w
>
> For emacs-lisp
>
> <el TAB C-w
>
> What else would you want?
>
> If you like yasnippets, you could do this:
>
> # -*- mode: snippet; require-final-newline: nil -*-
> # --
>
> #+begin_src python
> `(yank)`
> #+end_src
>
> $0
>
> Or some kind of lisp function like:
> #+BEGIN_SRC emacs-lisp
> (defun paste-python-code ()
> (interactive)
> (insert "#+BEGIN_SRC python\n")
> (yank)
> (insert "\n#+END_SRC"))
> #+END_SRC
>
> I guess you need one of these for every language type.
> Xebar Saram writes:
>
> > Hi all
> >
> > i was wondering if anyone has every created a function to auto paste what
> > in the sysclip/emas clip into org but as a formatted code block?
> > any clue anyone?
> >
> > best
> >
> > Z
>
> --
> Professor John Kitchin
> Doherty Hall A207F
> Department of Chemical Engineering
> Carnegie Mellon University
> Pittsburgh, PA 15213
> 412-268-7803
> @johnkitchin
> http://kitchingroup.cheme.cmu.edu
>
[-- Attachment #2: Type: text/html, Size: 1840 bytes --]
^ permalink raw reply [flat|nested] 10+ messages in thread
* Re: paste from clip to code block
2015-04-17 13:56 ` John Kitchin
2015-04-17 14:36 ` Xebar Saram
@ 2015-04-17 15:08 ` Jorge A. Alfaro-Murillo
2015-04-17 15:17 ` John Kitchin
1 sibling, 1 reply; 10+ messages in thread
From: Jorge A. Alfaro-Murillo @ 2015-04-17 15:08 UTC (permalink / raw)
To: emacs-orgmode
John Kitchin writes:
> I like this kind of keyboard shortcut:
>
> For python: <p TAB C-w
>
> For emacs-lisp
>
> <el TAB C-w
>
I agree, this is the best method. Although probably you mean C-y
instead of C-w.
For the record, this requires you to set up
`org-structure-template-alist' to include python and emacs-lisp.
For example, I use p and E, for python and emacs-lisp, so in my
.emacs I have:
#+BEGIN_SRC emacs-lisp
(eval-after-load "org"
'(progn
(add-to-list 'org-structure-template-alist
'("E"
"#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC"
"<src
lang=\\"emacs-lisp\\">\n\n?</src>"))
(add-to-list 'org-structure-template-alist
'("p"
"#+BEGIN_SRC python\n?\n#+END_SRC"
"<src
lang=\\"python\\">\n\n?</src>"))))
#+END_SRC
I even use the method in message-mode, for writing emails with
code, like I just did now =)
Best,
--
Jorge.
^ permalink raw reply [flat|nested] 10+ messages in thread
* Re: paste from clip to code block
2015-04-17 15:08 ` Jorge A. Alfaro-Murillo
@ 2015-04-17 15:17 ` John Kitchin
2015-05-07 7:59 ` Sebastien Vauban
0 siblings, 1 reply; 10+ messages in thread
From: John Kitchin @ 2015-04-17 15:17 UTC (permalink / raw)
To: Jorge A. Alfaro-Murillo; +Cc: emacs-orgmode@gnu.org
[-- Attachment #1: Type: text/plain, Size: 2406 bytes --]
you are right, I meant C-y ;)
I have these templates defined in my setup:
;; * Expansions for blocks
;; add <p for python expansion
(add-to-list 'org-structure-template-alist
'("p" "#+BEGIN_SRC python\n?\n#+END_SRC" "<src
lang=\"python\">\n?\n</src>"))
;; add <por for python expansion with raw output
(add-to-list 'org-structure-template-alist
'("por" "#+BEGIN_SRC python :results output raw\n?\n#+END_SRC"
"<src lang=\"python\">\n?\n</src>"))
;; add <pv for python expansion with value
(add-to-list 'org-structure-template-alist
'("pv" "#+BEGIN_SRC python :results value\n?\n#+END_SRC" "<src
lang=\"python\">\n?\n</src>"))
;; add <el for emacs-lisp expansion
(add-to-list 'org-structure-template-alist
'("el" "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC" "<src
lang=\"emacs-lisp\">\n?\n</src>"))
;; add <sh for shell
(add-to-list 'org-structure-template-alist
'("sh" "#+BEGIN_SRC sh\n?\n#+END_SRC" "<src
lang=\"shell\">\n?\n</src>"))
John
-----------------------------------
Professor John Kitchin
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
@johnkitchin
http://kitchingroup.cheme.cmu.edu
On Fri, Apr 17, 2015 at 11:08 AM, Jorge A. Alfaro-Murillo <
jorge.alfaro-murillo@yale.edu> wrote:
> John Kitchin writes:
>
> I like this kind of keyboard shortcut:
>> For python: <p TAB C-w
>> For emacs-lisp
>> <el TAB C-w
>>
>
> I agree, this is the best method. Although probably you mean C-y instead
> of C-w.
>
> For the record, this requires you to set up `org-structure-template-alist'
> to include python and emacs-lisp. For example, I use p and E, for python
> and emacs-lisp, so in my .emacs I have:
>
> #+BEGIN_SRC emacs-lisp
> (eval-after-load "org"
> '(progn
> (add-to-list 'org-structure-template-alist
> '("E"
> "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC"
> "<src
> lang=\\"emacs-lisp\\">\n\n?</src>"))
> (add-to-list 'org-structure-template-alist
> '("p"
> "#+BEGIN_SRC python\n?\n#+END_SRC"
> "<src
> lang=\\"python\\">\n\n?</src>"))))
> #+END_SRC
>
> I even use the method in message-mode, for writing emails with code, like
> I just did now =)
>
> Best,
>
> --
> Jorge.
>
>
>
[-- Attachment #2: Type: text/html, Size: 4139 bytes --]
^ permalink raw reply [flat|nested] 10+ messages in thread
* Re: paste from clip to code block
2015-04-17 15:17 ` John Kitchin
@ 2015-05-07 7:59 ` Sebastien Vauban
2015-09-05 20:15 ` Grant Rettke
0 siblings, 1 reply; 10+ messages in thread
From: Sebastien Vauban @ 2015-05-07 7:59 UTC (permalink / raw)
To: emacs-orgmode-mXXj517/zsQ
John Kitchin wrote:
> I have these templates defined in my setup:
>
> ;; * Expansions for blocks [...]
>
> ;; add <sh for shell
> (add-to-list 'org-structure-template-alist
> '("sh" "#+BEGIN_SRC sh\n?\n#+END_SRC" "<src
> lang=\"shell\">\n?\n</src>"))
Note that the language should be `shell' in Org from Git (not sure about
MELPA, which I don't use). That'll be so in Org 8.3 as well.
Best regards,
Seb
--
Sebastien Vauban
^ permalink raw reply [flat|nested] 10+ messages in thread
* Re: paste from clip to code block
2015-05-07 7:59 ` Sebastien Vauban
@ 2015-09-05 20:15 ` Grant Rettke
2015-09-07 14:09 ` John Kitchin
0 siblings, 1 reply; 10+ messages in thread
From: Grant Rettke @ 2015-09-05 20:15 UTC (permalink / raw)
To: Sebastien Vauban; +Cc: emacs-orgmode@gnu.org
On Thu, May 7, 2015 at 2:59 AM, Sebastien Vauban
<sva-news@mygooglest.com> wrote:
> John Kitchin wrote:
>> I have these templates defined in my setup:
I used my duplicated Org macros as an excuse to learn YASnippet and
came up with this. It is work in progress, but it works. I got tired
of entering a name so many times along with an output file during
exploratory programming in the .emacs.el:
https://github.com/grettke/help/blob/master/yasnippet/org-mode/sc. It
does require learning YAS at some point, and it is worth it.
# -*- mode: snippet -*-
# key: sc
# name: Source Block
# group: HELP
# contributor: gcr@wisdomandwonder.com
# --
#+NAME: ${1:`(org-id-new)`}
#+BEGIN_SRC ${2:$$(yas-choose-value '("emacs-lisp" "org" "sass" "R"
"ditaa" "dot" "plantuml"))}${2:$(when (-contains? '("ditaa" "dot"
"plantuml") yas-text) (concat " :file \\"./image/" (yas-field-value 1)
".png\\""))} $3
$0
#+END_SRC
^ permalink raw reply [flat|nested] 10+ messages in thread
* Re: paste from clip to code block
2015-09-05 20:15 ` Grant Rettke
@ 2015-09-07 14:09 ` John Kitchin
2015-09-07 16:39 ` Grant Rettke
0 siblings, 1 reply; 10+ messages in thread
From: John Kitchin @ 2015-09-07 14:09 UTC (permalink / raw)
To: Grant Rettke; +Cc: Sebastien Vauban, emacs-orgmode@gnu.org
Neat. Do you have some handy way to store a link to the source block, or
jump to them?
Grant Rettke writes:
> On Thu, May 7, 2015 at 2:59 AM, Sebastien Vauban
> <sva-news@mygooglest.com> wrote:
>> John Kitchin wrote:
>>> I have these templates defined in my setup:
>
> I used my duplicated Org macros as an excuse to learn YASnippet and
> came up with this. It is work in progress, but it works. I got tired
> of entering a name so many times along with an output file during
> exploratory programming in the .emacs.el:
> https://github.com/grettke/help/blob/master/yasnippet/org-mode/sc. It
> does require learning YAS at some point, and it is worth it.
>
> # -*- mode: snippet -*-
> # key: sc
> # name: Source Block
> # group: HELP
> # contributor: gcr@wisdomandwonder.com
> # --
> #+NAME: ${1:`(org-id-new)`}
> #+BEGIN_SRC ${2:$$(yas-choose-value '("emacs-lisp" "org" "sass" "R"
> "ditaa" "dot" "plantuml"))}${2:$(when (-contains? '("ditaa" "dot"
> "plantuml") yas-text) (concat " :file \\"./image/" (yas-field-value 1)
> ".png\\""))} $3
> $0
> #+END_SRC
--
Professor John Kitchin
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
@johnkitchin
http://kitchingroup.cheme.cmu.edu
^ permalink raw reply [flat|nested] 10+ messages in thread
* Re: paste from clip to code block
2015-09-07 14:09 ` John Kitchin
@ 2015-09-07 16:39 ` Grant Rettke
2015-09-07 20:18 ` John Kitchin
0 siblings, 1 reply; 10+ messages in thread
From: Grant Rettke @ 2015-09-07 16:39 UTC (permalink / raw)
To: John Kitchin; +Cc: Sebastien Vauban, emacs-orgmode@gnu.org
On Mon, Sep 7, 2015 at 9:09 AM, John Kitchin <jkitchin@andrew.cmu.edu> wrote:
> Neat. Do you have some handy way to store a link to the source block, or
> jump to them?
I don't, but please tell us more about what you mean.
^ permalink raw reply [flat|nested] 10+ messages in thread
* Re: paste from clip to code block
2015-09-07 16:39 ` Grant Rettke
@ 2015-09-07 20:18 ` John Kitchin
0 siblings, 0 replies; 10+ messages in thread
From: John Kitchin @ 2015-09-07 20:18 UTC (permalink / raw)
To: Grant Rettke; +Cc: Sebastien Vauban, emacs-orgmode@gnu.org
For example with the cursor on a src-block press C-c l to store a link
to that name, and later type C-c C-l to insert a link to that
src-block.
It would look a little like this:
#+BEGIN_SRC emacs-lisp
(defun org-src-block-store-link ()
(let* ((object (org-element-context)))
(when (equal (org-element-type object) 'src-block)
(org-store-link-props
:type "src-block"
:link (concat "src-block:" (org-element-property :name object))))))
(add-hook 'org-store-link-functions 'org-src-block-store-link)
(org-add-link-type
"src-block"
(lambda (label)
(org-mark-ring-push)
(widen)
(goto-char (point-min))
(re-search-forward (regexp-quote (format "#+NAME: %s" label)))
(beginning-of-line)))
#+END_SRC
it only works in the current file though.
Grant Rettke writes:
> On Mon, Sep 7, 2015 at 9:09 AM, John Kitchin <jkitchin@andrew.cmu.edu> wrote:
>> Neat. Do you have some handy way to store a link to the source block, or
>> jump to them?
>
> I don't, but please tell us more about what you mean.
--
Professor John Kitchin
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
@johnkitchin
http://kitchingroup.cheme.cmu.edu
^ permalink raw reply [flat|nested] 10+ messages in thread
end of thread, other threads:[~2015-09-07 20:19 UTC | newest]
Thread overview: 10+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2015-04-17 7:21 paste from clip to code block Xebar Saram
2015-04-17 13:56 ` John Kitchin
2015-04-17 14:36 ` Xebar Saram
2015-04-17 15:08 ` Jorge A. Alfaro-Murillo
2015-04-17 15:17 ` John Kitchin
2015-05-07 7:59 ` Sebastien Vauban
2015-09-05 20:15 ` Grant Rettke
2015-09-07 14:09 ` John Kitchin
2015-09-07 16:39 ` Grant Rettke
2015-09-07 20:18 ` John Kitchin
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).