From 4271325793992e76fb79ebfccf9644c757d86283 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sun, 5 May 2019 15:48:57 +0200 Subject: [PATCH 1/2] Use lexical-binding in delim-col.el and add tests Thanks to Basil L. Contovounesios for additional cleanups. * lisp/delim-col.el: Use lexical-binding * test/lisp/delim-col-tests.el (delim-col-tests-delimit-colummns-before-after) (delim-col-tests-delimit-columns) (delim-col-tests-delimit-columns-format/nil) (delim-col-tests-delimit-columns-format/padding) (delim-col-tests-delimit-columns-format/separator) (delim-col-tests-delimit-columns-separator) (delim-col-tests-delimit-columns-str-before-after) (delim-col-tests-delimit-columns-str-separator) (delim-col-tests-delimit-rectangle): New unit tests. --- lisp/delim-col.el | 65 ++++++++-------- test/lisp/delim-col-tests.el | 181 +++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 212 insertions(+), 34 deletions(-) create mode 100644 test/lisp/delim-col-tests.el diff --git a/lisp/delim-col.el b/lisp/delim-col.el index a968b32052..6904efaad7 100644 --- a/lisp/delim-col.el +++ b/lisp/delim-col.el @@ -1,12 +1,12 @@ -;;; delim-col.el --- prettify all columns in a region or rectangle +;;; delim-col.el --- prettify all columns in a region or rectangle -*- lexical-binding: t; -*- ;; Copyright (C) 1999-2019 Free Software Foundation, Inc. ;; Author: Vinicius Jose Latorre ;; Maintainer: Vinicius Jose Latorre ;; Version: 2.1 -;; Keywords: internal -;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre +;; Keywords: convenience text +;; X-URL: https://www.emacswiki.org/emacs/ViniciusJoseLatorre ;; This file is part of GNU Emacs. @@ -91,9 +91,9 @@ ;; aaa [ , ] dddd ;; aa [ , ] ddd ;; -;; Note that `delimit-columns-region' operates over all text region -;; selected, extending the region start to the beginning of line and the -;; region end to the end of line. While `delimit-columns-rectangle' +;; Note that `delimit-columns-region' operates over the entire selected +;; text region, extending the region start to the beginning of line and +;; the region end to the end of line. While `delimit-columns-rectangle' ;; operates over the text rectangle selected which rectangle diagonal is ;; given by the region start and end. ;; @@ -117,6 +117,7 @@ ;;; Code: +(require 'rect) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; User Options: @@ -125,6 +126,7 @@ columns "Prettify columns." :link '(emacs-library-link :tag "Source Lisp File" "delim-col.el") :prefix "delimit-columns-" + :group 'convenience :group 'text) (defcustom delimit-columns-str-before "" @@ -213,10 +215,11 @@ delimit-columns-start The following relation must hold: 0 <= delimit-columns-start <= delimit-columns-end -The column number start from 0 and it's relative to the beginning of selected -region. So if you selected a text region, the first column (column 0) is -located at beginning of line. If you selected a text rectangle, the first -column (column 0) is located at left corner." +The column number starts at 0 and is relative to the beginning of +the selected region. So if you select a text region, the first +column (column 0) is located at the beginning of line. If you +select a text rectangle, the first column (column 0) is located +at the left corner." :type '(integer :tag "Column Start") :group 'columns) @@ -228,10 +231,11 @@ delimit-columns-end The following relation must hold: 0 <= delimit-columns-start <= delimit-columns-end -The column number start from 0 and it's relative to the beginning of selected -region. So if you selected a text region, the first column (column 0) is -located at beginning of line. If you selected a text rectangle, the first -column (column 0) is located at left corner." +The column number starts at 0 and is relative to the beginning of +the selected region. So if you select a text region, the first +column (column 0) is located at the beginning of line. If you +select a text rectangle, the first column (column 0) is located +at the left corner." :type '(integer :tag "Column End") :group 'columns) @@ -247,20 +251,20 @@ delimit-columns-limit ;;;###autoload (defun delimit-columns-customize () - "Customization of `columns' group." + "Customize the `columns' group." (interactive) (customize-group 'columns)) -(defmacro delimit-columns-str (str) - `(if (stringp ,str) ,str "")) +(defun delimit-columns-str (str) + (if (stringp str) str "")) ;;;###autoload (defun delimit-columns-region (start end) "Prettify all columns in a text region. -START and END delimits the text region." +START and END delimit the text region." (interactive "*r") (let ((delimit-columns-str-before (delimit-columns-str delimit-columns-str-before)) @@ -273,8 +277,7 @@ delimit-columns-region (delimit-columns-after (delimit-columns-str delimit-columns-after)) (delimit-columns-start - (if (and (integerp delimit-columns-start) - (>= delimit-columns-start 0)) + (if (natnump delimit-columns-start) delimit-columns-start 0)) (delimit-columns-end @@ -309,14 +312,11 @@ delimit-columns-region (set-marker the-end nil))))) -(require 'rect) - - ;;;###autoload (defun delimit-columns-rectangle (start end) "Prettify all columns in a text rectangle. -START and END delimits the corners of text rectangle." +START and END delimit the corners of the text rectangle." (interactive "*r") (let ((delimit-columns-str-before (delimit-columns-str delimit-columns-str-before)) @@ -329,8 +329,7 @@ delimit-columns-rectangle (delimit-columns-after (delimit-columns-str delimit-columns-after)) (delimit-columns-start - (if (and (integerp delimit-columns-start) - (>= delimit-columns-start 0)) + (if (natnump delimit-columns-start) delimit-columns-start 0)) (delimit-columns-end @@ -344,11 +343,11 @@ delimit-columns-rectangle ;; get maximum length for each column (and delimit-columns-format (save-excursion - (operate-on-rectangle 'delimit-columns-rectangle-max + (operate-on-rectangle #'delimit-columns-rectangle-max start the-end nil))) ;; prettify columns (save-excursion - (operate-on-rectangle 'delimit-columns-rectangle-line + (operate-on-rectangle #'delimit-columns-rectangle-line start the-end nil)) ;; nullify markers (set-marker delimit-columns-limit nil) @@ -359,7 +358,7 @@ delimit-columns-rectangle ;; Internal Variables and Functions: -(defun delimit-columns-rectangle-max (startpos &optional _ignore1 _ignore2) +(defun delimit-columns-rectangle-max (startpos &optional _begextra _endextra) (set-marker delimit-columns-limit (point)) (goto-char startpos) (let ((ncol 1) @@ -392,7 +391,7 @@ delimit-columns-rectangle-max (setq values (cdr values))))) -(defun delimit-columns-rectangle-line (startpos &optional _ignore1 _ignore2) +(defun delimit-columns-rectangle-line (startpos &optional _begextra _endextra) (let ((len (length delimit-columns-max)) (ncol 0) origin) @@ -442,8 +441,7 @@ delimit-columns-rectangle-line ((eq delimit-columns-format 'padding) (insert spaces delimit-columns-after delimit-columns-str-after)) (t - (insert delimit-columns-after spaces delimit-columns-str-after)) - )) + (insert delimit-columns-after spaces delimit-columns-str-after)))) (goto-char (max (point) delimit-columns-limit)))) @@ -466,8 +464,7 @@ delimit-columns-format (insert delimit-columns-after delimit-columns-str-separator spaces - delimit-columns-before)) - )) + delimit-columns-before)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; diff --git a/test/lisp/delim-col-tests.el b/test/lisp/delim-col-tests.el new file mode 100644 index 0000000000..f2a0377b07 --- /dev/null +++ b/test/lisp/delim-col-tests.el @@ -0,0 +1,181 @@ +;;; delim-col-tests.el --- Tests for delim-col.el -*- lexical-binding: t; -*- + +;; Copyright (C) 2019 Free Software Foundation, Inc. + +;; Author: Stefan Kangas + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs. If not, see . + +;;; Commentary: + +;;; Code: + +(require 'ert) +(require 'delim-col) + +(ert-deftest delim-col-tests-delimit-columns () + (with-temp-buffer + (insert "a b c\n") + (delimit-columns-region (point-min) (point-max)) + (should (equal (buffer-string) "a, b, c\n"))) + (with-temp-buffer + (insert "a b c d\n" + "aaaa bb ccc ddddd\n" + "aaa bbb cccc dddd\n" + "aa bb ccccccc ddd\n") + (delimit-columns-region (point-min) (point-max)) + (should (equal (buffer-string) + (concat "a, b, c, d \n" + "aaaa, bb, ccc, ddddd\n" + "aaa, bbb, cccc, dddd \n" + "aa, bb, ccccccc, ddd \n"))))) + +(ert-deftest delim-col-tests-delimit-rectangle () + (with-temp-buffer + (insert "a b c d\n" + "aaaa bb ccc ddddd\n" + "aaa bbb cccc dddd\n" + "aa bb ccccccc ddd\n") + (delimit-columns-rectangle 3 58) ; from first b to last c + (should (equal (buffer-string) + (concat "a b, c d\n" + "aaaa bb, ccc ddddd\n" + "aaa bbb, cccc dddd\n" + "aa bb, ccccccc ddd\n"))))) + +(ert-deftest delim-col-tests-delimit-columns-str-separator () + (let ((delimit-columns-str-separator ":")) + (with-temp-buffer + (insert "a b\n") + (delimit-columns-region (point-min) (point-max)) + (should (equal (buffer-string) "a:b\n"))) + (with-temp-buffer + (insert "a b c d\n" + "aa bb cc dd\n") + (delimit-columns-rectangle 3 16) ; from first b to last c + (should (equal (buffer-string) + (concat "a b: c d\n" + "aa bb:cc dd\n")))))) + +(ert-deftest delim-col-tests-delimit-columns-str-before-after () + (let ((delimit-columns-str-before "[ ") + (delimit-columns-str-after " ]")) + (with-temp-buffer + (insert "a b c\n") + (delimit-columns-region (point-min) (point-max)) + (should (equal (buffer-string) "[ a, b, c ]\n"))) + (with-temp-buffer + (insert "a b c d\n" + "aaaa bb ccc ddddd\n" + "aaa bbb cccc dddd\n" + "aa bb ccccccc ddd\n") + (delimit-columns-region (point-min) (point-max)) + (should (equal (buffer-string) + (concat "[ a, b, c, d ]\n" + "[ aaaa, bb, ccc, ddddd ]\n" + "[ aaa, bbb, cccc, dddd ]\n" + "[ aa, bb, ccccccc, ddd ]\n")))) + (with-temp-buffer + (insert "a b c d\n" + "aaaa bb ccc ddddd\n" + "aaa bbb cccc dddd\n" + "aa bb ccccccc ddd\n") + (delimit-columns-rectangle 3 58) ; from first b to last c + (should (equal (buffer-string) + (concat "a [ b, c ] d\n" + "aaaa [ bb, ccc ] ddddd\n" + "aaa [ bbb, cccc ] dddd\n" + "aa [ bb, ccccccc ] ddd\n")))))) + +(ert-deftest delim-col-tests-delimit-colummns-before-after () + (let ((delimit-columns-before "<") + (delimit-columns-after ">")) + (with-temp-buffer + (insert "a b\n") + (delimit-columns-region (point-min) (point-max)) + (should (equal (buffer-string) ", \n"))) + (with-temp-buffer + (insert "a b c d\n" + "aa bb cc dd\n") + (delimit-columns-rectangle 3 17) + (should (equal (buffer-string) + (concat "a , d\n" + "aa , dd\n")))))) + +(ert-deftest delim-col-tests-delimit-columns-separator () + (let ((delimit-columns-separator ",")) + (with-temp-buffer + (insert "a,b,c\n") + (delimit-columns-region (point-min) (point-max)) + (should (equal (buffer-string) "a, b, c\n"))))) + +(ert-deftest delim-col-tests-delimit-columns-format/nil () + (let ((delimit-columns-format nil)) + (with-temp-buffer + (insert "a b\n" + "aa bb\n") + (delimit-columns-region (point-min) (point-max)) + (should (equal (buffer-string) + (concat "a, b\n" + "aa, bb\n")))) + (with-temp-buffer + (insert "a b c d\n" + "aa bb cc dd\n") + (delimit-columns-rectangle 3 17) ; from first b to last c + (should (equal (buffer-string) + (concat "a b, c d\n" + "aa bb, cc dd\n")))))) + +(ert-deftest delim-col-tests-delimit-columns-format/separator () + (let ((delimit-columns-format 'separator) + (delimit-columns-before "<") + (delimit-columns-after ">")) + (with-temp-buffer + (insert "a b\n" + "aa bb\n") + (delimit-columns-region (point-min) (point-max)) + (should (equal (buffer-string) + (concat " , \n" + ", \n")))) + (with-temp-buffer + (insert "a b c d\n" + "aa bb cc dd\n") + (delimit-columns-rectangle 3 17) ; from first b to last c + (should (equal (buffer-string) + (concat "a , d\n" + "aa , dd\n")))))) + +(ert-deftest delim-col-tests-delimit-columns-format/padding () + (let ((delimit-columns-format 'padding) + (delimit-columns-before "<") + (delimit-columns-after ">")) + (with-temp-buffer + (insert "a b\n" + "aa bb\n") + (delimit-columns-region (point-min) (point-max)) + (should (equal (buffer-string) + (concat ", \n" + ", \n")))) + (with-temp-buffer + (insert "a b c d\n" + "aa bb cc dd\n") + (delimit-columns-rectangle 3 17) ; from first b to last c + (should (equal (buffer-string) + (concat "a , d\n" + "aa , dd\n")))))) + +(provide 'delim-col-tests) +;;; delim-col-tests.el ends here -- 2.11.0