davidam.el: fixed davidam-org-envolve-numbered-list
authorDavid Arroyo Menendez <davidam9@riseup.net>
Tue, 18 Mar 2014 21:03:52 +0000 (22:03 +0100)
committerDavid Arroyo Menendez <davidam9@riseup.net>
Tue, 18 Mar 2014 21:03:52 +0000 (22:03 +0100)
code/elisp/davidam.el

index 36962c2..5b09619 100644 (file)
 (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)))
+  (setq num 1)
+  (setq max (+ 1 (count-lines (point) (mark))))
+  (if (> (point) (mark))
+      (goto-line (+ 1 (count-lines 1 (mark))))
+    (goto-line (+ 1 (count-lines 1 (point)))))
+  (while (< num max)
+    (move-beginning-of-line nil)
+    (insert (concat (number-to-string num) ". "))
+    (setq num (+ 1 num))
+    (forward-line)))
 
 (defun davidam-org-envolve-src(msg)
   "Envolve source between org tags"
   (message "%s" item-time))
 
 (defun davidam-happy-birthday(person)
-  (interactive "MWrite the person name: ")
+37.   (interactive "MWrite the person name: ")
   (message (concat "Happy birthday to you. Happy birthday to you. Happy birthday, dear " person ". Happy birthday to you")))
-
+38. 38. 
 (defun davidam-fibonacci (n)
-  (interactive "nEscribe un numero: " n)
+39.   (interactive "nEscribe un numero: " n)
   (message (number-to-string (fibonacci-aux n))))
 
 (defun fibonacci-aux (n)