From 40c65ddc71387c904bd2938e6e4f7c6d48a4b2ec Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Mon, 4 May 2015 22:15:24 -0400 Subject: Rewrite columnify-file --- lisp/init-text.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'lisp') diff --git a/lisp/init-text.el b/lisp/init-text.el index c180cd3..c4fbecc 100644 --- a/lisp/init-text.el +++ b/lisp/init-text.el @@ -39,17 +39,16 @@ If a columnified buffer already exists, just switch to it." ((> (prefix-numeric-value current-prefix-arg) 4) (read-string "Delimiter: ")) (t nil)))) - (let* ((bufname (buffer-name)) - (output-buffer-name (concat "*cols: " bufname "*")) + (unless buffer-file-name + (user-error "Buffer not visiting a file")) + (let* ((output-buffer-name (concat "*cols: " (buffer-name) "*")) (output-buffer (get-buffer output-buffer-name)) (fname (file-relative-name buffer-file-name)) - (col-args '("-t"))) + (args (cons "--table" + (and delim (list "--separator" delim))))) (unless output-buffer (setq output-buffer (get-buffer-create output-buffer-name)) - (when delim - (add-to-list 'col-args (format "-s'%s'" delim))) - (apply 'call-process "column" fname output-buffer nil - col-args)) + (apply #'call-process "column" fname output-buffer nil args)) (switch-to-buffer output-buffer))) (provide 'init-text) -- cgit v1.2.3