;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/kill.el

(require 'align-incal)
(require 'simple)

(setq kill-do-not-save-duplicates t)
(setq kill-whole-line t)

(defun kill-line-remove-blanks ()
  (interactive)
  (let ((blanks "[[:space:]]*$"))
    (if (looking-at blanks)
        (let ((max (point-max)) )
          (delete-blank-lines)
          (unless (< (point-max) max)
            (delete-char 1)
            (eat-space) )
          (when (and (bobp) (looking-at blanks))
            (kill-line) ))
      (kill-line) )))

(provide 'kill)