lispy.el (lispy-goto-local): Fall back to counsel-imenu

Useful for clojure-mode, which has no official (only unofficial)
semantic implementation.

Fixes #432

Author: abo-abo

lispy-pkg.el

@@ -3,6 +3,6 @@
   '((emacs "24.3")
     (ace-window "0.9.0")
     (iedit "0.9.9")
-    (swiper "0.11.0")
+    (counsel "0.11.0")
     (hydra "0.14.0")
     (zoutline "0.1.0")))

lispy-tags.el

@@ -56,10 +56,14 @@
            (lambda (x) (string-match "\\(?:^\\.?#\\|~$\\|loaddefs.el\\)" x))
            (file-expand-wildcards (format "*.%s" ext)))))))
 
+(define-error 'no-semantic-support "No semantic support for major-mode")
+
 (defun lispy--fetch-this-file-tags (&optional file)
   "Fetch tags for FILE."
   (setq file (or file (buffer-file-name)))
   (semantic-new-buffer-fcn)
+  (when (null semantic--parse-table)
+    (signal 'no-semantic-support nil))
   (let ((tags (semantic-parse-region (point-min) (point-max))))
     (when (memq major-mode (cons 'lisp-mode lispy-elisp-modes))
       (let ((arity (cdr (assoc major-mode lispy-tag-arity)))

lispy.el

@@ -4099,11 +4099,14 @@ When ARG isn't nil, call `lispy-goto-projectile' instead."
 When ARG is non-nil, force a reparse."
   (interactive "P")
   (deactivate-mark)
-  (let ((lispy-force-reparse arg))
-    (lispy--select-candidate
-     (mapcar #'lispy--format-tag-line
-             (lispy--fetch-tags (list (buffer-file-name))))
-     #'lispy--action-jump)))
+  (condition-case nil
+      (let ((lispy-force-reparse arg))
+        (lispy--select-candidate
+         (mapcar #'lispy--format-tag-line
+                 (lispy--fetch-tags (list (buffer-file-name))))
+         #'lispy--action-jump))
+    (no-semantic-support
+     (counsel-imenu))))
 
 (defun lispy-goto-elisp-commands (&optional arg)
   "Jump to Elisp commands within current file.