[elpa] 210/255: using curry, rcurry and compose helpers

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 02a6f5b78cc56d184b1709b8515adae198587025
Author: Eric Schulte <address@hidden>
Date:   Tue Aug 6 12:14:03 2013 -0600

    using curry, rcurry and compose helpers
---
 list-buffer.el |   12 +++++-------
 1 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/list-buffer.el b/list-buffer.el
index 416fda5..e8d8cd6 100644
--- a/list-buffer.el
+++ b/list-buffer.el
@@ -27,6 +27,7 @@
 
 ;;; Code:
 (eval-when-compile (require 'cl))
+(require 'go-util)
 
 (defvar *buffer-list* nil
   "List associated with the current list buffer.")
@@ -51,19 +52,16 @@
           widths row)))
 
 (defun list-buffer-refresh ()
-  (let* ((strings (mapcar (lambda (row)
-                            (mapcar (lambda (cell) (format "%s" cell)) row))
-                          *buffer-list*))
-         (lengths (mapcar (lambda (row) (mapcar #'length row)) strings))
-         (widths (apply #'cl-mapcar #'max lengths)))
+  (let* ((strings (mapcar (curry #'mapcar (curry #'format "%s")) 
*buffer-list*))
+         (lengths (mapcar (curry #'mapcar #'length) strings))
+         (widths (apply #'cl-mapcar (compose '1+ #'max) lengths)))
     ;; write headers
     (when *buffer-headers*
       (set (make-local-variable 'header-line-format)
            (list-format-row widths *buffer-headers*)))
     ;; write rows
     (delete (point-min) (point-max))
-    (insert (mapconcat (lambda (row) (list-format-row widths row))
-                       strings "\n"))))
+    (insert (mapconcat (curry #'list-format-row widths) strings "\n"))))
 
 (defun list-buffer-sort (key predicate)
   (set *buffer-list* (cl-sort *buffer-list* predicate :key key)))