diff --git a/init.org b/init.org
index ff986f2..58da471 100644
--- a/init.org
+++ b/init.org
@@ -1518,11 +1518,11 @@ according to the mode."
 ;; Chris Done (god-mode) recommends this, but Emacs' repeat command is almost useless...
 ;; (global-set-key (kbd "C-.") 'repeat)
 
-(defun cp/delete-trailing-whitespace ()
+(defun my-delete-trailing-whitespace ()
   (unless (derived-mode-p 'markdown-mode)
     (delete-trailing-whitespace)))
 
-(add-hook 'before-save-hook 'cp/delete-trailing-whitespace)
+(add-hook 'before-save-hook 'my-delete-trailing-whitespace)
 
 ;; BUG - (dired-get-marked-files) returns file name at point if none are marked
 ;; BUG - (dired-get-marked-files) always returns an alphabetically-sorted list, even when the Dired buffer is sorted by date
@@ -2727,7 +2727,7 @@ PR ideas
    ;; after learning that this copies whole paths with null
    ;; argument, this became a whole lot more useful
    ("C-w"         . dired-copy-filename-as-kill)
-   ("C-c C-f"     . cp/corresponding-text-file)
+   ("C-c C-f"     . my-corresponding-text-file)
    ("h"           . dired-hide-dotfiles-mode)
    ([mouse-2]     . cp/dired-launch-or-open)
    ("C-j"         . launch-files-dired)
@@ -2764,8 +2764,12 @@ PR ideas
   :bind ("s-l" . launch-file))
 #+END_SRC
 
+*** my-open-random-file                                           :command:
+:PROPERTIES:
+:CUSTOM_ID: my-open-random-file
+:END:
 #+BEGIN_SRC emacs-lisp
-(defun cp/open-random-file (&optional find-args dir cmd)
+(defun my-open-random-file (&optional find-args dir cmd)
   "Open a random file in DIR, prompting the user for it if not supplied."
   (interactive)
   (let* ((find-args (if find-args find-args " -type f "))
@@ -2834,7 +2838,7 @@ PR ideas
 ;; (define-key archive-mode-map (kbd "j") 'cp/launch-file-archive)
 
 ;; 2018-02-28T21:00:57+0530
-(defun cp/corresponding-text-file ()
+(defun my-corresponding-text-file ()
   (interactive)
   (save-excursion
     (end-of-line)
@@ -2856,7 +2860,8 @@ PR ideas
       (dired-find-file)
     (launch-files-dired nil (dired-get-marked-files))))
 
-(defun contrapunctus-delete-file-at-point (&optional prefix)
+(defun my-delete-file-at-point (&optional prefix)
+  "In text buffers, delete the file corresponding to the path on the current line."
   (interactive "P")
   (let ((file (buffer-substring (point-at-bol) (point-at-eol))))
     (if (file-exists-p file)
@@ -2873,7 +2878,8 @@ PR ideas
           (message "Deleted %s" file))
       (error "File %s does not exist!" file))))
 
-(defun contrapunctus-file-at-point-exists-p ()
+(defun my-file-at-point-exists-p ()
+  "In text buffers, check if the file corresponding to the path on the current line exists."
   (interactive)
   (let ((file (buffer-substring (point-at-bol)
                                 (point-at-eol))))
@@ -2898,8 +2904,12 @@ PR ideas
   (dired-mode . peep-dired))
 #+END_SRC
 
+*** my-rename-this-file                                           :command:
+:PROPERTIES:
+:CUSTOM_ID: my-rename-this-file
+:END:
 #+BEGIN_SRC emacs-lisp
-(defun contrapunctus-rename-this-file ()
+(defun my-rename-this-file ()
   (interactive)
   (rename-file ;; message "will rename %s to %s"
            (buffer-file-name (current-buffer))
@@ -2908,6 +2918,19 @@ PR ideas
                             (buffer-file-name (current-buffer)))))
   ;; (rename-file (buffer-file-name (current-buffer)) new-name)
   )
+#+END_SRC
+
+*** my-delete-this-file                                           :command:
+:PROPERTIES:
+:CUSTOM_ID: my-delete-this-file
+:END:
+#+BEGIN_SRC emacs-lisp
+(defun my-delete-this-file ()
+  (interactive)
+  (when (y-or-n-p "Delete this file?")
+    (delete-file (buffer-file-name))
+    (image-next-file)))
+#+END_SRC
 
 #+END_SRC
 
@@ -3225,7 +3248,8 @@ Even the patched version of =mu4e-alert= I'm using is not completely bug-free -
         ("W" . image-transform-fit-to-width)
         ("H" . image-transform-fit-to-height)
         ("o" . nil)
-	("R" . contrapunctus-rename-this-file)))
+	    ("R" . my-rename-this-file)
+        ("D" . my-delete-this-file)))
 #+END_SRC
 
 ** TODO magit [0%]                                                      :vc: