null+****@clear*****
null+****@clear*****
Wed Jun 13 20:11:20 JST 2012
yuta yamada 2012-06-13 20:11:20 +0900 (Wed, 13 Jun 2012)
New Revision: ccac9e0404379939d9f28242b38be0f5c4c0d6d0
Log:
Rename: record -> formated-words
Modified files:
logalimacs.el
Modified: logalimacs.el (+3 -3)
===================================================================
--- logalimacs.el 2012-06-13 20:09:01 +0900 (1651b28)
+++ logalimacs.el 2012-06-13 20:11:20 +0900 (37f4143)
@@ -280,14 +280,14 @@
(mapconcat 'identity striped-list "\n")))
(defun loga-format (words size)
- (loop with record = '()
+ (loop with formated-words = '()
for (source target note) in words
for source-length = (loga-compute-length source)
for target-length = (loga-compute-length target)
if (and (loga-less-than-window-half-p source-length target-length)
(> loga-width-limit-source source-length))
- do (push (loga-append-margin source target note size) record)
- finally return record))
+ do (push (loga-append-margin source target note size) formated-words)
+ finally return formated-words))
(defun loga-compute-max-length (words)
(loop with max-source-length = 0