davidam.el: add davidam-org-envolve-numbered-list
authorDavid Arroyo Menendez <davidam9@riseup.net>
Mon, 17 Mar 2014 18:19:55 +0000 (19:19 +0100)
committerDavid Arroyo Menendez <davidam9@riseup.net>
Mon, 17 Mar 2014 18:19:55 +0000 (19:19 +0100)
code/elisp/davidam.el

index af4c24c..36962c2 100644 (file)
 ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, 
 ;; Boston, MA 02110-1301 USA,
 
+(defun davidam-org-envolve-numbered-list()
+  "Itemize some lines as a numbered list"
+  (interactive)
+  (if (< (point) (mark)) 
+      (progn      
+       (setq count (count-lines 1 (point)))
+       (setq end (count-lines 1 (mark))))
+    (progn
+      (setq count (count-lines 1 (mark)))
+      (setq end (count-lines 1 (point)))))
+  (goto-line count)
+  (while (< count end)
+    (move-beginning-of-line count)
+    (insert (concat (number-to-string count) ". "))
+    (setq count (1+ count))
+    (goto-line count)))
+
 (defun davidam-org-envolve-src(msg)
   "Envolve source between org tags"
   (interactive "sChoose your programming language: " msg)
     (message "Number of pebbles: %d" total)))
 
 
-
-;;(get 'i 'vecinos)
-
-;; (defun davidam-extend (trayectoria)
-;;   (interactive "eList to extend: " trayectoria)
-;;   (mapcar #'(lambda (nuevo-nodo) (cons nuevo-nodo trayectoria))
-;;       (remove-if #' (lambda (vecino) (member vecino trayectoria)
-;;                       (get (first trayectoria) 'vecinos)))))
-
-;;(davidam-extend '(i))
-