Playing with emacs lisp

evil-copy-accumulate-paragraph-header.el

(defun evil-copy-accumulate-paragraph-header ()
  "Some fun here"
  (interactive)
  (save-excursion
    (backward-paragraph)
    (skip-chars-forward "[\t\n ]*")
    (let* ((reg-char ?a)
           (reg-text (get-register reg-char))
           (line-text (thing-at-point 'line))
           (full-text (cond ((not reg-text) line-text)
                            (t (concat reg-text line-text))))
           (line-text (progn
                         (remove-list-of-text-properties 0 (length full-text) '(yank-handler) full-text)
                         (propertize full-text 'yank-handler '(evil-yank-line-handler)))))
      (set-register reg-char line-text))))


;;(message (number-to-string (apply '+ '(1 2 3))))