Allow a sexp node in ivy-views

Example:

(setq ivy-views
      '(
        ;;
        ("lispy + source {}"
         (horz
          (file "lispy.el")
          (sexp (bookmark-jump "s:  source"))))))

The provided sexp will simply be evaluated.

Fixes #472

diff --git a/ivy.el b/ivy.el
index da89d979a7a5ebe8ef47529a07baf407e0a5a2e5..53d06220886ff6238fd71b48a7cb7d6bc09569f9 100644 (file)
--- a/ivy.el
+++ b/ivy.el
@@ -2597,7 +2597,9 @@ TREE can be nested multiple times to have mulitple window splits.")
                  ((file-exists-p name)
                   (find-file name)))))
         ((eq (car view) 'buffer)
-         (switch-to-buffer (cadr view)))))
+         (switch-to-buffer (cadr view)))
+        ((eq (car view) 'sexp)
+         (eval (cadr view)))))
 
 (defun ivy--switch-buffer-action (buffer)
   "Switch to BUFFER.