;;; -*- lexical-binding: t -*-
;;
;; --------------------------------------------------------------------------

(require 'll-align)
(require 'simple)

;; --------------------------------------------------------------------------

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

;; --------------------------------------------------------------------------

(defun kill-line-backwards () (i)
  (let ((beg (pos-bol))
        (end (point)) )
    (kill-region beg end)) )

;; --------------------------------------------------------------------------

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

;; --------------------------------------------------------------------------

(<- 'll-kill)