     (set-face-foreground 'minibuffer-prompt newcol)
     (prompt-for-string 'brain-fulltext-query "full-text search for: ")
     (set-face-foreground 'minibuffer-prompt oldcol)))
-
 (defvar brain-mode-map nil)
 (if brain-mode-map ()
   (progn
     (setq brain-mode-map (make-sparse-keymap))
-    (define-key brain-mode-map (kbd "C-c C-I f")       'brain-find-isolated-atoms)
-    (define-key brain-mode-map (kbd "C-c C-I r")       'brain-remove-isolated-atoms)
+    (define-key brain-mode-map (kbd "C-c C-i f")       'brain-find-isolated-atoms)
+    (define-key brain-mode-map (kbd "C-c C-i r")       'brain-remove-isolated-atoms)
     (define-key brain-mode-map (kbd "C-c C-a C-p")     'brain-insert-attr-priority-prompt)
     (define-key brain-mode-map (kbd "C-c C-a C-s")     'brain-insert-attr-sharability-prompt)
     (define-key brain-mode-map (kbd "C-c C-a C-w")     'brain-insert-attr-weight-prompt)

    (define-key brain-mode-map (kbd "C-c C-e v")       'brain-export-vertices-prompt)
    (define-key brain-mode-map (kbd "C-c C-e w")       'brain-export-webrdf-prompt)
    (define-key brain-mode-map (kbd "C-c C-i g")       'brain-import-graphml-prompt)
    (define-key brain-mode-map (kbd "C-c C-l")         'brain-goto-line-prompt)
    (define-key brain-mode-map (kbd "C-c C-r C-b a")   (brain-visit-in-amazon 'current-root-value))
    (define-key brain-mode-map (kbd "C-c C-r C-b e")   (brain-visit-in-ebay 'current-root-value))
    (define-key brain-mode-map (kbd "C-c C-r C-b d")   (brain-visit-in-delicious 'current-root-value))

    (define-key brain-mode-map (kbd "C-c C-v v")       'brain-toggle-minimize-verbatim-blocks)
    (define-key brain-mode-map (kbd "C-c C-w C-m")     'brain-set-min-weight-prompt)
    (define-key brain-mode-map (kbd "C-c a")           'brain-acronym-query-prompt)
    (define-key brain-mode-map (kbd "C-c C-b")           'brain-visit-url-at-point)
    (define-key brain-mode-map (kbd "C-c d")           'brain-duplicates)
    (define-key brain-mode-map (kbd "C-c C-f")           'brain-find-roots)
    (define-key brain-mode-map (kbd "C-c h")           'brain-history)
    (define-key brain-mode-map (kbd "C-c i")           'brain-infer-types)
    (define-key brain-mode-map (kbd "C-c o")           'brain-shortcut-query-prompt)
    (define-key brain-mode-map (kbd "C-c P")           'brain-priorities)
    (define-key brain-mode-map (kbd "C-c p")           'brain-push-view)
    (define-key brain-mode-map (kbd "C-c C-w r")           'brain-ripple-query-prompt)
      ;; likely not the greatest shortcut -- w just stands for weird
    (define-key brain-mode-map (kbd "C-c s")           'brain-fulltext-query-prompt)
    (define-key brain-mode-map (kbd "C-c t")           'brain-visit-target)
    (define-key brain-mode-map (kbd "C-c u")           'brain-update-view)
    (define-key brain-mode-map (kbd "C-c C-w v")           'brain-events)))
      ;; likely not the greatest shortcut -- w just stands for weird

;; special mappings reserved for use through emacsclient
;; C-c c  --  atom-id-at-point
