Fix ns detection with namespaces containing numbers

Author: yuhan0

clojure-mode.el

@@ -1923,10 +1923,8 @@ DIRECTION is `forward' or `backward'."
           (save-match-data
             (goto-char end)
             (clojure-forward-logical-sexp)
-            (when (and (looking-back clojure--sym-regexp end 'greedy)
-                       (not (clojure--in-string-p))
-                       (not (clojure--in-comment-p)))
-              (setq candidate (match-string-no-properties 0)))))))
+            (unless (or (clojure--in-string-p) (clojure--in-comment-p))
+              (setq candidate (thing-at-point 'symbol)))))))
     candidate))
 
 (defun clojure-find-ns ()

test/clojure-mode-util-test.el

@@ -92,7 +92,9 @@
     (with-clojure-buffer "(ns foo+)"
       (expect (clojure-find-ns) :to-equal "foo+"))
     (with-clojure-buffer "(ns bar**baz$-_quux)"
-      (expect (clojure-find-ns) :to-equal "bar**baz$-_quux")))
+      (expect (clojure-find-ns) :to-equal "bar**baz$-_quux"))
+    (with-clojure-buffer "(ns aoc-2019.puzzles.day14)"
+      (expect (clojure-find-ns) :to-equal "aoc-2019.puzzles.day14")))
   (it "should support in-ns forms"
     (with-clojure-buffer "(in-ns 'bar.baz)"
       (expect (clojure-find-ns) :to-equal "bar.baz")))