steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FUEL: Shorten very long words in tables to keep delims aligned.

db4
Jose A. Ortega Ruiz 2009-01-07 02:47:44 +01:00
parent 03455ab770
commit 3ee5772c88
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
misc/fuel/fuel-table.el
View File

@ -15,24 +15,26 @@
(defun fuel-table--col-widths (rows)
(let* ((col-no (length (car rows)))
(available (- (window-width) 10 (* 2 col-no)))
(available (- (window-width) 2 (* 2 col-no)))
(widths)
(c 0))
(while (< c col-no)
(let ((width 0)
(av-width (/ available (- col-no c))))
(av-width (- available (* 5 (- col-no c)))))
(dolist (row rows)
(setq width (min av-width
(max width (length (nth c row))))))
(setq width
(min av-width
(max width (length (nth c row))))))
(push width widths)
(setq available (- available width)))
(setq c (1+ c)))
(reverse widths)))
(defsubst fuel-table--pad-str (str width)
(if (>= (length str) width)
str
(concat str (make-string (- width (length str)) ?\ ))))
(defun fuel-table--pad-str (str width)
(let ((len (length str)))
(cond ((= len width) str)
((> len width) (concat (substring str 0 (- width 3)) "..."))
(t (concat str (make-string (- width (length str)) ?\ ))))))
(defun fuel-table--str-lines (str width)
(if (<= (length str) width)