diff options
| -rw-r--r-- | varuga-tests.el | 7 | ||||
| -rw-r--r-- | varuga.el | 12 |
2 files changed, 13 insertions, 6 deletions
diff --git a/varuga-tests.el b/varuga-tests.el index 97fb817..ca2d121 100644 --- a/varuga-tests.el +++ b/varuga-tests.el @@ -2,6 +2,7 @@ ;; Send ical calendar invites by email ;; Copyright © 2024 by Arun I +;; Copyright © 2025 Jake Coble <j@kecoble.com> ;; ;; Author: Arun Isaac <arunisaac@systemreboot.net> ;; Homepage: https://git.systemreboot.net/varuga @@ -71,3 +72,9 @@ (count-lines (point-min) (point-max))) 2))) +(ert-deftest line-limit-does-not-eat-characters () + (should + (equal (with-temp-buffer + (varuga-insert-calendar-line 'foo (make-string 100 ?a)) + (count-matches "a" (point-min) (point-max))) + 100))) @@ -2,6 +2,7 @@ ;; Send ical calendar invites by email ;; Copyright © 2024 Arun Isaac +;; Copyright © 2025 Jake Coble <j@kecoble.com> ;; ;; Author: Arun Isaac <arunisaac@systemreboot.net> ;; Version: 0.1.0 @@ -88,13 +89,12 @@ KEY is the name of the ical property and VALUE is its value." (next-octets (+ octets-so-far (string-bytes str)))) (if (< next-octets maximum-octets-per-line) - (progn - (insert str) - (setq octets-so-far next-octets)) + (setq octets-so-far next-octets) (insert "\n ") - ;; Set octets so far to 1 to account for the - ;; folding space. - (setq octets-so-far 1)))) + ;; Add an extra 1 to octets so far to account for + ;; the folding space. + (setq octets-so-far (1+ (string-bytes str)))) + (insert str))) (format "%s:%s" (upcase (symbol-name key)) value))) |