bufferxy.txt

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; CURRENT IMPLEMENTATION
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun set-url (input-url &optional disable-history)
  (let ((url (parse-url input-url)))
    (set-url-buffer url *active-buffer* disable-history)))

(define-key *document-mode-map* (kbd "C-l")
  (:input-complete *minibuffer* set-url :setup #'setup-url :empty-complete t))

;; Upon keystroke RET within the minibuffer, function return-input will be invoked which will
;; call (funcall set-url input-from-textbox)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; SUGGESTED NEW IMPLEMENTATION
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defcommand set-url ()
  "Some docstring describing the command"
  (let ((url ((read-from-minibuffer
               :setup setup-url
               :empty-complete t))))
    (set-url-buffer url *active-buffer* disable-history)))

;; read-from-minibuffer is a blocking function Upon keystroke RET,
;; semaphore is signaled unblocking read-from-minibuffer returning the
;; current value contained within the minibufffer