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

(require 'dired-aux)

(advice-add #'dired-do-rename :before #'dired-get-ext)
;; (advice-remove #'dired-do-rename #'dired-get-ext)

(defun dired-get-ext (&optional _)
  (save-excursion
    (goto-char (line-end-position))
    (when (re-search-backward "\\.[[:alnum:]]+\\b" (line-beginning-position) t)
      (let ((ext (match-string-no-properties 0)))
        (kill-new ext)
        (message "killed: %s" ext) ))))

;; test:
;;   (dired-get-ext) index.php                       (kills .php)
;;   (dired-get-ext) E-Type Life .ft Nana Hedin.webm (kills .webm)

(provide 'dired-kill-ext)