                         :height (number-to-string smsn-height)
                         :style smsn-style
                         :view entity
-                        :filter (filter-json smsn-min-sharability smsn-max-sharability smsn-default-sharability smsn-min-weight smsn-max-weight smsn-default-weight))))))
+                        :filter (filter-json
+                            smsn-min-sharability smsn-max-sharability smsn-default-sharability
+                            smsn-min-weight smsn-max-weight smsn-default-weight))))))
             (receive-view smsn-edit-mode)))))
 
 (defun smsn-ripple-query (query)



;; KEYBOARD MAPPINGS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun minibuffer-arg (function prompt &optional initial)
    (lexical-let ((f function) (p prompt) (i initial))
        (lambda ()
            (interactive)
            ;; note: use of the INITIAL argument is discouraged, but here it makes sense
            (let ((arg (read-from-minibuffer p i)))
                (if arg (funcall f arg))))))

(defun char-arg (function prompt)
    (lexical-let ((f function) (p prompt))
        (lambda ()
            (interactive)
            (let ((c (read-char p)))
                (if c (funcall f c))))))

;; Note: when updating this list of mappings, also update the PKB
(global-set-key (kbd "C-c C-I f")       'smsn-find-isolated-atoms)
(global-set-key (kbd "C-c C-I r")       'smsn-remove-isolated-atoms)
(global-set-key (kbd "C-c C-a C-p")     (char-arg 'smsn-insert-attr-priority "priority = ?"))
(global-set-key (kbd "C-c C-a C-s")     (char-arg 'smsn-insert-attr-sharability "sharability = ?"))
(global-set-key (kbd "C-c C-a C-w")     (char-arg 'smsn-insert-attr-weight "weight = ?"))
(global-set-key (kbd "C-c C-a d")       'smsn-insert-current-date)
(global-set-key (kbd "C-c C-a s")       'smsn-insert-current-time-with-seconds)
(global-set-key (kbd "C-c C-a t")       'smsn-insert-current-time)
(global-set-key (kbd "C-c C-d")         (char-arg 'smsn-set-view-height "height = ?"))
(global-set-key (kbd "C-c C-e e")       (minibuffer-arg 'smsn-export-edges "export edges to file: " smsn-default-edges-file))
(global-set-key (kbd "C-c C-e g")       (minibuffer-arg 'smsn-export-graphml "export GraphML to file: " smsn-default-graphml-file))
(global-set-key (kbd "C-c C-e l")       (minibuffer-arg 'smsn-export-latex "export LaTeX to file: " smsn-default-latex-file))
(global-set-key (kbd "C-c C-e p")       (minibuffer-arg 'smsn-export-pagerank "export PageRank results to file: " smsn-default-pagerank-file))
(global-set-key (kbd "C-c C-e r")       (minibuffer-arg 'smsn-export-rdf "export private RDF dump to file: " smsn-default-rdf-file))
(global-set-key (kbd "C-c C-e v")       (minibuffer-arg 'smsn-export-vertices "export vertices to file: " smsn-default-vertices-file))
(global-set-key (kbd "C-c C-e w")       (minibuffer-arg 'smsn-export-webrdf "export public Web RDF dump to file: " smsn-default-webrdf-file))
(global-set-key (kbd "C-c C-i g")       (minibuffer-arg 'smsn-import-graphml "import GraphML from file: " smsn-default-graphml-file))
(global-set-key (kbd "C-c C-l")         (minibuffer-arg 'smsn-goto-line "line: "))
(global-set-key (kbd "C-c C-r C-b a")   (smsn-visit-in-amazon 'current-root-value))
(global-set-key (kbd "C-c C-r C-b e")   (smsn-visit-in-ebay 'current-root-value))
(global-set-key (kbd "C-c C-r C-b d")   (smsn-visit-in-delicious 'current-root-value))

(setq smsn-atoms nil)
(setq smsn-current-line 1)
(setq smsn-mode nil)  ;; Note: 'view-mode' is used by Emacs.
(setq smsn-viewstyle smsn-color-by-sharability)
(setq smsn-view-properties nil)
(setq smsn-value-truncation-length 100)
(setq smsn-minimize-verbatim-blocks nil)
