anchor.diff:    (let ((name (ffi-buffer-evaluate-javascript
                  (buffer macro-editor)
                  (ps:ps
  -                (ps:chain document (get-element-by-id "macro-name") value)))))
  +                 (ps:chain document (get-element-by-id "macro-name") value)))))
       (cond ((not (str:emptyp name)) (setf (slot-value macro-editor 'name) name))
             ((slot-value macro-editor 'name) (slot-value macro-editor 'name))
             (t nil))))
  
positive.code:                                                             (current-mode 'macro-edit-mode)
                                                              ,key))
                                            "🛈"))
                                   (:td (symbol-name (name value))))))))))
      (ffi-buffer-evaluate-javascript-async
       (buffer macro-editor)
       (ps:ps
  
negative.code:   (let ((command 
            (first
             (prompt
              :prompt "Add command"
              :sources (make-instance 'user-command-source)))))
      (add-function macro-editor command)))
  
  