-(defvar elopher-incomplete-record "")
-
-(defun elopher-render-complete-records (string)
- (let* ((til-now (string-join (list elopher-incomplete-record string)))
- (lines (split-string til-now "\r\n")))
- (dotimes (idx (length lines))
- (if (< idx (- (length lines) 1))
- (let ((line (elt lines idx)))
- (unless (string-empty-p line)
- (elopher-render-record line)))
- (setq elopher-incomplete-record (elt lines idx))))))
-
-