Org-Mode add link to iThoughtsX mindmap file. Create file if it doesn't exist.

create-ithoughts-file-link.el

;; emacs org-mode function
;; to add a link to ithoughtsX mindmap file
;; main purpose is capability to automatically create the file if it doesn't exist
;; also adds file extension to name as I never remember the extension correctly
;; mapped to a hyperkey based key mapping (I remapped my long-press tab as a hyperkey)

(defun create-ithoughts-file-link ()
  (interactive)
  
  (let ((filename (concat (read-string "Enter a name:") ".itmz"))
	(description (read-string "Enter a description:"))
	)
    (let ((default-directory "~/org/mindmaps"))
      (if (f-exists? filename)                             
	  (message (concat "File Exists:" filename))
	(shell-command-to-string (concat "cp Template.itmz " filename))
	)
      (org-insert-link "file" (concat "~/org/mindmaps/" filename) description)
      )
    )) 

(global-set-key (kbd "C-M-S-s-u l") 'create-ithoughts-file-link) ;;map to <hyper>-u l