organize functions in files
authorDavid Arroyo Menendez <davidam@es.gnu.org>
Fri, 22 Mar 2013 19:51:34 +0000 (20:51 +0100)
committerDavid Arroyo Menendez <davidam@es.gnu.org>
Fri, 22 Mar 2013 19:51:34 +0000 (20:51 +0100)
users/davidam.org

index 0a8b0cc..c47b614 100644 (file)
@@ -4,7 +4,7 @@
 #+TAGS:       Write(w) Update(u) Fix(f) Check(c) 
 #+TITLE:      David Arroyo Menéndez's Worg Page
 #+AUTHOR:     David Arroyo Menéndez
-#+EMAIL:      
+#+EMAIL:      davidam@es.gnu.org
 #+LANGUAGE:   es
 #+PRIORITIES: A C B
 #+CATEGORY:   worg
@@ -18,95 +18,11 @@ Mis contribuciones a org-mode han sido:
 
 Puedes encontrar más sobre mi en [[http://www.davidam.com][mi web personal]].
 
-También comparto algunas funciones que me ayudan cotidianamente:
+He escrito un modo para medir mi propia efectividad personal haciendo
+tareas org.
 
-#+BEGIN_SRC lisp
+#+INCLUDE: "../code/elisp/org-effectiveness.el" src emacs-lisp
 
-;; Copyright (C) 2013  David Arroyo Menéndez
-
-;; Author: David Arroyo Menéndez <davidam@es.gnu.org>
-;; Maintainer: David Arroyo Menéndez <davidam@es.gnu.org>
-
-;; This file is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; This file is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to
-;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, 
-;; Boston, MA 02110-1301 USA,
-
-
-(defun davidam-org-envolve-src(msg)
-  "Envolve source between org tags"
-  (interactive "sChoose your programming language: " msg)
-  (if (equal nil msg) 
-      (setq msg "lisp"))
-  (goto-char (point))
-  (insert "\n#+END_SRC")
-  (goto-char (mark))
-  (insert "#+BEGIN_SRC " msg))
-
-(defun davidam-org-src(msg)
-  "Insert org source tags"
-  (interactive "sChoose your programming language: " msg)
-  (if (equal nil msg) 
-      (setq msg "lisp"))
-  (insert "#+BEGIN_SRC " msg)
-  (insert "\n#+END_SRC\n"))
-
-(defun davidam-num-todo()
-  "Print a message with the number of todo tasks in the current buffer"
-  (interactive)
-  (goto-char (point-min))
-  (message "Number of TODO: %d" (count-matches "* TODO"))
-  (goto-char (mark)))
-                                                                            
-(defun davidam-num-done()
-  "Print a message with the number of done tasks in the current buffer"
-  (interactive)
-  (goto-char (point-min))
-  (message "Number of DONE: %d" (count-matches "* DONE"))
-  (goto-char (mark)))
-
-(defun davidam-num-canceled()
-  "Print a message with the number of canceled tasks in the current buffer"
-  (interactive)
-  (goto-char (point-min))
-  (message "Number of Canceled: %d" (count-matches "* CANCELED"))
-  (goto-char (mark)))
-
-(defun davidam-effectiveness()
-  "Returns the effectiveness in the current org file"
-  (interactive)
-  (goto-char (point-min))
-  (setq done (float (count-matches "* DONE")))
-  (setq canc (float (count-matches "* CANCELED")))
-  (setq effectiveness (* 100 (/ done (+ done canc))))
-  (message "Effectiveness: %f" effectiveness)
-  (goto-char (mark)))
-
-(defun davidam-insert-output (command)
-   (interactive "sCommand: ")
-   (insert (shell-command-to-string command)))
-
-(defun davidam-output-to-buffer (buffer command)
-   (interactive "sBuffer name: \nsCommand: ")
-   (get-buffer-create buffer)
-   (call-process command nil buffer)
-   (switch-to-buffer (get-buffer buffer)))
-
-(defun davidam-rsync-rmail ()
-  (interactive)
-  (get-buffer-create "rsync")
-  (call-process "/home/davidam/scripts/rsync-rmail.sh" nil "rsync")
-  (switch-to-buffer (get-buffer "rsync")))
-
-#+END_SRC
+También comparto algunas otras funciones que me ayudan cotidianamente:
 
+#+INCLUDE: "../code/elisp/davidam.el" src emacs-lisp