```common lisp
(in-package :lispkit)


(defun load-ui-from-file (path)
  (if (probe-file path)
      (let ((builder (gtk:gtk-builder-new)))
        (gtk:gtk-builder-add-from-file builder (namestring path))
        builder)
      (error (format nil "non existent path: ~s" path))))

(defun main (&rest args)
  (declare (ignore args))
  (within-main-loop
    (let* ((ui     (load-ui-from-file
                    (asdf:system-relative-pathname :lispkit "main.ui")))
           (window (gtk:gtk-builder-get-object ui "mainwindow"))
           (frame  (gtk:gtk-builder-get-object ui "scrolledwindow"))
           (entry  (gtk:gtk-builder-get-object ui "entry_box"))
           (view   (webkit.foreign:webkit-web-view-new))
           (browser (new-browser ui view)))
      (gtk-container-add frame view)
      (g-signal-connect window "key_press_event"
                        (new-key-dispatcher browser))
      (load-url "http://www.github.com/AeroNotix/lispkit" browser)
      (gtk-widget-hide entry)
      (dolist (widget (list window frame view))
        (gtk-widget-show widget)))))
```

Put the first URL into a named parameter
user
```common lisp
(in-package :lispkit)


(defparameter *default-page*
  "http://www.github.com/AeroNotix/lispkit")

(defun load-ui-from-file (path)
  (if (probe-file path)
      (let ((builder (gtk:gtk-builder-new)))
        (gtk:gtk-builder-add-from-file builder (namestring path))
        builder)
      (error (format nil "non existent path: ~s" path))))

(defun main (&rest args)
  (declare (ignore args))
  (within-main-loop
    (let* ((ui     (load-ui-from-file
                    (asdf:system-relative-pathname :lispkit "main.ui")))
           (window (gtk:gtk-builder-get-object ui "mainwindow"))
           (frame  (gtk:gtk-builder-get-object ui "scrolledwindow"))
           (entry  (gtk:gtk-builder-get-object ui "entry_box"))
           (view   (webkit.foreign:webkit-web-view-new))
           (browser (new-browser ui view)))
      (gtk-container-add frame view)
      (g-signal-connect window "key_press_event"
                        (new-key-dispatcher browser))
      (load-url *default-page* browser)
      (gtk-widget-hide entry)
      (dolist (widget (list window frame view))
        (gtk-widget-show widget)))))
```
assistant