67689345580aecd4a10358fff676e482b3d5ee83
[worg.git] / users / davidam.el
1 ;; Copyright (C) 2013  David Arroyo Menéndez
2
3 ;; Author: David Arroyo Menéndez <davidam@es.gnu.org>
4 ;; Maintainer: David Arroyo Menéndez <davidam@es.gnu.org>
5
6 ;; This file is free software; you can redistribute it and/or modify
7 ;; it under the terms of the GNU General Public License as published by
8 ;; the Free Software Foundation; either version 3, or (at your option)
9 ;; any later version.
10
11 ;; This file is distributed in the hope that it will be useful,
12 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14 ;; GNU General Public License for more details.
15
16 ;; You should have received a copy of the GNU General Public License
17 ;; along with GNU Emacs; see the file COPYING.  If not, write to
18 ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, 
19 ;; Boston, MA 02110-1301 USA,
20
21
22 (defun davidam-org-envolve-src(msg)
23   "Envolve source between org tags"
24   (interactive "sChoose your programming language: " msg)
25   (if (equal nil msg) 
26       (setq msg "lisp"))
27   (goto-char (point))
28   (insert "\n#+END_SRC")
29   (goto-char (mark))
30   (insert "#+BEGIN_SRC " msg))
31
32 (defun davidam-org-src(msg)
33   "Insert org source tags"
34   (interactive "sChoose your programming language: " msg)
35   (if (equal nil msg) 
36       (setq msg "lisp"))
37   (insert "#+BEGIN_SRC " msg)
38   (insert "\n#+END_SRC\n"))
39
40 (defun davidam-insert-output (command)
41    (interactive "sCommand: ")
42    (insert (shell-command-to-string command)))
43
44 (defun davidam-output-to-buffer (buffer command)
45    (interactive "sBuffer name: \nsCommand: ")
46    (get-buffer-create buffer)
47    (call-process command nil buffer)
48    (switch-to-buffer (get-buffer buffer)))
49
50 (defun davidam-rsync-rmail ()
51   (interactive)
52   (get-buffer-create "rsync")
53   (call-process "/home/davidam/scripts/rsync-rmail.sh" nil "rsync")
54   (switch-to-buffer (get-buffer "rsync")))