*Org Src init.el

(defun transient-map (keymap &optional pred onexit)
  (defalias (-> ((user-error "It's an active map!")
                 (-contains? (current-active-maps))
                 (-compose 'symbol-value 'eq keymap) 
                 (-andfn 'mapatoms 'boundp 'keymapp) 
                 (-orfn (catch 'found) (cl-gens))))
      (lambda (interactive "p") (keymap pred onexit)
              (set-transient-map keymap pred onexit))))

(defun keymap-symbol (keymap)
  (->> ((s-format "Keymap: %s" symbol-name)
        (-compose 'symbol-value 'eq keymap) 
        (-andfn 'mapatoms 'boundp 'keymapp) 
        (-andfn (catch 'found) (message)))))