0a8b0cc658f50315cef54defbe1f508b01b33b88
[worg.git] / users / davidam.org
1 #+OPTIONS:    H:3 num:nil toc:t \n:nil @:t ::t |:t ^:t -:t f:t *:t TeX:t LaTeX:t skip:nil d:(HIDE) tags:not-in-toc
2 #+STARTUP:    align fold nodlcheck hidestars oddeven lognotestate
3 #+SEQ_TODO:   TODO(t) INPROGRESS(i) WAITING(w@) | DONE(d) CANCELED(c@)
4 #+TAGS:       Write(w) Update(u) Fix(f) Check(c) 
5 #+TITLE:      David Arroyo Menéndez's Worg Page
6 #+AUTHOR:     David Arroyo Menéndez
7 #+EMAIL:      
8 #+LANGUAGE:   es
9 #+PRIORITIES: A C B
10 #+CATEGORY:   worg
11
12 [[file:../worgers.org][{Volver a Worgers}]]
13
14 Mis contribuciones a org-mode han sido:
15
16 + [[file:../org-tutorials/orgtutorial_dto-es.org][Traducción al español del Tutorial de David O'Toole]]
17 + [[http://www.davidam.com/docu/orgguide.es.html][Traducción al español de la Guía Compacta de Org-Mode]]
18
19 Puedes encontrar más sobre mi en [[http://www.davidam.com][mi web personal]].
20
21 También comparto algunas funciones que me ayudan cotidianamente:
22
23 #+BEGIN_SRC lisp
24
25 ;; Copyright (C) 2013  David Arroyo Menéndez
26
27 ;; Author: David Arroyo Menéndez <davidam@es.gnu.org>
28 ;; Maintainer: David Arroyo Menéndez <davidam@es.gnu.org>
29
30 ;; This file is free software; you can redistribute it and/or modify
31 ;; it under the terms of the GNU General Public License as published by
32 ;; the Free Software Foundation; either version 3, or (at your option)
33 ;; any later version.
34
35 ;; This file is distributed in the hope that it will be useful,
36 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
37 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
38 ;; GNU General Public License for more details.
39
40 ;; You should have received a copy of the GNU General Public License
41 ;; along with GNU Emacs; see the file COPYING.  If not, write to
42 ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, 
43 ;; Boston, MA 02110-1301 USA,
44
45
46 (defun davidam-org-envolve-src(msg)
47   "Envolve source between org tags"
48   (interactive "sChoose your programming language: " msg)
49   (if (equal nil msg) 
50       (setq msg "lisp"))
51   (goto-char (point))
52   (insert "\n#+END_SRC")
53   (goto-char (mark))
54   (insert "#+BEGIN_SRC " msg))
55
56 (defun davidam-org-src(msg)
57   "Insert org source tags"
58   (interactive "sChoose your programming language: " msg)
59   (if (equal nil msg) 
60       (setq msg "lisp"))
61   (insert "#+BEGIN_SRC " msg)
62   (insert "\n#+END_SRC\n"))
63
64 (defun davidam-num-todo()
65   "Print a message with the number of todo tasks in the current buffer"
66   (interactive)
67   (goto-char (point-min))
68   (message "Number of TODO: %d" (count-matches "* TODO"))
69   (goto-char (mark)))
70                                                                              
71 (defun davidam-num-done()
72   "Print a message with the number of done tasks in the current buffer"
73   (interactive)
74   (goto-char (point-min))
75   (message "Number of DONE: %d" (count-matches "* DONE"))
76   (goto-char (mark)))
77
78 (defun davidam-num-canceled()
79   "Print a message with the number of canceled tasks in the current buffer"
80   (interactive)
81   (goto-char (point-min))
82   (message "Number of Canceled: %d" (count-matches "* CANCELED"))
83   (goto-char (mark)))
84
85 (defun davidam-effectiveness()
86   "Returns the effectiveness in the current org file"
87   (interactive)
88   (goto-char (point-min))
89   (setq done (float (count-matches "* DONE")))
90   (setq canc (float (count-matches "* CANCELED")))
91   (setq effectiveness (* 100 (/ done (+ done canc))))
92   (message "Effectiveness: %f" effectiveness)
93   (goto-char (mark)))
94
95 (defun davidam-insert-output (command)
96    (interactive "sCommand: ")
97    (insert (shell-command-to-string command)))
98
99 (defun davidam-output-to-buffer (buffer command)
100    (interactive "sBuffer name: \nsCommand: ")
101    (get-buffer-create buffer)
102    (call-process command nil buffer)
103    (switch-to-buffer (get-buffer buffer)))
104
105 (defun davidam-rsync-rmail ()
106   (interactive)
107   (get-buffer-create "rsync")
108   (call-process "/home/davidam/scripts/rsync-rmail.sh" nil "rsync")
109   (switch-to-buffer (get-buffer "rsync")))
110
111 #+END_SRC
112