null+****@clear*****
null+****@clear*****
Thu Jun 28 21:12:56 JST 2012
yuta yamada 2012-06-28 21:12:56 +0900 (Thu, 28 Jun 2012) New Revision: cc09f5ffde35b3a61a4b58eb10feea3157b320ff https://github.com/logaling/logalimacs/commit/cc09f5ffde35b3a61a4b58eb10feea3157b320ff Log: Move assignment of max-length to loga-format function Modified files: logalimacs.el Modified: logalimacs.el (+3 -4) =================================================================== --- logalimacs.el 2012-06-28 21:04:05 +0900 (d305488) +++ logalimacs.el 2012-06-28 21:12:56 +0900 (277a179) @@ -285,10 +285,8 @@ (defun loga-convert-from-json (raw-json-data) (let* ((mixed-list (json-read-from-string raw-json-data)) - keywords converted-list) - (setq keywords (loga-extract-keywords-from mixed-list) - loga-current-max-length (loga-compute-max-length keywords) - converted-list (loga-format keywords)) + (keywords (loga-extract-keywords-from mixed-list)) + (converted-list (loga-format keywords))) (if loga-cascade-output converted-list (loga-format-to-string converted-list)))) @@ -315,6 +313,7 @@ `(mapconcat 'identity , at converted-list "\n")) (defun loga-format (words) + (setq loga-current-max-length (loga-compute-max-length words)) (loop with formated-words = '() with size = loga-current-max-length for (source target note source-length target-length) in words -------------- next part -------------- An HTML attachment was scrubbed...다운로드
