anchor.diff:      (lparallel:future
         (potato-client:send-message (channel/id channel) text :connection (potato-frame/connection frame)))))
   
  +(define-potato-frame-command (switch-to-private-channel-frame :name "Open private conversation")
  +  ((obj 'user))
  +  (log:error "Open private conversation not implemented. user = ~s" (user/id obj)))
  +
   (define-potato-frame-command (open-url-in-browser :name "Open URL")
     ((url 'string))
     (uiop:run-program (list "xdg-open" url)))
  
positive.code:                    :accessor potato-frame/channels)
     (active-channel :type (or null channel)
                     :initform nil
                     :accessor potato-frame/active-channel))
    (:panes (channel-list    :application
                             :default-view (make-instance 'potato-view)
                             :display-function 'display-channel-list
  
negative.code:     (obj)
    (list (url-element/addr obj)))
  
  (clim:define-presentation-to-command-translator select-user
      (user switch-to-private-channel-frame potato-frame)
      (obj)
    (list obj))
  
  (defun redisplay-channel-content (channel)
    (let* ((frame (channel/frame channel))
           (pane (clim:find-pane-named frame 'channel-content)))
  