( if-let (( files ( denote-directory-files name )) ( length-of-files ( length files ))) ( cond (( = length-of-files 1 ) ( car files )) (( > length-of-files 1 ) ( completing-read "Select a file: " files nil :require-match ))) ( user-error "No files for colleague with name `%s'" name ))) ( defun my-denote-colleagues-new-meeting () "Prompt for the name of a colleague and insert a timestamped heading therein.