dumb-jump-0.5.3/0000755000175000017500000000000013536354050013255 5ustar dogslegdogslegdumb-jump-0.5.3/test/0000755000175000017500000000000013536354050014234 5ustar dogslegdogslegdumb-jump-0.5.3/test/dumb-jump-test.el0000644000175000017500000020575513536354050017451 0ustar dogslegdogsleg;;; -*- lexical-binding: t -*- (require 'f) (require 's) (require 'dash) (require 'noflet) (require 'el-mock) (require 'popup) ;;; Code: (defun dumb-jump-output-rule-test-failures (failures) (--each failures (princ (format "\t%s\n" it)))) (setq test-data-dir (f-expand "./test/data")) (setq test-data-dir-elisp (f-join test-data-dir "proj2-elisp")) (setq test-data-dir-proj1 (f-join test-data-dir "proj1")) (setq test-data-dir-proj3 (f-join test-data-dir "proj3-clj")) (setq test-data-dir-multiproj (f-join test-data-dir "multiproj")) (ert-deftest data-dir-exists-test () (should (f-dir? test-data-dir))) (ert-deftest data-dir-proj2-exists-test () (should (f-dir? test-data-dir-elisp))) (ert-deftest dumb-jump-get-lang-by-ext-test () (let ((lang1 (dumb-jump-get-language-by-filename "sldkfj.el")) (lang1b (dumb-jump-get-language-by-filename "sldkfj.el.gz")) (lang2 (dumb-jump-get-language-by-filename "/askdfjkl/somefile.js")) (nolang (dumb-jump-get-language-by-filename "/blah/somefile.bin"))) (should (string= lang1 "elisp")) (should (string= lang1b "elisp")) (should (string= lang2 "javascript")) (should (null nolang)))) (ert-deftest dumb-jump-get-lang-major-mode-test () (let* ((major-mode 'php) (lang1 (dumb-jump-get-language "blah/file.install")) (lang1b (dumb-jump-get-mode-base-name)) (lang2 (dumb-jump-get-language-by-filename "/askdfjkl/somefile.js"))) (should (string= lang1 "php")) (should (string= lang1b "php")) (should (string= lang2 "javascript")))) (ert-deftest dumb-jump-current-files-results-test () (let ((results '((:path "blah") (:path "rarr"))) (expected '((:path "blah")))) (should (equal (dumb-jump-current-file-results "blah" results) expected)))) (ert-deftest dumb-jump-exclude-path-test () (let* ((expected (list (f-join test-data-dir-proj1 "ignored") (f-join test-data-dir-proj1 "ignored2"))) (root (dumb-jump-get-project-root test-data-dir-proj1)) (config (dumb-jump-read-config test-data-dir-proj1 ".dumbjump"))) (should (equal (plist-get config :exclude) expected)))) (ert-deftest dumb-jump-include-path-test () (let* ((config (dumb-jump-read-config test-data-dir-proj1 ".dumbjump-include")) (expected (list (f-join test-data-dir-proj1 "../fake-library") "/etc/var/some/code"))) (should (equal (plist-get config :include) expected)))) (ert-deftest dumb-jump-exclude-path-blank-test () (let* ((config (dumb-jump-read-config test-data-dir-proj1 ".dumbjump-blank"))) (should (null (plist-get config :exclude))) (should (null (plist-get config :include))))) (ert-deftest dumb-jump-config-lang-test () (let* ((config (dumb-jump-read-config test-data-dir-proj1 ".dumbjump-lang"))) (should (string= "python" (plist-get config :language))))) (ert-deftest dumb-jump-read-config-remote-test () (with-mock (mock (f-read-text *) => "-exclude_path1\n+include_path1\n-exclude_path2\n+../include_path2\n+/usr/lib/include_path3") (let ((result (dumb-jump-read-config "/ssh:1.2.3.4:/usr/blah" "dummy-config")) (exclude-paths '("/usr/blah/exclude_path1" "/usr/blah/exclude_path2")) (include-paths '("/usr/blah/include_path1" "/usr/include_path2" "/usr/lib/include_path3"))) (should (equal (plist-get result :exclude) exclude-paths)) (should (equal (plist-get result :include) include-paths))))) (ert-deftest dumb-jump-language-to-ext-test () (should (-contains? (dumb-jump-get-file-exts-by-language "elisp") "el"))) (ert-deftest dumb-jump-generate-cmd-include-args () (let ((args (dumb-jump-get-ext-includes "javascript")) (expected " --include \\*.js --include \\*.jsx --include \\*.vue --include \\*.html --include \\*.css ")) (should (string= expected args)))) (ert-deftest dumb-jump-generate-grep-command-no-ctx-test () (let* ((system-type 'darwin) (regexes (dumb-jump-get-contextual-regexes "elisp" nil 'grep)) (expected-regexes (--map (concat " -e " (shell-quote-argument it)) '("\\((defun|cl-defun)\\s+tester($|[^a-zA-Z0-9\\?\\*-])" "\\(defvar\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])" "\\(defcustom\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])" "\\(setq\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])" "\\(tester\\s+"))) (expected (concat "LANG=C grep -REn --include \\*.el --include \\*.el.gz" (s-join "" expected-regexes) " ."))) (should (string= expected (dumb-jump-generate-grep-command "tester" "blah.el" "." regexes "elisp" nil))))) (ert-deftest dumb-jump-generate-gnu-grep-command-no-ctx-test () (let* ((system-type 'darwin) (regexes (dumb-jump-get-contextual-regexes "elisp" nil 'gnu-grep)) (expected-regexes (--map (concat " -e " (shell-quote-argument it)) '("\\((defun|cl-defun)[[:space:]]+tester($|[^a-zA-Z0-9\\?\\*-])" "\\(defvar\\b[[:space:]]*tester($|[^a-zA-Z0-9\\?\\*-])" "\\(defcustom\\b[[:space:]]*tester($|[^a-zA-Z0-9\\?\\*-])" "\\(setq\\b[[:space:]]*tester($|[^a-zA-Z0-9\\?\\*-])" "\\(tester[[:space:]]+"))) (expected (concat "LANG=C grep -rEn" (s-join "" expected-regexes) " ."))) (should (string= expected (dumb-jump-generate-gnu-grep-command "tester" "blah.el" "." regexes "elisp" nil))))) (ert-deftest dumb-jump-generate-ag-command-no-ctx-test () (let* ((regexes (dumb-jump-get-contextual-regexes "elisp" nil 'ag)) (expected-regexes "\\((defun|cl-defun)\\s+tester(?![a-zA-Z0-9\\?\\*-])|\\(defvar\\b\\s*tester(?![a-zA-Z0-9\\?\\*-])|\\(defcustom\\b\\s*tester(?![a-zA-Z0-9\\?\\*-])|\\(setq\\b\\s*tester(?![a-zA-Z0-9\\?\\*-])|\\(tester\\s+|\\((defun|cl-defun)\\s*.+\\(?\\s*tester(?![a-zA-Z0-9\\?\\*-])\\s*\\)?") (expected (concat "ag --nocolor --nogroup --elisp " (shell-quote-argument expected-regexes) " ."))) (should (string= expected (dumb-jump-generate-ag-command "tester" "blah.el" "." regexes "elisp" nil))))) (ert-deftest dumb-jump-generate-ag-command-exclude-test () (let* ((regexes (dumb-jump-get-contextual-regexes "elisp" nil 'ag)) (expected-regexes "\\((defun|cl-defun)\\s+tester(?![a-zA-Z0-9\\?\\*-])|\\(defvar\\b\\s*tester(?![a-zA-Z0-9\\?\\*-])|\\(defcustom\\b\\s*tester(?![a-zA-Z0-9\\?\\*-])|\\(setq\\b\\s*tester(?![a-zA-Z0-9\\?\\*-])|\\(tester\\s+|\\((defun|cl-defun)\\s*.+\\(?\\s*tester(?![a-zA-Z0-9\\?\\*-])\\s*\\)?") (expected (concat "ag --nocolor --nogroup --elisp --ignore-dir this/is/excluded " (shell-quote-argument expected-regexes) " /path/to/proj-root"))) (should (string= expected (dumb-jump-generate-ag-command "tester" "blah.el" "/path/to/proj-root" regexes "elisp" '("/path/to/proj-root/this/is/excluded")))))) (ert-deftest dumb-jump-generate-git-grep-plus-ag-command-no-ctx-test () (let* ((regexes (dumb-jump-get-contextual-regexes "elisp" nil 'ag)) (expected-regexes "\\((defun|cl-defun)\\s+tester(?![a-zA-Z0-9\\?\\*-])|\\(defvar\\b\\s*tester(?![a-zA-Z0-9\\?\\*-])|\\(defcustom\\b\\s*tester(?![a-zA-Z0-9\\?\\*-])|\\(setq\\b\\s*tester(?![a-zA-Z0-9\\?\\*-])|\\(tester\\s+|\\((defun|cl-defun)\\s*.+\\(?\\s*tester(?![a-zA-Z0-9\\?\\*-])\\s*\\)?") (expected (concat "ag --nocolor --nogroup -G '(/path/to/proj-root/blah.el)' " (shell-quote-argument expected-regexes) " /path/to/proj-root"))) ;; NOTE no "--elisp" and the `-G` arg is new (with-mock (mock (dumb-jump-get-git-grep-files-matching-symbol-as-ag-arg * *) => "'(/path/to/proj-root/blah.el)'") (should (string= expected (dumb-jump-generate-git-grep-plus-ag-command "tester" "blah.el" "/path/to/proj-root" regexes "elisp" nil)))))) (ert-deftest dumb-jump-generate-git-grep-plus-ag-command-exclude-test () (let* ((regexes (dumb-jump-get-contextual-regexes "elisp" nil 'ag)) (expected-regexes "\\((defun|cl-defun)\\s+tester(?![a-zA-Z0-9\\?\\*-])|\\(defvar\\b\\s*tester(?![a-zA-Z0-9\\?\\*-])|\\(defcustom\\b\\s*tester(?![a-zA-Z0-9\\?\\*-])|\\(setq\\b\\s*tester(?![a-zA-Z0-9\\?\\*-])|\\(tester\\s+|\\((defun|cl-defun)\\s*.+\\(?\\s*tester(?![a-zA-Z0-9\\?\\*-])\\s*\\)?") (expected (concat "ag --nocolor --nogroup -G '(/path/to/proj-root/blah.el)' --ignore-dir this/is/excluded " (shell-quote-argument expected-regexes) " /path/to/proj-root"))) ;; NOTE no "--elisp" and the `-G` arg is new (with-mock (mock (dumb-jump-get-git-grep-files-matching-symbol-as-ag-arg * *) => "'(/path/to/proj-root/blah.el)'") (should (string= expected (dumb-jump-generate-git-grep-plus-ag-command "tester" "blah.el" "/path/to/proj-root" regexes "elisp" '("/path/to/proj-root/this/is/excluded"))))))) (ert-deftest dumb-jump-generate-rg-command-no-ctx-test () (let* ((regexes (dumb-jump-get-contextual-regexes "elisp" nil 'rg)) (expected-regexes "\\((defun|cl-defun)\\s+tester($|[^a-zA-Z0-9\\?\\*-])|\\(defvar\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])|\\(defcustom\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])|\\(setq\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])|\\(tester\\s+|\\((defun|cl-defun)\\s*.+\\(?\\s*tester($|[^a-zA-Z0-9\\?\\*-])\\s*\\)?") (expected (concat "rg --color never --no-heading --line-number -U --pcre2 --type elisp " (shell-quote-argument expected-regexes) " ."))) (should (string= expected (dumb-jump-generate-rg-command "tester" "blah.el" "." regexes "elisp" nil))))) (ert-deftest dumb-jump-generate-rg-command-remote-test () (let* ((regexes (dumb-jump-get-contextual-regexes "elisp" nil 'rg)) (expected-regexes "\\((defun|cl-defun)\\s+tester($|[^a-zA-Z0-9\\?\\*-])|\\(defvar\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])|\\(defcustom\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])|\\(setq\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])|\\(tester\\s+|\\((defun|cl-defun)\\s*.+\\(?\\s*tester($|[^a-zA-Z0-9\\?\\*-])\\s*\\)?") (expected (concat "rg --color never --no-heading --line-number -U --pcre2 --type elisp -g \\!this/is/excluded " (shell-quote-argument expected-regexes) " /path/to/proj-root"))) (should (string= expected (dumb-jump-generate-rg-command "tester" "blah.el" "/path/to/proj-root" regexes "elisp" '("/path/to/proj-root/this/is/excluded")))))) (ert-deftest dumb-jump-generate-git-grep-command-no-ctx-test () (let* ((regexes (dumb-jump-get-contextual-regexes "elisp" nil 'git-grep)) (expected-regexes "\\((defun|cl-defun)\\s+tester($|[^a-zA-Z0-9\\?\\*-])|\\(defvar\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])|\\(defcustom\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])|\\(setq\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])|\\(tester\\s+|\\((defun|cl-defun)\\s*.+\\(?\\s*tester($|[^a-zA-Z0-9\\?\\*-])\\s*\\)?") (excludes '("one" "two" "three")) (expected (concat "git grep --color=never --line-number --untracked -E " (shell-quote-argument expected-regexes) " -- ./\\*.el ./\\*.el.gz \\:\\(exclude\\)one \\:\\(exclude\\)two \\:\\(exclude\\)three"))) (should (string= expected (dumb-jump-generate-git-grep-command "tester" "blah.el" "." regexes "elisp" excludes))))) (ert-deftest dumb-jump-generate-git-grep-command-no-ctx-extra-args () (let* ((regexes (dumb-jump-get-contextual-regexes "elisp" nil 'git-grep)) (expected-regexes "\\((defun|cl-defun)\\s+tester($|[^a-zA-Z0-9\\?\\*-])|\\(defvar\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])|\\(defcustom\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])|\\(setq\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])|\\(tester\\s+|\\((defun|cl-defun)\\s*.+\\(?\\s*tester($|[^a-zA-Z0-9\\?\\*-])\\s*\\)?") (excludes '("one" "two" "three")) (dumb-jump-git-grep-search-args "--recurse-submodules") (expected (concat "git grep --color=never --line-number --untracked --recurse-submodules -E " (shell-quote-argument expected-regexes) " -- ./\\*.el ./\\*.el.gz \\:\\(exclude\\)one \\:\\(exclude\\)two \\:\\(exclude\\)three"))) (should (string= expected (dumb-jump-generate-git-grep-command "tester" "blah.el" "." regexes "elisp" excludes))))) (ert-deftest dumb-jump-generate-ag-command-no-ctx-extra-args () ;; ag args (let* ((regexes (dumb-jump-get-contextual-regexes "elisp" nil 'ag)) (expected-regexes "\\((defun|cl-defun)\\s+tester(?![a-zA-Z0-9\\?\\*-])|\\(defvar\\b\\s*tester(?![a-zA-Z0-9\\?\\*-])|\\(defcustom\\b\\s*tester(?![a-zA-Z0-9\\?\\*-])|\\(setq\\b\\s*tester(?![a-zA-Z0-9\\?\\*-])|\\(tester\\s+|\\((defun|cl-defun)\\s*.+\\(?\\s*tester(?![a-zA-Z0-9\\?\\*-])\\s*\\)?") (dumb-jump-ag-search-args "--follow") (expected (concat "ag --nocolor --nogroup --follow --elisp " (shell-quote-argument expected-regexes) " ."))) (should (string= expected (dumb-jump-generate-ag-command "tester" "blah.el" "." regexes "elisp" nil))))) (ert-deftest dumb-jump-generate-rg-command-no-ctx-extra-args () ;; rg-args (let* ((regexes (dumb-jump-get-contextual-regexes "elisp" nil 'rg)) (expected-regexes "\\((defun|cl-defun)\\s+tester($|[^a-zA-Z0-9\\?\\*-])|\\(defvar\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])|\\(defcustom\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])|\\(setq\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])|\\(tester\\s+|\\((defun|cl-defun)\\s*.+\\(?\\s*tester($|[^a-zA-Z0-9\\?\\*-])\\s*\\)?") (dumb-jump-rg-search-args "--no-pcre2 --follow") (expected (concat "rg --color never --no-heading --line-number -U --no-pcre2 --follow --type elisp " (shell-quote-argument expected-regexes) " ."))) (should (string= expected (dumb-jump-generate-rg-command "tester" "blah.el" "." regexes "elisp" nil))))) (ert-deftest dumb-jump-generate-git-grep-command-not-search-untracked-test () (let* ((dumb-jump-git-grep-search-args "") (dumb-jump-git-grep-search-untracked nil) (regexes (dumb-jump-get-contextual-regexes "elisp" nil 'git-grep)) (expected-regexes "\\((defun|cl-defun)\\s+tester($|[^a-zA-Z0-9\\?\\*-])|\\(defvar\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])|\\(defcustom\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])|\\(setq\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])|\\(tester\\s+|\\((defun|cl-defun)\\s*.+\\(?\\s*tester($|[^a-zA-Z0-9\\?\\*-])\\s*\\)?") (excludes '("one" "two" "three")) (expected (concat "git grep --color=never --line-number -E " (shell-quote-argument expected-regexes) " -- ./\\*.el ./\\*.el.gz \\:\\(exclude\\)one \\:\\(exclude\\)two \\:\\(exclude\\)three"))) (should (string= expected (dumb-jump-generate-git-grep-command "tester" "blah.el" "." regexes "elisp" excludes))))) (ert-deftest dumb-jump-generate-grep-command-no-ctx-funcs-only-test () (let* ((system-type 'darwin) (dumb-jump-functions-only t) (regexes (dumb-jump-get-contextual-regexes "elisp" nil 'grep)) (expected-regexes "\\((defun|cl-defun)\\s+tester($|[^a-zA-Z0-9\\?\\*-])") (expected (concat "LANG=C grep -REn -e " (shell-quote-argument expected-regexes) " .")) (zexpected (concat "LANG=C zgrep -REn -e " (shell-quote-argument expected-regexes) " ."))) (should (string= expected (dumb-jump-generate-grep-command "tester" "blah.el" "." regexes "" nil))) (should (string= zexpected (dumb-jump-generate-grep-command "tester" "blah.el.gz" "." regexes "" nil))))) (ert-deftest dumb-jump-generate-grep-command-with-ctx-test () (let* ((system-type 'darwin) (ctx-type (dumb-jump-get-ctx-type-by-language "elisp" '(:left "(" :right nil))) (dumb-jump-ignore-context nil) ;; overriding the default (regexes (dumb-jump-get-contextual-regexes "elisp" ctx-type 'grep)) (expected-regexes "\\((defun|cl-defun)\\s+tester($|[^a-zA-Z0-9\\?\\*-])") (expected (concat "LANG=C grep -REn -e " (shell-quote-argument expected-regexes) " ."))) ;; the point context being passed should match a "function" type so only the one command (should (string= expected (dumb-jump-generate-grep-command "tester" "blah.el" "." regexes "" nil))))) (ert-deftest dumb-jump-generate-grep-command-on-windows-test () (noflet ((shell-quote-argument (it) (format "'%s'" it))) (let* ((system-type 'windows-nt) (ctx-type (dumb-jump-get-ctx-type-by-language "elisp" '(:left "(" :right nil))) (dumb-jump-ignore-context nil) ;; overriding the default (regexes (dumb-jump-get-contextual-regexes "elisp" ctx-type 'grep)) (expected-regexes "\\((defun|cl-defun)\\s+tester($|[^a-zA-Z0-9\\?\\*-])") (expected (concat "grep -REn -e " (shell-quote-argument expected-regexes) " ."))) (should (string= expected (dumb-jump-generate-grep-command "tester" "blah.el" "." regexes "" nil)))))) (ert-deftest dumb-jump-generate-grep-command-with-ctx-but-ignored-test () (let* ((system-type 'darwin) (ctx-type (dumb-jump-get-ctx-type-by-language "elisp" '(:left "(" :right nil))) (dumb-jump-ignore-context t) (regexes (dumb-jump-get-contextual-regexes "elisp" ctx-type nil)) (expected-regexes (--map (concat " -e " (shell-quote-argument it)) '("\\((defun|cl-defun)\\s+tester($|[^a-zA-Z0-9\\?\\*-])" "\\(defvar\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])" "\\(defcustom\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])" "\\(setq\\b\\s*tester($|[^a-zA-Z0-9\\?\\*-])" "\\(tester\\s+"))) (expected (concat "LANG=C grep -REn" (s-join "" expected-regexes) " ."))) ;; the point context being passed is ignored so ALL should return (should (string= expected (dumb-jump-generate-grep-command "tester" "blah.el" "." regexes "" nil))))) (ert-deftest dumb-jump-generate-bad-grep-command-test () (should (s-blank? (dumb-jump-generate-grep-command "tester" "blah.el" "." nil "" (list "skaldjf"))))) (ert-deftest dumb-jump-generate-bad-ag-command-test () (should (s-blank? (dumb-jump-generate-ag-command "tester" "blah.el" "." nil "" (list "skaldjf"))))) (ert-deftest dumb-jump-generate-bad-rg-command-test () (should (s-blank? (dumb-jump-generate-rg-command "tester" "blah.el" "." nil "" (list "skaldjf"))))) (ert-deftest dumb-jump-generate-bad-git-grep-command-test () (should (s-blank? (dumb-jump-generate-git-grep-command "tester" "blah.el" "." nil "" (list "skaldjf"))))) (ert-deftest dumb-jump-grep-parse-test () (let* ((resp "./dumb-jump.el:22:(defun dumb-jump-asdf ()\n./dumb-jump.el:26:(defvar some-var )\n./dumb-jump2.el:28:(defvar some-var)") (parsed (dumb-jump-parse-grep-response resp "dumb-jump2.el" 28)) (test-result (nth 1 parsed))) (should (= (plist-get test-result :diff) 2)) (should (= (length parsed) 2)) (should (string= (plist-get test-result :path) "dumb-jump.el")) (should (= (plist-get test-result ':line) 26)))) (ert-deftest dumb-jump-grep-parse-no-filter-test () (let* ((resp "./dumb-jump.el:22:(defun dumb-jump-asdf ()\n./dumb-jump.el:26:(defvar some-var )\n") (parsed (dumb-jump-parse-grep-response resp "dumb-jump2.el" 28)) (test-result (nth 1 parsed))) (should (= (plist-get test-result :diff) 2)) (should (= (length parsed) 2)) (should (string= (plist-get test-result :path) "dumb-jump.el")) (should (= (plist-get test-result ':line) 26)))) (ert-deftest dumb-jump-ag-parse-test () (let* ((resp "./dumb-jump.el:22:(defun dumb-jump-asdf ()\n./dumb-jump.el:26:(defvar some-var )\n./dumb-jump2.el:28:1:(defvar some-var)") (parsed (dumb-jump-parse-ag-response resp "dumb-jump2.el" 28)) (test-result (nth 1 parsed))) (should (= (plist-get test-result :diff) 2)) (should (= (length parsed) 2)) (should (string= (plist-get test-result :path) "dumb-jump.el")) (should (= (plist-get test-result ':line) 26)))) (ert-deftest dumb-jump-rg-parse-test () (let* ((resp "./dumb-jump.el:22:(defun dumb-jump-asdf ()\n./dumb-jump.el:26:(defvar some-var )\n./dumb-jump2.el:28:1:(defvar some-var)") (parsed (dumb-jump-parse-rg-response resp "dumb-jump2.el" 28)) (test-result (nth 1 parsed))) (should (= (plist-get test-result :diff) 2)) (should (= (length parsed) 2)) (should (string= (plist-get test-result :path) "dumb-jump.el")) (should (= (plist-get test-result ':line) 26)))) (ert-deftest dumb-jump-git-grep-parse-test () (let* ((resp "./dumb-jump.el:22:(defun dumb-jump-asdf ()\n./dumb-jump.el:26:(defvar some-var )\n./dumb-jump2.el:28:1:(defvar some-var)") (parsed (dumb-jump-parse-git-grep-response resp "dumb-jump2.el" 28)) (test-result (nth 1 parsed))) (should (= (plist-get test-result :diff) 2)) (should (= (length parsed) 2)) (should (string= (plist-get test-result :path) "dumb-jump.el")) (should (= (plist-get test-result ':line) 26)))) (ert-deftest dumb-jump-run-cmd-test () (let* ((gen-funcs (dumb-jump-pick-grep-variant test-data-dir-elisp)) (parse-fn (plist-get gen-funcs :parse)) (generate-fn (plist-get gen-funcs :generate)) (searcher (plist-get gen-funcs :searcher)) (regexes (dumb-jump-get-contextual-regexes "elisp" nil searcher)) (results (dumb-jump-run-command "another-fake-function" test-data-dir-elisp regexes "" "" "blah.el" 3 parse-fn generate-fn)) (first-result (car results))) (should (s-contains? "/fake.el" (plist-get first-result :path))) (should (= (plist-get first-result :line) 6)))) ;; (ert-deftest dumb-jump-run-grep-cmd-test () ;; (let* ((dumb-jump-force-grep t) ;; (regexes (dumb-jump-get-contextual-regexes "elisp" nil)) ;; (results (dumb-jump-run-command "another-fake-function" test-data-dir-elisp regexes "" "" "blah.el" 3)) ;; (first-result (car results))) ;; (should (s-contains? "/fake.el" (plist-get first-result :path))) ;; (should (= (plist-get first-result :line) 6)))) (ert-deftest dumb-jump-run-cmd-fail-test () (let* ((gen-funcs (dumb-jump-pick-grep-variant test-data-dir-elisp)) (parse-fn (plist-get gen-funcs :parse)) (generate-fn (plist-get gen-funcs :generate)) (results (dumb-jump-run-command "hidden-function" test-data-dir-elisp nil "" "" "blah.el" 3 parse-fn generate-fn)) (first-result (car results))) (should (null first-result)))) (ert-deftest dumb-jump-find-proj-root-test () (let* ((js-file (f-join test-data-dir-proj1 "src" "js")) (found-project (dumb-jump-get-project-root js-file))) (should (f-exists? found-project)) (should (string= found-project test-data-dir-proj1)) (should (string= ".dumbjump" (dumb-jump-get-config found-project))))) (ert-deftest dumb-jump-find-proj-root-default-test () (with-mock (mock (locate-dominating-file * *)) (let ((found-project (dumb-jump-get-project-root "")) (expected (f-expand dumb-jump-default-project))) (should (string= found-project expected))))) (ert-deftest dumb-jump-get-point-symbol-region-active-test () (with-mock (mock (region-active-p) => t) (mock (region-beginning) => 0) (mock (region-end) => 1) (mock (buffer-substring-no-properties * *) => "blah") (dumb-jump-get-point-symbol))) (ert-deftest dumb-jump-goto-file-line-test () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "fake.js"))) (with-mock (mock (ring-insert * *)) (dumb-jump-goto-file-line js-file 3 0) (should (string= (buffer-file-name) js-file)) (should (= (line-number-at-pos) 3))))) (ert-deftest dumb-jump-test-grep-rules-test () (let ((rule-failures (dumb-jump-test-grep-rules))) (dumb-jump-output-rule-test-failures rule-failures) (should (= (length rule-failures) 0)))) (when (dumb-jump-ag-installed?) (ert-deftest dumb-jump-test-ag-rules-test () (let ((rule-failures (dumb-jump-test-ag-rules))) (dumb-jump-output-rule-test-failures rule-failures) (should (= (length rule-failures) 0))))) (when (dumb-jump-rg-installed?) (ert-deftest dumb-jump-test-rg-rules-test () (let ((rule-failures (dumb-jump-test-rg-rules))) (dumb-jump-output-rule-test-failures rule-failures) (should (= (length rule-failures) 0))))) (when (dumb-jump-git-grep-installed?) (ert-deftest dumb-jump-test-git-grep-rules-test () (let ((rule-failures (dumb-jump-test-git-grep-rules))) (dumb-jump-output-rule-test-failures rule-failures) (should (= (length rule-failures) 0))))) (ert-deftest dumb-jump-test-grep-rules-not-test () ;; :not tests (let ((rule-failures (dumb-jump-test-grep-rules t))) (dumb-jump-output-rule-test-failures rule-failures) (should (= (length rule-failures) 0)))) (when (dumb-jump-ag-installed?) (ert-deftest dumb-jump-test-ag-rules-not-test () ;; :not tests (let ((rule-failures (dumb-jump-test-ag-rules t))) (dumb-jump-output-rule-test-failures rule-failures) (should (= (length rule-failures) 0))))) (when (dumb-jump-rg-installed?) (ert-deftest dumb-jump-test-rg-rules-not-test () ;; :not tests (let ((rule-failures (dumb-jump-test-rg-rules t))) (dumb-jump-output-rule-test-failures rule-failures) (should (= (length rule-failures) 0))))) (ert-deftest dumb-jump-test-grep-rules-fail-test () (let* ((bad-rule '(:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "elisp" :regex "\\\(defvarJJJ\\b\\s*" :tests ("(defvar test "))) (dumb-jump-find-rules (cons bad-rule dumb-jump-find-rules)) (rule-failures (dumb-jump-test-grep-rules))) (should (= (length rule-failures) 1)))) (when (dumb-jump-ag-installed?) (ert-deftest dumb-jump-test-ag-rules-fail-test () (let* ((bad-rule '(:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "elisp" :regex "\\\(defvarJJJ\\b\\s*" :tests ("(defvar test "))) (dumb-jump-find-rules (cons bad-rule dumb-jump-find-rules)) (rule-failures (dumb-jump-test-ag-rules))) (should (= (length rule-failures) 1))))) (when (dumb-jump-rg-installed?) (ert-deftest dumb-jump-test-rg-rules-fail-test () (let* ((bad-rule '(:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "elisp" :regex "\\\(defvarJJJ\\b\\s*" :tests ("(defvar test "))) (dumb-jump-find-rules (cons bad-rule dumb-jump-find-rules)) (rule-failures (dumb-jump-test-rg-rules))) (should (= (length rule-failures) 1))))) (when (dumb-jump-git-grep-installed?) (ert-deftest dumb-jump-test-git-grep-rules-fail-test () (let* ((bad-rule '(:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "elisp" :regex "\\\(defvarJJJ\\b\\s*" :tests ("(defvar test "))) (dumb-jump-find-rules (cons bad-rule dumb-jump-find-rules)) (rule-failures (dumb-jump-test-git-grep-rules))) (should (= (length rule-failures) 1))))) (when (dumb-jump-git-grep-installed?) (ert-deftest dumb-jump-test-git-grep-rules-not-test () ;; :not tests (let ((rule-failures (dumb-jump-test-git-grep-rules t))) (dumb-jump-output-rule-test-failures rule-failures) (should (= (length rule-failures) 0))))) (ert-deftest dumb-jump-match-test () (should (not (dumb-jump-re-match nil "asdf"))) (should (dumb-jump-re-match "^asdf$" "asdf")) (should (string= (car (dumb-jump-re-match "^[0-9]+$" "123")) "123"))) (ert-deftest dumb-jump-context-point-test () (let* ((sentence "mainWindow.loadUrl('file://')") (func "loadUrl") (ctx (dumb-jump-get-point-context sentence func 15))) (should (string= (plist-get ctx :left) "mainWindow.")) (should (string= (plist-get ctx :right) "('file://')")))) (ert-deftest dumb-jump-context-point-type-test () (let* ((sentence "mainWindow.loadUrl('file://' + __dirname + '/dt/inspector.html?electron=true');") (func "loadUrl") (pt-ctx (dumb-jump-get-point-context sentence func 14)) (ctx-type (dumb-jump-get-ctx-type-by-language "javascript" pt-ctx))) (should (string= ctx-type "function")))) (ert-deftest dumb-jump-prompt-user-for-choice-correct-test () (let* ((results '((:path "/usr/blah/test.txt" :line 54 :context "function thing()") (:path "/usr/blah/test2.txt" :line 52 :context "var thing = function()" :target "a")))) (with-mock (mock (popup-menu* *) => "/test2.txt:52: var thing = function()") (mock (dumb-jump-result-follow '(:path "/usr/blah/test2.txt" :line 52 :context "var thing = function()" :target "a"))) (dumb-jump-prompt-user-for-choice "/usr/blah" results)))) (ert-deftest dumb-jump-prompt-user-for-choice-correct-helm-test () (let* ((dumb-jump-selector 'helm) (results '((:path "/usr/blah/test.txt" :line 54 :context "function thing()") (:path "/usr/blah/test2.txt" :line 52 :context "var thing = function()" :target "a")))) (with-mock (mock (helm-build-sync-source * :action * :candidates * :persistent-action *)) (mock (helm * * :buffer "*helm dumb jump choices*")) (dumb-jump-prompt-user-for-choice "/usr/blah" results)))) (ert-deftest dumb-jump-prompt-user-for-choice-correct-helm-persistent-action-test () (dumb-jump-helm-persist-action '(:path "dumb-jump.el" :line 1 :context " (defn status")) (should (get-buffer " *helm dumb jump persistent*"))) (ert-deftest dumb-jump-prompt-user-for-choice-correct-ivy-test () (let* ((dumb-jump-selector 'ivy) (results '((:path "/usr/blah/test.txt" :line 54 :context "function thing()") (:path "/usr/blah/test2.txt" :line 52 :context "var thing = function()" :target "a")))) (with-mock (mock (ivy-read * *) => "/test2.txt:52: var thing = function()") (mock (dumb-jump-result-follow '(:path "/usr/blah/test2.txt" :line 52 :context "var thing = function()" :target "a"))) (dumb-jump-prompt-user-for-choice "/usr/blah" results)))) (ert-deftest dumb-jump-a-back-test () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "fake2.js")) (go-js-file (f-join test-data-dir-proj1 "src" "js" "fake.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-char 13) (with-mock (mock (pop-tag-mark)) (dumb-jump-go) (dumb-jump-back))))) (ert-deftest dumb-jump-fetch-results-test () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "fake.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-line 2) (forward-char 10) (let ((results (dumb-jump-fetch-file-results))) (should (string= "doSomeStuff" (plist-get results :symbol))) (should (string= "javascript" (plist-get results :lang))))))) (ert-deftest dumb-jump-go-shell-test () (let* ((go-js-file (f-join test-data-dir-proj1 "src" "js" "fake.js")) (default-directory test-data-dir-proj1)) (with-current-buffer (get-buffer-create "*shell*") (insert ".js doSomeStuff()") (goto-char (point-min)) (forward-char 6) (let ((results (dumb-jump-get-results))) (should (string= "doSomeStuff" (plist-get results :symbol))) (should (string= "javascript" (plist-get results :lang))))))) (ert-deftest dumb-jump-go-test () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "fake2.js")) (go-js-file (f-join test-data-dir-proj1 "src" "js" "fake.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-char 13) (with-mock (mock (dumb-jump-goto-file-line * 3 9)) (should (string= go-js-file (dumb-jump-go))))))) (ert-deftest dumb-jump-go-other-window-test () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "fake2.js")) (go-js-file (f-join test-data-dir-proj1 "src" "js" "fake.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-char 13) (with-mock (mock (dumb-jump-goto-file-line * 3 9)) (should (string= go-js-file (dumb-jump-go-other-window))))))) (ert-deftest dumb-jump-go-current-window-test () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "fake2.js")) (go-js-file (f-join test-data-dir-proj1 "src" "js" "fake.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-char 13) (with-mock (mock (dumb-jump-goto-file-line * 3 9)) (should (string= go-js-file (dumb-jump-go-current-window))))))) (ert-deftest dumb-jump-quick-look-test () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "fake2.js")) (go-js-file (f-join test-data-dir-proj1 "src" "js" "fake.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-char 13) (with-mock (mock (popup-tip "/src/js/fake.js:3: function doSomeStuff() {")) (should (string= go-js-file (dumb-jump-quick-look))))))) (ert-deftest dumb-jump-go-js2-test () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "fake.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-line 11) (forward-char 76) (with-mock (mock (dumb-jump-goto-file-line * 7 35)) (should (string= js-file (dumb-jump-go))))))) (ert-deftest dumb-jump-go-js-es6a-test () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "es6.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-line 20) (with-mock (mock (dumb-jump-goto-file-line * 1 4)) (should (string= js-file (dumb-jump-go))))))) (ert-deftest dumb-jump-go-js-es6b-test () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "es6.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-line 21) (with-mock (mock (dumb-jump-goto-file-line * 3 6)) (should (string= js-file (dumb-jump-go))))))) (ert-deftest dumb-jump-go-js-es6c-test () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "es6.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-line 22) (with-mock (mock (dumb-jump-goto-file-line * 5 6)) (should (string= js-file (dumb-jump-go))))))) (ert-deftest dumb-jump-go-js-es6d-test () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "es6.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-line 23) (with-mock (mock (dumb-jump-goto-file-line * 10 2)) (should (string= js-file (dumb-jump-go))))))) (ert-deftest dumb-jump-go-js-es6e-test () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "es6.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-line 24) (with-mock (mock (dumb-jump-goto-file-line * 16 2)) (should (string= js-file (dumb-jump-go))))))) (ert-deftest dumb-jump-go-js-es6-class-test () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "es6.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-line 36) (forward-char 12) (with-mock (mock (dumb-jump-goto-file-line * 28 6)) (should (string= js-file (dumb-jump-go))))))) (ert-deftest dumb-jump-go-sig-def-test () (let ((dumb-jump-aggressive t) (js-file (f-join test-data-dir-proj1 "src" "js" "fake2.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-line 7) (forward-char 35) (with-mock (mock (dumb-jump-goto-file-line * 6 25)) (should (string= js-file (dumb-jump-go))))))) (ert-deftest dumb-jump-go-sig-def2-test () (let ((dumb-jump-aggressive t) (js-file (f-join test-data-dir-proj1 "src" "js" "fake2.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-line 13) (forward-char 35) (with-mock (mock (dumb-jump-goto-file-line * 12 32)) (should (string= js-file (dumb-jump-go))))))) (ert-deftest dumb-jump-go-sig-def3-test () (let ((dumb-jump-aggressive t) (js-file (f-join test-data-dir-proj1 "src" "js" "fake2.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-line 20) (forward-char 35) (with-mock (mock (dumb-jump-goto-file-line * 19 32)) (should (string= js-file (dumb-jump-go))))))) (ert-deftest dumb-jump-go-var-let-test () (let ((dumb-jump-aggressive t) (el-file (f-join test-data-dir-elisp "fake2.el"))) (with-current-buffer (find-file-noselect el-file t) (goto-char (point-min)) (forward-line 13) (forward-char 33) (with-mock (mock (dumb-jump-goto-file-line * 11 10)) (should (string= el-file (dumb-jump-go))))))) (ert-deftest dumb-jump-go-var-let-repeat-test () (let ((dumb-jump-aggressive t) (el-file (f-join test-data-dir-elisp "fake2.el"))) (with-current-buffer (find-file-noselect el-file t) (goto-char (point-min)) (forward-line 21) (forward-char 33) (with-mock (mock (dumb-jump-goto-file-line * 18 10)) (should (string= el-file (dumb-jump-go))))))) (ert-deftest dumb-jump-go-var-arg-test () (let ((dumb-jump-aggressive t) (el-file (f-join test-data-dir-elisp "fake2.el"))) (with-current-buffer (find-file-noselect el-file t) (goto-char (point-min)) (forward-line 4) (forward-char 12) (with-mock (mock (dumb-jump-goto-file-line * 3 27)) (should (string= el-file (dumb-jump-go))))))) (ert-deftest dumb-jump-go-no-result-test () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "fake2.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-line 1) (forward-char 4) (with-mock (mock (dumb-jump-message "'%s' %s %s declaration not found." "nothing" * *)) (dumb-jump-go))))) (ert-deftest dumb-jump-go-no-result-force-grep-test () (let ((dumb-jump-force-grep t) (js-file (f-join test-data-dir-proj1 "src" "js" "fake2.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-line 1) (forward-char 4) (with-mock (mock (dumb-jump-message "'%s' %s %s declaration not found." "nothing" * *)) (dumb-jump-go))))) (ert-deftest dumb-jump-go-no-rules-test () (let ((txt-file (f-join test-data-dir-proj1 "src" "js" "nocode.txt"))) (with-current-buffer (find-file-noselect txt-file t) (goto-char (point-min)) (with-mock (mock (dumb-jump-message "Could not find rules for '%s'." ".txt file")) (dumb-jump-go))))) (ert-deftest dumb-jump-go-too-long-test () (let ((txt-file (f-join test-data-dir-proj1 "src" "js" "nocode.txt")) (dumb-jump-max-find-time 0.2)) (with-current-buffer (find-file-noselect txt-file t) (goto-char (point-min)) (noflet ((dumb-jump-fetch-file-results (&optional prompt) (sleep-for 0 300) '())) (with-mock (mock (dumb-jump-message "Took over %ss to find '%s'. Please install ag or rg, or add a .dumbjump file to '%s' with path exclusions" * * *)) (dumb-jump-go)))))) (ert-deftest dumb-jump-message-handle-results-test () (let ((dumb-jump-aggressive t) (results '((:path "src/file.js" :line 62 :context "var isNow = true" :diff 7 :target "isNow") (:path "src/file.js" :line 69 :context "isNow = false" :diff 0 :target "isNow")))) (with-mock (mock (dumb-jump-goto-file-line "src/file.js" 62 4)) (dumb-jump-handle-results results "src/file.js" "/code/redux" "" "isNow" nil nil)))) (ert-deftest dumb-jump-message-handle-results-choices-test () (let ((results '((:path "src/file2.js" :line 62 :context "var isNow = true" :diff 7 :target "isNow") (:path "src/file2.js" :line 63 :context "var isNow = true" :diff 7 :target "isNow") (:path "src/file2.js" :line 69 :context "isNow = false" :diff 0 :target "isNow")))) (with-mock (mock (dumb-jump-prompt-user-for-choice "/code/redux" *)) (dumb-jump-handle-results results "src/file.js" "/code/redux" "" "isNow" nil nil)))) (ert-deftest dumb-jump-grep-installed?-bsd-test () (let ((dumb-jump--grep-installed? 'unset)) (with-mock (mock (shell-command-to-string *) => "grep (BSD grep) 2.5.1-FreeBSD\n" :times 1) (should (eq (dumb-jump-grep-installed?) 'bsd))) ;; confirm memoization of the previous result (should (eq (dumb-jump-grep-installed?) 'bsd)))) (ert-deftest dumb-jump-grep-installed?-gnu-test () (let ((dumb-jump--grep-installed? 'unset)) (with-mock (mock (shell-command-to-string *) => "grep (GNU grep) 2.4.2\n" :times 1) (should (eq (dumb-jump-grep-installed?) 'gnu)) ;; confirm memoization of the previous result (should (eq (dumb-jump-grep-installed?) 'gnu))))) (ert-deftest dumb-jump-ag-installed?-test () (let ((dumb-jump--ag-installed? 'unset)) (with-mock (mock (shell-command-to-string *) => "ag version 0.33.0\n" :times 1) (should (eq (dumb-jump-ag-installed?) t)) ;; confirm memoization of the previous result (should (eq (dumb-jump-ag-installed?) t))))) (ert-deftest dumb-jump-git-grep-plus-ag-installed?-test () (let ((dumb-jump--git-grep-plus-ag-installed? 'unset) (dumb-jump--ag-installed? 'unset) (dumb-jump--git-grep-installed? 'unset)) (with-mock ; this isn't ideal but combining the ag and git grep responses but this shouldn't matter in practice with :times 2 (mock (shell-command-to-string *) => "ag version 0.33.0\nfatal: no pattern given\n" :times 2) (should (eq (dumb-jump-git-grep-plus-ag-installed?) t)) ;; confirm memoization of the previous result (should (eq (dumb-jump-git-grep-plus-ag-installed?) t))))) (ert-deftest dumb-jump-rg-installed?-test-no () (let ((dumb-jump--rg-installed? 'unset)) (with-mock (mock (shell-command-to-string *) => "ripgrep 0.3.1\n" :times 1) (should (not (eq (dumb-jump-rg-installed?) t))) ;; confirm memoization of the previous result (should (not (eq (dumb-jump-rg-installed?) t)))))) (ert-deftest dumb-jump-rg-installed?-test-yes () (let ((dumb-jump--rg-installed? 'unset)) (with-mock (mock (shell-command-to-string *) => "ripgrep 0.10.0\n" :times 1) (should (eq (dumb-jump-rg-installed?) t)) ;; confirm memoization of the previous result (should (eq (dumb-jump-rg-installed?) t))))) (ert-deftest dumb-jump-rg-installed?-test-yes2 () (let ((dumb-jump--rg-installed? 'unset)) (with-mock (mock (shell-command-to-string *) => "ripgrep 1.1.0\n" :times 1) (should (eq (dumb-jump-rg-installed?) t)) ;; confirm memoization of the previous result (should (eq (dumb-jump-rg-installed?) t))))) (ert-deftest dumb-jump-git-grep-installed?-test () (let ((dumb-jump--git-grep-installed? 'unset)) (with-mock (mock (shell-command-to-string *) => "fatal: no pattern given\n" :times 1) (should (eq (dumb-jump-git-grep-installed?) t)) ;; confirm memoization of the previous result (should (eq (dumb-jump-git-grep-installed?) t))))) (ert-deftest dumb-jump-go-nogrep-test () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "fake2.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-char 13) (with-mock (mock (dumb-jump-rg-installed?) => nil) (mock (dumb-jump-ag-installed?) => nil) (mock (dumb-jump-git-grep-installed?) => nil) (mock (dumb-jump-grep-installed?) => nil) (mock (dumb-jump-message "Please install ag, rg, git grep or grep!")) (dumb-jump-go))))) (ert-deftest dumb-jump-go-nosymbol-test () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "fake2.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-line 1) (with-mock (mock (dumb-jump-message "No symbol under point.")) (dumb-jump-go))))) (ert-deftest dumb-jump-message-get-results-nogrep-test () (with-mock (mock (dumb-jump-rg-installed?) => nil) (mock (dumb-jump-ag-installed?) => nil) (mock (dumb-jump-git-grep-installed?) => nil) (mock (dumb-jump-grep-installed?) => nil) (let ((results (dumb-jump-get-results))) (should (eq (plist-get results :issue) 'nogrep))))) (ert-deftest dumb-jump-message-result-follow-test () (with-mock (mock (dumb-jump-goto-file-line "src/file.js" 62 4)) (let ((result '(:path "src/file.js" :line 62 :context "var isNow = true" :diff 7 :target "isNow"))) (dumb-jump--result-follow result)))) (ert-deftest dumb-jump-message-result-follow-remote-fullpath-test () (with-mock (mock (dumb-jump-goto-file-line * * *)) (mock (file-remote-p *) => "/ssh:user@1.2.3.4#5678:") (let ((result '(:path "/usr/src/file.js" :line 62 :context "var isNow = true" :diff 7 :target "isNow"))) (should (string= (dumb-jump--result-follow result) "/ssh:user@1.2.3.4#5678:/usr/src/file.js"))))) (ert-deftest dumb-jump-message-result-follow-remote-relative-test () (with-mock (mock (dumb-jump-goto-file-line * * *)) (mock (file-remote-p *) => "/ssh:user@1.2.3.4#5678:") (let ((result '(:path "here/is/file.js" :line 62 :context "var isNow = true" :diff 7 :target "isNow")) (default-directory "/ssh:user@1.2.3.4#5678:/path/to/default-directory/")) (should (string= (dumb-jump--result-follow result) "/ssh:user@1.2.3.4#5678:/path/to/default-directory/here/is/file.js"))))) (ert-deftest dumb-jump-message-result-follow-tooltip-test () (with-mock (mock (popup-tip "/file.js:62: var isNow = true")) (let ((result '(:path "src/file.js" :line 62 :context "var isNow = true" :diff 7 :target "isNow"))) (dumb-jump--result-follow result t "src")))) (ert-deftest dumb-jump-populate-regexes-grep-test () (should (equal (dumb-jump-populate-regexes "testvar" '("JJJ\\s*=\\s*") 'grep) '("testvar\\s*=\\s*"))) (should (equal (dumb-jump-populate-regexes "$testvar" '("JJJ\\s*=\\s*") 'grep) '("\\$testvar\\s*=\\s*")))) (ert-deftest dumb-jump-populate-regexes-ag-test () (should (equal (dumb-jump-populate-regexes "testvar" '("JJJ\\s*=\\s*") 'ag) '("testvar\\s*=\\s*"))) (should (equal (dumb-jump-populate-regexes "$testvar" '("JJJ\\s*=\\s*") 'ag) '("\\$testvar\\s*=\\s*")))) (ert-deftest dumb-jump-populate-regexes-git-grep-plus-ag-test () ;; this is effectively the same as `ag even with 'git-grep-plus-ag since that's where the regexes are used in this mode (should (equal (dumb-jump-populate-regexes "testvar" '("JJJ\\s*=\\s*") 'git-grep-plus-ag) '("testvar\\s*=\\s*"))) (should (equal (dumb-jump-populate-regexes "$testvar" '("JJJ\\s*=\\s*") 'git-grep-plus-ag) '("\\$testvar\\s*=\\s*")))) (ert-deftest dumb-jump-populate-regexes-rg-test () (should (equal (dumb-jump-populate-regexes "testvar" '("JJJ\\s*=\\s*") 'rg) '("testvar\\s*=\\s*"))) (should (equal (dumb-jump-populate-regexes "$testvar" '("JJJ\\s*=\\s*") 'rg) '("\\$testvar\\s*=\\s*"))) (should (equal (dumb-jump-populate-regexes "-testvar" '("JJJ\\s*=\\s*") 'rg) '("[-]testvar\\s*=\\s*")))) (ert-deftest dumb-jump-populate-regexes-git-grep-test () (should (equal (dumb-jump-populate-regexes "testvar" '("JJJ\\s*=\\s*") 'git-grep) '("testvar\\s*=\\s*"))) (should (equal (dumb-jump-populate-regexes "$testvar" '("JJJ\\s*=\\s*") 'git-grep) '("\\$testvar\\s*=\\s*")))) (ert-deftest dumb-jump-message-prin1-test () (with-mock (mock (message "%s %s" "(:path \"test\" :line 24)" "3")) (dumb-jump-message-prin1 "%s %s" '(:path "test" :line 24) 3))) (ert-deftest dumb-jump-message-test () (with-mock (mock (message "%s %s" "two" "three")) (dumb-jump-message "%s %s" "two" "three"))) (ert-deftest dumb-jump-concat-command-test () (should (string= (dumb-jump-concat-command " test1 " "test2 " " test3") "test1 test2 test3"))) (ert-deftest dumb-jump-issue-result-test () (let ((result (dumb-jump-issue-result "unsaved"))) (should (eq (plist-get result :issue) 'unsaved)))) (ert-deftest dumb-jump-process-symbol-by-lang-test () (let ((result (dumb-jump-process-symbol-by-lang "elisp" "somefunc")) (result2 (dumb-jump-process-symbol-by-lang "clojure" "myns/myfunc")) (result3 (dumb-jump-process-symbol-by-lang "ruby" ":myrubyfunc")) (result3b (dumb-jump-process-symbol-by-lang "ruby" "Health::Checks::QueueGrowth")) (result3c (dumb-jump-process-symbol-by-lang "ruby" "::Health")) (result4 (dumb-jump-process-symbol-by-lang "systemverilog" "`myvlfunc"))) (should (string= result "somefunc")) (should (string= result2 "myfunc")) (should (string= result3 "myrubyfunc")) (should (string= result3b "QueueGrowth")) (should (string= result3c "Health")) (should (string= result4 "myvlfunc")))) (ert-deftest dumb-jump--result-follow-test () (let* ((data '(:path "/usr/blah/test2.txt" :line 52 :context "var thing = function()" :target "a"))) (with-mock (mock (dumb-jump-goto-file-line "/usr/blah/test2.txt" 52 1)) (dumb-jump--result-follow data nil "/usr/blah")))) (ert-deftest dumb-jump-find-start-pos-test () (let ((cur-pos 9) (line "event event") (word "event")) (should (= (dumb-jump-find-start-pos line word cur-pos) 6)))) (ert-deftest dumb-jump-go-include-lib-test () (let ((el-file (f-join test-data-dir-elisp "fake2.el")) (lib-file (f-join test-data-dir-elisp "../fake-library/lib.el"))) (with-current-buffer (find-file-noselect el-file t) (goto-char (point-min)) (forward-line 23) (forward-char 3) (with-mock (mock (dumb-jump-goto-file-line * 4 7)) (should (string= (dumb-jump-go) lib-file)))))) (ert-deftest dumb-jump-parse-response-line-test () (let ((t1 (dumb-jump-parse-response-line "/opt/test/foo.js:44: var test = 12;" "/opt/test/blah.js")) (t1b (dumb-jump-parse-response-line "/path/to/file.f90:1701: subroutine test(foo)" "/path/to/file2.f90")) (t2 (dumb-jump-parse-response-line "47: var test = 13;" "/opt/test/blah.js")) (t3 (dumb-jump-parse-response-line "c:\\Users\\test\\foo.js:1: var test = 14;" "c:\\Users\\test\\foo.js")) (t4 (dumb-jump-parse-response-line "c:\\Users\\test\\foo2.js:2:test = {a:1,b:1};" "c:\\Users\\test\\foo.js")) (t5 (dumb-jump-parse-response-line "/opt/test/foo1.js:41: var test = {c:3, d: 4};" "/opt/test/b2.js"))) ;; normal (should (equal t1 '("/opt/test/foo.js" "44" " var test = 12;"))) ;; normal fortran (should (equal t1b '("/path/to/file.f90" "1701" " subroutine test(foo)"))) ;; no file name in response (searched single file) (should (equal t2 '("/opt/test/blah.js" "47" " var test = 13;"))) ;; windows (should (equal t3 '("c:\\Users\\test\\foo.js" "1" " var test = 14;"))) ;; windows w/ extra : (should (equal t4 '("c:\\Users\\test\\foo2.js" "2" "test = {a:1,b:1};"))) ;; normal w/ extra : (should (equal t5 '("/opt/test/foo1.js" "41" " var test = {c:3, d: 4};"))))) (ert-deftest dumb-jump-agtype-test () (should (equal (dumb-jump-get-ag-type-by-language "python") '("python")))) (ert-deftest dumb-jump-rgtype-test () (should (equal (dumb-jump-get-rg-type-by-language "python") '("py")))) (ert-deftest dumb-jump-git-grep-type-test () (should (equal (dumb-jump-get-git-grep-type-by-language "python") '("py")))) ;; react tests (ert-deftest dumb-jump-react-test1 () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "react.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-line 8) (forward-char 2) (with-mock (mock (dumb-jump-goto-file-line * 3 6)) (should (string= js-file (dumb-jump-go))))))) (ert-deftest dumb-jump-react-test2 () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "react.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-line 22) (forward-char 2) (with-mock (mock (dumb-jump-goto-file-line * 13 6)) (should (string= js-file (dumb-jump-go))))))) (ert-deftest dumb-jump-react-test3 () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "react.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-line 27) (forward-char 2) (with-mock (mock (dumb-jump-goto-file-line * 26 6)) (should (string= js-file (dumb-jump-go))))))) (ert-deftest dumb-jump-react-test4 () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "react.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-line 32) (forward-char 7) (with-mock (mock (dumb-jump-goto-file-line * 31 6)) (should (string= js-file (dumb-jump-go))))))) (ert-deftest dumb-jump-react-test5 () (let ((js-file (f-join test-data-dir-proj1 "src" "js" "react.js"))) (with-current-buffer (find-file-noselect js-file t) (goto-char (point-min)) (forward-line 39) (forward-char 2) (with-mock (mock (dumb-jump-goto-file-line * 37 6)) (should (string= js-file (dumb-jump-go))))))) ;; c++ tests (ert-deftest dumb-jump-cpp-test1 () (let ((cpp-file (f-join test-data-dir-proj1 "src" "cpp" "test.cpp"))) (with-current-buffer (find-file-noselect cpp-file t) (goto-char (point-min)) (forward-line 8) (forward-char 14) (with-mock (mock (dumb-jump-goto-file-line * 3 6)) (should (string= cpp-file (dumb-jump-go))))))) (ert-deftest dumb-jump-cpp-test2 () (let ((cpp-file (f-join test-data-dir-proj1 "src" "cpp" "test.cpp"))) (with-current-buffer (find-file-noselect cpp-file t) (goto-char (point-min)) (forward-line 8) (forward-char 9) (with-mock (mock (dumb-jump-goto-file-line * 1 6)) (should (string= cpp-file (dumb-jump-go))))))) (ert-deftest dumb-jump-cpp-issue87 () (let ((cpp-file (f-join test-data-dir-proj1 "src" "cpp" "issue-87.cpp"))) (with-current-buffer (find-file-noselect cpp-file t) (goto-char (point-min)) (forward-line 16) (forward-char 12) (with-mock (mock (dumb-jump-goto-file-line * 6 18)) (should (string= cpp-file (dumb-jump-go))))))) ;; This test verifies that having ".dumbjumpignore" files in the two sub-projects will make it find ;; the "multiproj" folder as project root since it has a ".dumbjump" file. The two sub-projects have ;; a dummy ".git" folder to signify it as a repository that would normally become the root without ;; the ignore file. (ert-deftest dumb-jump-multiproj () (let ((main-file (f-join test-data-dir-multiproj "subproj1" "main.cc")) (header-file (f-join test-data-dir-multiproj "subproj2" "header.h"))) (with-current-buffer (find-file-noselect main-file t) (goto-char (point-min)) (forward-line 3) (forward-char 18) (with-mock (mock (dumb-jump-goto-file-line * 6 6)) (should (string= header-file (dumb-jump-go))))))) ;; This test makes sure that even though there's a local match it will jump to the external file ;; match instead. (ert-deftest dumb-jump-prefer-external () (let ((dumb-jump-aggressive t) (main-file (f-join test-data-dir-proj1 "src" "cpp" "external.cpp")) (header-file (f-join test-data-dir-proj1 "src" "cpp" "external.h"))) (with-current-buffer (find-file-noselect main-file t) (goto-char (point-min)) (forward-line 10) (forward-char 2) (with-mock (mock (dumb-jump-goto-file-line * 4 6)) (should (string= header-file (dumb-jump-go-prefer-external))))))) (ert-deftest dumb-jump-prefer-only-external () (let ((main-file (f-join test-data-dir-multiproj "subproj1" "main.cc")) (header-file (f-join test-data-dir-multiproj "subproj2" "header.h"))) (with-current-buffer (find-file-noselect main-file t) (goto-char (point-min)) (forward-line 3) (forward-char 18) (with-mock (mock (dumb-jump-goto-file-line * 6 6)) (should (string= header-file (dumb-jump-go-prefer-external))))))) (ert-deftest dumb-jump-prefer-external-only-current () (let ((main-file (f-join test-data-dir-proj1 "src" "cpp" "only.cpp"))) (with-current-buffer (find-file-noselect main-file t) (goto-char (point-min)) (forward-line 1) (forward-char 2) (with-mock (mock (dumb-jump-goto-file-line * 6 6)) (should (string= main-file (dumb-jump-go-prefer-external))))))) (ert-deftest dumb-jump-prefer-external-other-window () (let ((dumb-jump-aggressive t) (main-file (f-join test-data-dir-proj1 "src" "cpp" "external.cpp")) (header-file (f-join test-data-dir-proj1 "src" "cpp" "external.h"))) (with-current-buffer (find-file-noselect main-file t) (goto-char (point-min)) (forward-line 10) (forward-char 2) (with-mock (mock (dumb-jump-goto-file-line * 4 6)) (should (string= header-file (dumb-jump-go-prefer-external-other-window))))))) (ert-deftest dumb-jump-filter-no-start-comments () (should (equal '((:context "yield me")) (dumb-jump-filter-no-start-comments '((:context "// filter me out") (:context "yield me")) "c++")))) (ert-deftest dumb-jump-filter-no-start-comments-unknown-language () (should (equal nil (dumb-jump-filter-no-start-comments '() "unknownlanguage")))) (defun generators-valid (pl searcher) (and (eq 8 (length pl)) (functionp (plist-get pl :parse)) (functionp (plist-get pl :generate)) (functionp (plist-get pl :installed)) (eq searcher (plist-get pl :searcher)))) (ert-deftest dumb-jump-generators-by-searcher-git-grep () (let* ((searcher 'git-grep) (gen-funcs (dumb-jump-generators-by-searcher searcher))) (should (generators-valid gen-funcs searcher)))) (ert-deftest dumb-jump-generators-by-searcher-ag () (let* ((searcher 'ag) (gen-funcs (dumb-jump-generators-by-searcher searcher))) (should (generators-valid gen-funcs searcher)))) (ert-deftest dumb-jump-generators-by-searcher-git-grep-plus-ag () (let* ((searcher 'git-grep-plus-ag) (gen-funcs (dumb-jump-generators-by-searcher searcher))) (should (generators-valid gen-funcs searcher)))) (ert-deftest dumb-jump-generators-by-searcher-rg () (let* ((searcher 'rg) (gen-funcs (dumb-jump-generators-by-searcher searcher))) (should (generators-valid gen-funcs searcher)))) (ert-deftest dumb-jump-generators-by-searcher-gnu-grep () (let* ((searcher 'gnu-grep) (gen-funcs (dumb-jump-generators-by-searcher searcher))) (should (generators-valid gen-funcs searcher)))) (ert-deftest dumb-jump-generators-by-searcher-grep () (let* ((searcher 'grep) (gen-funcs (dumb-jump-generators-by-searcher searcher))) (should (generators-valid gen-funcs searcher)))) (defun generator-plist-equal (pl1 pl2) (and (eq (length pl1) (length pl2)) (eq (plist-get pl1 :parse) (plist-get pl2 :parse)) (eq (plist-get pl1 :generate) (plist-get pl2 :generate)) (eq (plist-get pl1 :installed) (plist-get pl2 :installed)) (eq (plist-get pl1 :searcher) (plist-get pl2 :searcher)))) (ert-deftest dumb-jump-pick-grep-variant-force () (let* ((dumb-jump-force-searcher 'grep) (gen-funcs (dumb-jump-generators-by-searcher 'grep)) (variant (dumb-jump-pick-grep-variant))) (should (generator-plist-equal gen-funcs variant)))) (ert-deftest dumb-jump-pick-grep-variant-git-grep-in-git-repo () (let* ((dumb-jump-force-searcher nil) (gen-funcs (dumb-jump-generators-by-searcher 'git-grep)) (variant (dumb-jump-pick-grep-variant (f-expand ".")))) (should (generator-plist-equal gen-funcs variant)))) (ert-deftest dumb-jump-pick-grep-variant-prefer () (let* ((dumb-jump-force-searcher nil) (dumb-jump-prefer-searcher 'grep) (gen-funcs (dumb-jump-generators-by-searcher 'grep)) (variant (dumb-jump-pick-grep-variant))) (should (generator-plist-equal gen-funcs variant)))) (ert-deftest dumb-jump-pick-grep-variant-fallback-ag () (let* ((dumb-jump-force-searcher nil) (dumb-jump-prefer-searcher nil) (gen-funcs (dumb-jump-generators-by-searcher 'ag)) (variant (dumb-jump-pick-grep-variant))) (should (generator-plist-equal gen-funcs variant)))) (ert-deftest dumb-jump-pick-grep-variant-fallback-rg () (let* ((dumb-jump-force-searcher nil) (dumb-jump-prefer-searcher nil) (dumb-jump--ag-installed? nil) (dumb-jump--rg-installed? t) (gen-funcs (dumb-jump-generators-by-searcher 'rg)) (variant (dumb-jump-pick-grep-variant))) (should (generator-plist-equal gen-funcs variant)))) (ert-deftest dumb-jump-pick-grep-variant-fallback-gnu-grep () (let* ((dumb-jump-force-searcher nil) (dumb-jump-prefer-searcher nil) (dumb-jump--ag-installed? nil) (dumb-jump--rg-installed? nil) (dumb-jump--grep-installed? 'gnu) (gen-funcs (dumb-jump-generators-by-searcher 'gnu-grep)) (variant (dumb-jump-pick-grep-variant))) (should (generator-plist-equal gen-funcs variant)))) (ert-deftest dumb-jump-pick-grep-variant-fallback-grep () (let* ((dumb-jump-force-searcher nil) (dumb-jump-prefer-searcher nil) (dumb-jump--ag-installed? nil) (dumb-jump--rg-installed? nil) (dumb-jump--grep-installed? 'bsd) (gen-funcs (dumb-jump-generators-by-searcher 'grep)) (variant (dumb-jump-pick-grep-variant))) (should (generator-plist-equal gen-funcs variant)))) ;; This test makes sure that if the `cur-file' is absolute but results are relative, then it must ;; still find and sort results correctly. (ert-deftest dumb-jump-handle-results-relative-current-file-test () (let ((dumb-jump-aggressive t) (results '((:path "relfile.js" :line 62 :context "var isNow = true" :diff 7 :target "isNow") (:path "src/absfile.js" :line 69 :context "isNow = false" :diff 0 :target "isNow")))) (with-mock (mock (dumb-jump-goto-file-line "relfile.js" 62 4)) (dumb-jump-handle-results results "/code/redux/relfile.js" "/code/redux" "" "isNow" nil nil)))) ;; Make sure it jumps aggressively, i.e. normally. (ert-deftest dumb-jump-handle-results-aggressively-test () (let ((dumb-jump-aggressive t) (results '((:path "relfile.js" :line 62 :context "var isNow = true" :diff 7 :target "isNow") (:path "src/absfile.js" :line 69 :context "isNow = false" :diff 0 :target "isNow")))) (with-mock (mock (dumb-jump-goto-file-line "relfile.js" 62 4)) (dumb-jump-handle-results results "relfile.js" "/code/redux" "" "isNow" nil nil)))) ;; Make sure non-aggressive mode shows choices when more than one possibility. (ert-deftest dumb-jump-handle-results-non-aggressively-test () (let ((dumb-jump-aggressive nil) (results '((:path "relfile.js" :line 62 :context "var isNow = true" :diff 7 :target "isNow") (:path "src/absfile.js" :line 69 :context "isNow = false" :diff 0 :target "isNow")))) (with-mock (mock (dumb-jump-prompt-user-for-choice "/code/redux" *)) (dumb-jump-handle-results results "relfile.js" "/code/redux" "" "isNow" nil nil)))) (ert-deftest dumb-jump-handle-results-non-aggressively-quick-look-test () (let ((dumb-jump-aggressive nil) (results '((:path "relfile.js" :line 62 :context "var isNow = true" :diff 7 :target "isNow") (:path "src/absfile.js" :line 69 :context "isNow = false" :diff 0 :target "isNow")))) (with-mock (mock (popup-menu* '("relfile.js:62: var isNow = true" "src/absfile.js:69: isNow = false")) :times 1) (dumb-jump-handle-results results "relfile.js" "/code/redux" "" "isNow" t nil)))) ;; Make sure it jumps when there's only one possiblity in non-aggressive mode. (ert-deftest dumb-jump-handle-results-non-aggressive-do-jump-test () (let ((dumb-jump-aggressive nil) (results '((:path "relfile.js" :line 62 :context "var isNow = true" :diff 7 :target "isNow")))) (with-mock (mock (dumb-jump-goto-file-line "relfile.js" 62 4)) (dumb-jump-handle-results results "relfile.js" "/code/redux" "" "isNow" nil nil)))) (ert-deftest dumb-jump-shell-command-switch-zsh-test () (let ((shell-file-name "/usr/bin/zsh")) (should (string-equal "-icf" (dumb-jump-shell-command-switch))))) (ert-deftest dumb-jump-shell-command-switch-csh-test () (let ((shell-file-name "/usr/bin/csh")) (should (string-equal "-icf" (dumb-jump-shell-command-switch))))) (ert-deftest dumb-jump-shell-command-switch-tcsh-test () (let ((shell-file-name "/usr/bin/zsh")) (should (string-equal "-icf" (dumb-jump-shell-command-switch))))) (ert-deftest dumb-jump-shell-command-switch-bash-test () (let ((shell-file-name "/usr/bin/bash")) (should (string-equal "-c" (dumb-jump-shell-command-switch))))) (ert-deftest dumb-jump-shell-command-switch-unknown-test () (let ((shell-file-name "/usr/bin/thisshelldoesnotexist")) (should (string-equal shell-command-switch (dumb-jump-shell-command-switch))))) (ert-deftest dumb-jump-go-clojure-question-mark-test () (let ((clj-jump-file (f-join test-data-dir-proj3 "file3.clj")) (clj-to-file (f-join test-data-dir-proj3 "file2.clj"))) (with-current-buffer (find-file-noselect clj-jump-file t) (funcall 'lisp-mode) ;; need a built in lisp mode so `?` is part of a symbol (goto-char (point-min)) (forward-line 2) (forward-char 2) (with-mock (mock (dumb-jump-goto-file-line * 1 6)) (should (string= clj-to-file (dumb-jump-go))))))) (ert-deftest dumb-jump-go-clojure-no-question-mark-test () (let ((clj-jump-file (f-join test-data-dir-proj3 "file3.clj")) (clj-to-file (f-join test-data-dir-proj3 "file1.clj"))) (with-current-buffer (find-file-noselect clj-jump-file t) (funcall 'lisp-mode) ;; need a built in lisp mode so `?` is part of a symbol (goto-char (point-min)) (forward-line 3) (forward-char 2) (with-mock (mock (dumb-jump-goto-file-line * 2 6)) (should (string= clj-to-file (dumb-jump-go))))))) (ert-deftest dumb-jump-go-clojure-no-asterisk-test () (let ((clj-jump-file (f-join test-data-dir-proj3 "file3.clj")) (clj-to-file (f-join test-data-dir-proj3 "file2.clj"))) (with-current-buffer (find-file-noselect clj-jump-file t) (funcall 'lisp-mode) ;; need a built in lisp mode so `?` is part of a symbol (goto-char (point-min)) (forward-line 4) (forward-char 2) (with-mock (mock (dumb-jump-goto-file-line * 4 9)) (should (string= clj-to-file (dumb-jump-go))))))) (ert-deftest dumb-jump-go-clojure-asterisk-test () (let ((clj-jump-file (f-join test-data-dir-proj3 "file3.clj")) (clj-to-file (f-join test-data-dir-proj3 "file1.clj"))) (with-current-buffer (find-file-noselect clj-jump-file t) (funcall 'lisp-mode) ;; need a built in lisp mode so `?` is part of a symbol (goto-char (point-min)) (forward-line 5) (forward-char 2) (with-mock (mock (dumb-jump-goto-file-line * 5 7)) (should (string= clj-to-file (dumb-jump-go))))))) (ert-deftest dumb-jump-format-files-as-ag-arg-test () (let* ((fake-files '("one" "two" "three")) (result (dumb-jump-format-files-as-ag-arg fake-files "path")) (expected "'(path/one|path/two|path/three)'")) (should (string= result expected)))) (ert-deftest dumb-jump-get-git-grep-files-matching-symbol-test () (with-mock (mock (shell-command-to-string "git grep --full-name -F -c symbol path") => "fileA:1\nfileB:2\n") (should (equal (dumb-jump-get-git-grep-files-matching-symbol "symbol" "path") '("fileA" "fileB"))))) (ert-deftest dumb-jump-get-git-grep-files-matching-symbol-as-ag-arg-test () (with-mock (mock (shell-command-to-string "git grep --full-name -F -c symbol path") => "fileA:1\nfileB:2\n") (should (string= (dumb-jump-get-git-grep-files-matching-symbol-as-ag-arg "symbol" "path") "'(path/fileA|path/fileB)'")))) ;;; dumb-jump-0.5.3/test/run-local-in-docker.sh0000755000175000017500000000200613536354050020336 0ustar dogslegdogsleg#!/bin/bash echo "Running dumb-jump tests in all supported versions of emacs via docker" # docker pull jacktasia/dumb-jump-test-runner:v3 to_run=${1:-'current'} all_emacs=(emacs-24.3-travis emacs-24.4-travis emacs-24.5-travis emacs-25.1-travis emacs-25.2-travis emacs-26.1-travis) dj_run_name=dumb-jump-`date +%s` dj_tmp_path=/tmp/$dj_run_name if [[ $to_run == 'all' ]]; then emacs_versions=${all_emacs[*]} fi if [[ $to_run == 'current' ]]; then emacs_versions=("emacs-26.1-travis") fi cp -r . $dj_tmp_path for emacs_version in $emacs_versions do dj_log_name="/tmp/${dj_run_name}-${emacs_version}.log" echo "Running $emacs_version..." echo " Check $dj_log_name for output." docker run -e EVM_EMACS=$emacs_version -v $dj_tmp_path:/home/travis/dumb-jump -it jacktasia/dumb-jump-test-runner:v3 > $dj_log_name 2>&1 if [[ $? != 0 ]]; then echo "$emacs_version tests failed!" echo "See $dj_log_name for more details" exit 1 fi echo " $emacs_version success!" done dumb-jump-0.5.3/test/circleci-runner.sh0000644000175000017500000000044213536354050017654 0ustar dogslegdogsleg#!/bin/bash source /root/.bashrc evm install $EVM_EMACS --use --skip # should be a noop when cache PATH="/root/.evm/bin:$PATH" export PATH="/root/.cask/bin:$PATH" rg --version ag --version grep --version emacs --version git --version pwd cd /home/travis/dumb-jump cask install make test dumb-jump-0.5.3/test/ert_runner_test.go0000644000175000017500000000156513536354050020014 0ustar dogslegdogslegpackage main import ( "testing" ) func TestExtractRunCount(t *testing.T) { s := "Ran 19 tests, 19 results as expected" result := extractRunCount(s) expected := 19 if result != expected { t.Error("extractRunCount failed, got:", result, ", expected: ", expected) } } func TestParseTestNames(t *testing.T) { s := " passed 1/18 dumb-jump-get-git-grep-files-matching-symbol-test\npassed 2/18 dumb-jump-go-clojure-asterisk-test\npassed 3/18 dumb-jump-go-clojure-no-asterisk-test\npassed" result := parseTestNames(s) expected := []string{"dumb-jump-get-git-grep-files-matching-symbol-test", "dumb-jump-go-clojure-asterisk-test", "dumb-jump-go-clojure-no-asterisk-test"} if len(result) != len(expected) || result[0] != expected[0] || result[1] != expected[1] || result[2] != expected[2] { t.Error("parseTestNames failed, got:", result, ", expected: ", expected) } } dumb-jump-0.5.3/test/test-helper.el0000644000175000017500000000043613536354050017015 0ustar dogslegdogsleg (require 'ert) (require 'undercover) (undercover "*.el" (:exclude "*-test.el") (:send-report t) (:report-file "/tmp/undercover-report.json")) (require 'dumb-jump) (require 'el-mock) (eval-when-compile (require 'cl)) ;;; test-helper.el ends here dumb-jump-0.5.3/test/data/0000755000175000017500000000000013536354050015145 5ustar dogslegdogslegdumb-jump-0.5.3/test/data/proj3-clj/0000755000175000017500000000000013536354050016750 5ustar dogslegdogslegdumb-jump-0.5.3/test/data/proj3-clj/.dumbjump0000644000175000017500000000000013536354050020562 0ustar dogslegdogslegdumb-jump-0.5.3/test/data/proj3-clj/file1.clj0000644000175000017500000000007713536354050020446 0ustar dogslegdogsleg (defn blah (print "hello")) (defn- foo* (print "hello")) dumb-jump-0.5.3/test/data/proj3-clj/file3.clj0000644000175000017500000000003613536354050020443 0ustar dogslegdogsleg (blah?) (blah) (foo) (foo*) dumb-jump-0.5.3/test/data/proj3-clj/file2.clj0000644000175000017500000000010513536354050020437 0ustar dogslegdogsleg(defn blah? (print "hello2")) (deftask foo [] (print "hello2")) dumb-jump-0.5.3/test/data/proj1/0000755000175000017500000000000013536354050016200 5ustar dogslegdogslegdumb-jump-0.5.3/test/data/proj1/ignored/0000755000175000017500000000000013536354050017627 5ustar dogslegdogslegdumb-jump-0.5.3/test/data/proj1/ignored/fake.js0000644000175000017500000000010313536354050021065 0ustar dogslegdogsleg'use strict'; function doSomeStuff() { alert('we did it!'); } dumb-jump-0.5.3/test/data/proj1/.dumbjump-lang0000644000175000017500000000004513536354050020742 0ustar dogslegdogsleg+whatever -whatever2 language pythondumb-jump-0.5.3/test/data/proj1/.dumbjump0000644000175000017500000000002313536354050020017 0ustar dogslegdogsleg-ignored -/ignored2dumb-jump-0.5.3/test/data/proj1/.dumbjump-include0000644000175000017500000000004413536354050021443 0ustar dogslegdogsleg+../fake-library +/etc/var/some/codedumb-jump-0.5.3/test/data/proj1/src/0000755000175000017500000000000013536354050016767 5ustar dogslegdogslegdumb-jump-0.5.3/test/data/proj1/src/js/0000755000175000017500000000000013536354050017403 5ustar dogslegdogslegdumb-jump-0.5.3/test/data/proj1/src/js/react.js0000644000175000017500000000136013536354050021037 0ustar dogslegdogsleg // normal react es6 class component class MyComponent extends Component { render() { return

My Component!

; } } {children} // exotic react component const MyComponent3 = ({ prop1, prop2, }, { context1, context2, }) => (
{prop1} {context1}
); {children3} // stateless component mycomponent2 const MyComponent2 = props =>
{props.text}
{children2} // inline jsx const mySomething =
...
;
{mySomething}
// decorated Component class MyBaseComponent extends Component ..... const DecoratedComponent = Radium(Rezponsive(MyBaseComponent); export default DecoratedComponent dumb-jump-0.5.3/test/data/proj1/src/js/es6.js0000644000175000017500000000064213536354050020440 0ustar dogslegdogsleglet funcName1 = (foo) => "bar"; const funcName2 = (foo) => "bar"; const funcName3 = (foo) => { return "bar"; } const obj = { funcName4 : (foo) => { return "bar"; } } const obj = { funcName5(foo) { return "bar"; } } funcName1(); funcName2(); funcName3(); funcName4(); funcName5(); class MyClass { constructor(a, b) { this.a = a; this.b = b; } } var b = new MyClass(); dumb-jump-0.5.3/test/data/proj1/src/js/nocode.txt0000644000175000017500000000003413536354050021410 0ustar dogslegdogslegthis is a file with no code dumb-jump-0.5.3/test/data/proj1/src/js/fake.js0000644000175000017500000000052213536354050020646 0ustar dogslegdogsleg'use strict'; function doSomeStuff() { alert('we did it!'); } $scope.resized = function(path, w, h) { path = path.replace(':8081', ':9090'); if (path.indexOf('.gif') !== -1) { return path; } return $scope.resizeHost + encodeURIComponent(path) + '?w=' + w + '&h=' + h; }; someFunc(); // console.log(backgroundColor); dumb-jump-0.5.3/test/data/proj1/src/js/fake2.js0000644000175000017500000000132613536354050020733 0ustar dogslegdogslegconsole.log(doSomeStuff()); // nothing var someVar = 13, someVar2 = 14; function workWithSomeVar(someVar) { var someVar2 = {a: 1, b: 2}; console.log('someVar is', someVar); console.log('someVar is', someVar2); } function workWithSomeVar(blarg, someVar) { var someVar2 = 13; console.log('someVar is', someVar); console.log('someVar is', someVar2); } function workWithSomeVar(blarg, someVar, blah3) { var someVar2 = 13; console.log('someVar is', someVar); console.log('someVar is', someVar2); } var backgroundColor = '#222'; if (isActive) { backgroundColor = 'darkgreen'; } else if (canDrop) { backgroundColor = 'darkkhaki'; } console.log(backgroundColor); dumb-jump-0.5.3/test/data/proj1/src/js/fake3.js0000644000175000017500000000016413536354050020733 0ustar dogslegdogslegvar someFunc = function() { console.log('some func a'); }; function someFunc() { console.log('some func b'); } dumb-jump-0.5.3/test/data/proj1/src/cpp/0000755000175000017500000000000013536354050017551 5ustar dogslegdogslegdumb-jump-0.5.3/test/data/proj1/src/cpp/external.cpp0000644000175000017500000000021613536354050022076 0ustar dogslegdogsleg#include "external.h" int ExternalThing() { return 0; } class ExternalThing { }; int main(int argc, char **argv) { ExternalThing et; } dumb-jump-0.5.3/test/data/proj1/src/cpp/only.cpp0000644000175000017500000000020713536354050021235 0ustar dogslegdogslegint main(int argc, char **argv) { IAmOnlyHere iaoh; } // Place after just to have a test with a ":diff < 0". class IAmOnlyHere { }; dumb-jump-0.5.3/test/data/proj1/src/cpp/external.h0000644000175000017500000000022613536354050021544 0ustar dogslegdogsleg#ifndef PROJ1_SRC_CPP_EXTERNAL_H #define PROJ1_SRC_CPP_EXTERNAL_H class ExternalThing { public: void foo(); }; #endif // PROJ1_SRC_CPP_EXTERNAL_H dumb-jump-0.5.3/test/data/proj1/src/cpp/test.cpp0000644000175000017500000000014713536354050021236 0ustar dogslegdogslegclass Foo { public: int bar(int val) { return val; } }; int main() { return Foo::bar(42); } dumb-jump-0.5.3/test/data/proj1/src/cpp/issue-87.cpp0000644000175000017500000000154013536354050021641 0ustar dogslegdogsleg// -------------------------------------------------------------------------- // CAdaptiveCaching::_processPixelOverlap() // -------------------------------------------------------------------------- template int CAdaptiveCaching::_processPixelOverlap(const CHitInfoLite &hit, const float *directIllum, const float thresholdElevation, TContribArray &carray, CRCOctree *octree) { } if(_adaptive && !pixContribs.ProcessPixelDone()) { _extrapolateRadianceValid(pixContribs,hit); _processPixelOverlap(hit,hit.directIllum.data(), 1/*thrElevImage[idx]*/,pixContribs,GetOctree()); pixContribs.SetProcessPixelDone(); } dumb-jump-0.5.3/test/data/proj1/.dumbjump-blank0000644000175000017500000000000013536354050021077 0ustar dogslegdogslegdumb-jump-0.5.3/test/data/fake-library/0000755000175000017500000000000013536354050017515 5ustar dogslegdogslegdumb-jump-0.5.3/test/data/fake-library/lib.el0000644000175000017500000000015213536354050020603 0ustar dogslegdogsleg ;; for a fake lib +path in config file (defun func-in-lib (arg1 arg2) (message "%s is %s" arg1 arg2)) dumb-jump-0.5.3/test/data/proj2-elisp/0000755000175000017500000000000013536354050017313 5ustar dogslegdogslegdumb-jump-0.5.3/test/data/proj2-elisp/fake.el0000644000175000017500000000024713536354050020546 0ustar dogslegdogsleg;;; fake.el --- fake file for testing dumb-jump (defun some-fake-function (blah) (message "heyyy")) (defun another-fake-function (blah) (message "heyyy again")) dumb-jump-0.5.3/test/data/proj2-elisp/.dumbjump0000644000175000017500000000002113536354050021130 0ustar dogslegdogsleg+../fake-library dumb-jump-0.5.3/test/data/proj2-elisp/fake2.el0000644000175000017500000000103413536354050020623 0ustar dogslegdogsleg;; a totally fake file for tests (defun when-var-is-in-sig (my-arg2) (let* ((my-arg 22)) (if (> my-arg2 my-arg) "" (something-else my-arg2)))) (defun when-var-is-in-let () (let* ((my-arg 11) (my-arg2 22)) (if (> my-arg2 my-arg) "" (when-var-is-in-sig my-arg2)))) (defun when-var-is-in-let-repeat () (let* ((my-arg 11) (my-arg2 22) (their-my-arg2 22)) (if (> my-arg2 my-arg) "" (when-var-is-in-sig my-arg2)))) (func-in-lib 1 2) ;; end of file dumb-jump-0.5.3/test/data/multiproj/0000755000175000017500000000000013536354050017172 5ustar dogslegdogslegdumb-jump-0.5.3/test/data/multiproj/.dumbjump0000644000175000017500000000000013536354050021004 0ustar dogslegdogslegdumb-jump-0.5.3/test/data/multiproj/subproj1/0000755000175000017500000000000013536354050020737 5ustar dogslegdogslegdumb-jump-0.5.3/test/data/multiproj/subproj1/main.cc0000644000175000017500000000014013536354050022165 0ustar dogslegdogsleg#include "../subproj2/header.h" int main(int argc, char **argv) { return Awesome::magic(); } dumb-jump-0.5.3/test/data/multiproj/subproj1/.dumbjumpignore0000644000175000017500000000000013536354050023755 0ustar dogslegdogslegdumb-jump-0.5.3/test/data/multiproj/subproj2/0000755000175000017500000000000013536354050020740 5ustar dogslegdogslegdumb-jump-0.5.3/test/data/multiproj/subproj2/header.h0000644000175000017500000000030613536354050022340 0ustar dogslegdogsleg#ifndef TEST_DATA_MULTIPROJ_SUBPROJ2_HEADER_H #define TEST_DATA_MULTIPROJ_SUBPROJ2_HEADER_H class Awesome { public: int magic() { return 42; } }; #endif // TEST_DATA_MULTIPROJ_SUBPROJ2_HEADER_H dumb-jump-0.5.3/test/data/multiproj/subproj2/.dumbjumpignore0000644000175000017500000000000013536354050023756 0ustar dogslegdogslegdumb-jump-0.5.3/test/ert_runner.go0000644000175000017500000001462513536354050016756 0ustar dogslegdogslegpackage main import ( "flag" "fmt" "io/ioutil" "os" "os/exec" "regexp" "strconv" "strings" "time" ) var ( RegexParsePassedName = regexp.MustCompile("passed\\s+[0-9]+/[0-9]+\\s+(.+)\\b") ) type arrayFlags []string func (i *arrayFlags) String() string { return "my string representation" } func (i *arrayFlags) Set(value string) error { *i = append(*i, value) return nil } var argPatterns arrayFlags var serialPatterns arrayFlags // TODO: this should run inside of a docker container with all the dependencies set! // TODO: make helper that will download from this repo as raw and and run `go run ert-test-runner.go my-tests.el --slow '.*-ag-.*' // TODO: mode where it tries to find the fastest test groups and then saves to a dot file func main() { fmt.Println("ert-test-runner!") fmt.Println("----------------") flag.Var(&argPatterns, "p", "Custom patterns to send the ert-runner as their own concurrent job") flag.Var(&serialPatterns, "s", "Custom patterns to send to the ert-runner to serially before the concurrent jobs run.") flag.Parse() args := flag.Args() if len(args) < 1 { fmt.Println("Expects one postional argument of ert test file!") os.Exit(1) } fileName := args[0] fmt.Println("Parsing", fileName, "for tests...") dat, err := ioutil.ReadFile(fileName) if err != nil { fmt.Println("Could not open", fileName) os.Exit(1) } contents := string(dat) //standalones := []string{"dumb-jump-test-ag-rules-test"} standalones := serialPatterns //[]string{} groups := argPatterns //[]string{".*-ag-.*", ".*-rg-.*"} r, err := regexp.Compile("[ ;]*\\(ert-deftest\\s([^\\s]+)\\s") matches := r.FindAllStringSubmatch(contents, -1) defs := []string{} for _, match := range matches { wholeMatch := strings.TrimSpace(match[0]) testName := strings.TrimSpace(match[1]) if wholeMatch[0:1] != ";" { defs = append(defs, testName) } } totalTests := len(defs) // split out passsed `standalones` and `groups` from `remainders` (which are chunked) remainders := []string{} remainders = append(remainders, defs...) for _, standalone := range standalones { remainders, _ = takeMatches(remainders, standalone) } testGroups := [][]string{} var testGroup []string for _, group := range groups { remainders, testGroup = takeMatches(remainders, group) //fmt.Println("Removed from remainders based on X: ", testGroup) testGroups = append(testGroups, testGroup) } fmt.Println("------------") // go through and chunk the remainders into groups toRun := []string{} toRun = append(toRun, groups...) chunked := chunk(remainders, 30) for _, c := range chunked { toRun = append(toRun, makePattern(c)) } // start running start := time.Now() ranTests := []string{} for _, standalone := range standalones { ranTests = append(ranTests, parseTestNames(runErtTest(standalone))...) } ranTests = append(ranTests, runErtTestsConcurrently(toRun)...) missing := findMissing(ranTests, defs) end := time.Now() // DONE, report fmt.Println("------------") totalRanTests := totalTests - len(missing) if len(missing) > 0 { fmt.Println("Did not run!", missing) } fmt.Println("Done. Ran", totalRanTests, "tests of", totalTests, " and took", end.Sub(start)) } func findMissing(ranTests []string, defs []string) []string { missing := []string{} for _, testName := range defs { if !contains(ranTests, testName) { missing = append(missing, testName) } } return missing } func contains(s []string, e string) bool { for _, a := range s { if a == e { return true } } return false } func makePattern(items []string) string { return strings.Replace(("\\(" + strings.Join(items, "\\|") + "\\)"), "?", ".", -1) } func takeMatches(items []string, regex string) ([]string, []string) { r, err := regexp.Compile(regex) if err != nil { // TODO: friendly error message that input is bad panic(err) } result := []string{} matches := []string{} for _, m := range items { if !r.MatchString(m) { result = append(result, m) } else { matches = append(matches, m) } } return result, matches } func worker(id int, jobs <-chan string, results chan<- string) { for j := range jobs { //fmt.Println("worker", id, "started job", j) start := time.Now() result := runErtTest(string(j)) end := time.Now() ranTests := parseTestNames(result) fmt.Println("Worker", id, "ran", len(ranTests), "tests in", end.Sub(start)) //fmt.Println("id", id, "chunk finished", "size", len(j), "took", end.Sub(start)) // fmt.Println("worker", id, "finished job", j) results <- result } } func chunk(logs []string, chunkSize int) [][]string { var divided [][]string for i := 0; i < len(logs); i += chunkSize { end := i + chunkSize if end > len(logs) { end = len(logs) } divided = append(divided, logs[i:end]) } return divided } func runErtTestsConcurrently(ertTests []string) []string { testCount := len(ertTests) jobs := make(chan string, testCount) results := make(chan string, testCount) // TODO: base off cpu count? // spin up workers workerCount := 4 for w := 1; w <= workerCount; w++ { go worker(w, jobs, results) } // send the `jobs` and `close` that // channel to indicate that's all the work we have. for j := 0; j < testCount; j++ { jobs <- ertTests[j] } close(jobs) fmt.Println("Waiting for jobs to complete....") // collect results ranTests := []string{} for a := 1; a <= testCount; a++ { ranTests = append(ranTests, parseTestNames(<-results)...) } return ranTests } // TODO: unused func extractRunCount(output string) int { r := regexp.MustCompile("Ran ([0-9]+) tests, ([0-9]+) results as expected") rawMatches := r.FindAllStringSubmatch(output, -1) if len(rawMatches) != 1 { return -1 } matches := rawMatches[0] if matches[1] != matches[2] { return -1 } i, _ := strconv.Atoi(string(matches[1])) return i } func parseTestNames(output string) []string { rawMatches := RegexParsePassedName.FindAllStringSubmatch(output, -1) results := []string{} for _, rm := range rawMatches { results = append(results, strings.Replace(rm[1], "\\?", "?", -1)) } return results } func runErtTest(testName string) string { // cmdPrefix := "cask exec ert-runner -p " // fmt.Println("Running " + testName) // TODO: remove dependency on cask/ert-runner cmd := "cask" args := []string{"exec", "ert-runner", "-p", testName} out, err := exec.Command(cmd, args...).Output() if err != nil { fmt.Println("~~~~ ERRROR", testName, err, "--", string(out)) } return string(out) } dumb-jump-0.5.3/test/Dockerfile0000644000175000017500000000261413536354050016231 0ustar dogslegdogslegFROM ubuntu:14.04 RUN apt-get -qq update || ls RUN apt-get install -y --no-install-recommends software-properties-common curl && rm -f /var/cache/apt/archives/*.deb /var/cache/apt/archives/partial/*.deb /var/cache/apt/*.bin || true RUN add-apt-repository ppa:gekkio/ag -y RUN add-apt-repository ppa:git-core/ppa -y RUN apt-get -qq update || ls RUN apt-get install -y --no-install-recommends silversearcher-ag git python ruby && rm -f /var/cache/apt/archives/*.deb /var/cache/apt/archives/partial/*.deb /var/cache/apt/*.bin || true RUN curl -LO https://github.com/BurntSushi/ripgrep/releases/download/0.10.0/ripgrep_0.10.0_amd64.deb && sudo dpkg -i ripgrep_0.10.0_amd64.deb && rm ripgrep_0.10.0_amd64.deb && rm -f /var/cache/apt/archives/*.deb /var/cache/apt/archives/partial/*.deb /var/cache/apt/*.bin || true ENV PATH="/root/.evm/bin:$PATH" ENV PATH="/root/.cask/bin:$PATH" ENV EVM_EMACS=emacs-24.3-travis RUN git clone https://github.com/rejeep/evm.git /root/.evm RUN evm config path /tmp RUN evm install emacs-24.3-travis --use --skip RUN curl -fsSkL https://raw.github.com/cask/cask/master/go | python RUN evm install $EVM_EMACS --use --skip RUN apt-get install -y --no-install-recommends make libgtk2.0-0 libsm-dev && rm -f /var/cache/apt/archives/*.deb /var/cache/apt/archives/partial/*.deb /var/cache/apt/*.bin || true ADD test/circleci-runner.sh circleci-runner.sh ENTRYPOINT ["bash", "circleci-runner.sh"] dumb-jump-0.5.3/dumb-jump.el0000644000175000017500000037267113536354050015517 0ustar dogslegdogsleg;;; dumb-jump.el --- jump to definition for 40+ languages without configuration. -*- lexical-binding: t; -*- ;; Copyright (C) 2015-2019 jack angers ;; Author: jack angers and contributors ;; Version: 0.5.3 ;; Package-Requires: ((emacs "24.3") (f "0.20.0") (s "1.11.0") (dash "2.9.0") (popup "0.5.3")) ;; Keywords: programming ;; Dumb Jump is free software; you can redistribute it and/or modify it ;; under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 3, or (at your option) ;; any later version. ;; ;; Dumb Jump is distributed in the hope that it will be useful, but WITHOUT ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY ;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public ;; License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with Dumb Jump. If not, see http://www.gnu.org/licenses. ;;; Commentary: ;; Dumb Jump is an Emacs "jump to definition" package with support for 40+ programming languages that favors ;; "just working" over speed or accuracy. This means minimal -- and ideally zero -- configuration with absolutely ;; no stored indexes (TAGS) or persistent background processes. Dumb Jump performs best with The Silver Searcher ;; `ag` or ripgrep `rg` installed. Dumb Jump requires at least GNU Emacs 24.3. ;;; Code: (require 'etags) (require 'f) (require 's) (require 'dash) (require 'popup) (defgroup dumb-jump nil "Easily jump to project function and variable definitions" :group 'tools :group 'convenience) ;;;###autoload (defvar dumb-jump-mode-map (let ((map (make-sparse-keymap))) (define-key map (kbd "C-M-g") 'dumb-jump-go) (define-key map (kbd "C-M-p") 'dumb-jump-back) (define-key map (kbd "C-M-q") 'dumb-jump-quick-look) map)) (defcustom dumb-jump-window 'current "Which window to use when jumping. Valid options are 'current (default) or 'other." :group 'dumb-jump :type '(choice (const :tag "Current window" current) (const :tag "Other window" other))) (defcustom dumb-jump-use-visible-window t "When true will jump in a visible window if that window already has the file open." :group 'dumb-jump :type 'boolean) (defcustom dumb-jump-selector 'popup "Which selector to use when there is multiple choices. `ivy` and `helm' are also supported." :group 'dumb-jump :type '(choice (const :tag "Popup" popup) (const :tag "Helm" helm) (const :tag "Ivy" ivy))) (defcustom dumb-jump-ivy-jump-to-selected-function #'dumb-jump-ivy-jump-to-selected "Prompts user for a choice using ivy then dumb-jump to that choice.") (defcustom dumb-jump-prefer-searcher nil "The preferred searcher to use 'ag, 'rg, 'git-grep, 'gnu-grep,or 'grep. If nil then the most optimal searcher will be chosen at runtime." :group 'dumb-jump :type '(choice (const :tag "Best Available" nil) (const :tag "ag" ag) (const :tag "rg" rg) (const :tag "grep" gnu-grep) (const :tag "git grep" git-grep) (const :tag "git grep + ag" git-grep-plus-ag))) (defcustom dumb-jump-force-searcher nil "Forcibly use searcher: 'ag, 'rg, 'git-grep, 'gnu-grep, or 'grep. Set to nil to not force anything and use `dumb-jump-prefer-searcher' or most optimal searcher." :group 'dumb-jump :type '(choice (const :tag "Best Available" nil) (const :tag "ag" ag) (const :tag "rg" rg) (const :tag "grep" gnu-grep) (const :tag "git grep" git-grep) (const :tag "git grep + ag" git-grep-plus-ag))) (defcustom dumb-jump-grep-prefix "LANG=C" "Prefix to grep command. Seemingly makes it faster for pure text." :group 'dumb-jump :type 'string) (defcustom dumb-jump-grep-cmd "grep" "The path to grep. By default assumes it is in path." :group 'dumb-jump :type 'string) (defcustom dumb-jump-ag-cmd "ag" "The the path to the silver searcher. By default assumes it is in path. If not found fallbacks to grep." :group 'dumb-jump :type 'string) (defcustom dumb-jump-rg-cmd "rg" "The the path to ripgrep. By default assumes it is in path. If not found fallbacks to grep." :group 'dumb-jump :type 'string) (defcustom dumb-jump-git-grep-cmd "git grep" "The the path to git grep. By default assumes it is in path. If not found fallbacks to grep." :group 'dumb-jump :type 'string) (defcustom dumb-jump-ag-word-boundary "(?![a-zA-Z0-9\\?\\*-])" "`\\b` thinks `-` is a word boundary. When this matters use `\\j` instead and ag will use this value." :group 'dumb-jump :type 'string) (defcustom dumb-jump-rg-word-boundary "($|[^a-zA-Z0-9\\?\\*-])" "`\\b` thinks `-` is a word boundary. When this matters use `\\j` instead and rg will use this value." :group 'dumb-jump :type 'string) (defcustom dumb-jump-git-grep-word-boundary "($|[^a-zA-Z0-9\\?\\*-])" "`\\b` thinks `-` is a word boundary. When this matters use `\\j` instead and git grep will use this value." :group 'dumb-jump :type 'string) (defcustom dumb-jump-grep-word-boundary "($|[^a-zA-Z0-9\\?\\*-])" "`\\b` thinks `-` is a word boundary. When this matters use `\\j` instead and grep will use this value." :group 'dumb-jump :type 'string) (defcustom dumb-jump-fallback-regex "\\bJJJ\\j" "When dumb-jump-fallback-search is t use this regex. Defaults to boundary search of symbol under point." :group 'dumb-jump :type 'string) (defcustom dumb-jump-fallback-search t "If nothing is found with normal search fallback to searching the fallback regex." :group 'dumb-jump :type 'boolean) (defcustom dumb-jump-force-grep nil "When t will use grep even if ag is available." :group 'dumb-jump :type 'boolean) (defcustom dumb-jump-zgrep-cmd "zgrep" "The path to grep to use for gzipped files. By default assumes it is in path." :group 'dumb-jump :type 'string) (defcustom dumb-jump-grep-args "-REn" "Grep command args [R]ecursive, [E]xtended regexes, and show line [n]umbers." :group 'dumb-jump :type 'string) (defcustom dumb-jump-gnu-grep-args "-rEn" "Grep command args [r]ecursive and [E]xtended regexes, and show line [n]umbers." :group 'dumb-jump :type 'string) (defcustom dumb-jump-max-find-time 2 "Number of seconds a grep/find command can take before being warned to use ag and config." :group 'dumb-jump :type 'integer) (defcustom dumb-jump-functions-only nil "Should we only jump to functions?" :group 'dumb-jump :type 'boolean) (defcustom dumb-jump-quiet nil "If non-nil Dumb Jump will not log anything to *Messages*." :group 'dumb-jump :type 'boolean) (defcustom dumb-jump-ignore-context nil "If non-nil Dumb Jump will ignore the context of point when jumping." :group 'dumb-jump :type 'boolean) (defcustom dumb-jump-git-grep-search-untracked t "If non-nil Dumb Jump will also search untracked files when using searcher git-grep." :group 'dumb-jump :type 'boolean) (defcustom dumb-jump-git-grep-search-args "" "Appends the passed arguments to the git-grep search function. Default: \"\"" :group 'dumb-jump :type 'string) (defcustom dumb-jump-ag-search-args "" "Appends the passed arguments to the ag search function. Default: \"\"" :group 'dumb-jump :type 'string) (defcustom dumb-jump-rg-search-args "--pcre2" "Appends the passed arguments to the rg search function. Default: \"--pcre2\"" :group 'dumb-jump :type 'string) (defcustom dumb-jump-find-rules '((:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "elisp" :regex "\\\((defun|cl-defun)\\s+JJJ\\j" ;; \\j usage see `dumb-jump-ag-word-boundary` :tests ("(defun test (blah)" "(defun test\n" "(cl-defun test (blah)" "(cl-defun test\n") :not ("(defun test-asdf (blah)" "(defun test-blah\n" "(cl-defun test-asdf (blah)" "(cl-defun test-blah\n" "(defun tester (blah)" "(defun test? (blah)" "(defun test- (blah)")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "elisp" :regex "\\\(defvar\\b\\s*JJJ\\j" :tests ("(defvar test " "(defvar test\n") :not ("(defvar tester" "(defvar test?" "(defvar test-")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "elisp" :regex "\\\(defcustom\\b\\s*JJJ\\j" :tests ("(defcustom test " "(defcustom test\n") :not ("(defcustom tester" "(defcustom test?" "(defcustom test-")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "elisp" :regex "\\\(setq\\b\\s*JJJ\\j" :tests ("(setq test 123)") :not ("setq test-blah 123)" "(setq tester" "(setq test?" "(setq test-")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "elisp" :regex "\\\(JJJ\\s+" :tests ("(let ((test 123)))") :not ("(let ((test-2 123)))")) ;; variable in method signature (:type "variable" :supports ("ag" "rg" "git-grep") :language "elisp" :regex "\\((defun|cl-defun)\\s*.+\\\(?\\s*JJJ\\j\\s*\\\)?" :tests ("(defun blah (test)" "(defun blah (test blah)" "(defun (blah test)") :not ("(defun blah (test-1)" "(defun blah (test-2 blah)" "(defun (blah test-3)")) ;; common lisp (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "commonlisp" :regex "\\\(defun\\s+JJJ\\j" ;; \\j usage see `dumb-jump-ag-word-boundary` :tests ("(defun test (blah)" "(defun test\n") :not ("(defun test-asdf (blah)" "(defun test-blah\n" "(defun tester (blah)" "(defun test? (blah)" "(defun test- (blah)")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "commonlisp" :regex "\\\(defparameter\\b\\s*JJJ\\j" :tests ("(defparameter test " "(defparameter test\n") :not ("(defparameter tester" "(defparameter test?" "(defparameter test-")) ;; scheme (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "scheme" :regex "\\\(define\\s+\\(\\s*JJJ\\j" :tests ("(define (test blah)" "(define (test\n") :not ("(define test blah" "(define (test-asdf blah)" "(define test (lambda (blah")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "scheme" :regex "\\\(define\\s+JJJ\\s*\\\(\\s*lambda" :tests ("(define test (lambda (blah" "(define test (lambda\n") :not ("(define test blah" "(define test-asdf (lambda (blah)" "(define (test)" "(define (test blah) (lambda (foo")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "scheme" :regex "\\\(let\\s+JJJ\\s*(\\\(|\\\[)*" :tests ("(let test ((blah foo) (bar bas))" "(let test\n" "(let test [(foo") :not ("(let ((test blah")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "scheme" :regex "\\\(define\\s+JJJ\\j" :tests ("(define test " "(define test\n") :not ("(define (test")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "scheme" :regex "(\\\(|\\\[)\\s*JJJ\\s+" :tests ("(let ((test 'foo" "(let [(test 'foo" "(let [(test 'foo" "(let [[test 'foo" "(let ((blah 'foo) (test 'bar)") :not ("{test foo")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "scheme" :regex "\\\(lambda\\s+\\\(?[^\(\)]*\\s*JJJ\\j\\s*\\\)?" :tests ("(lambda (test)" "(lambda (foo test)" "(lambda test (foo)") :not ("(lambda () test")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "scheme" :regex "\\\(define\\s+\\\([^\(\)]+\\s*JJJ\\j\\s*\\\)?" :tests ("(define (foo test)" "(define (foo test bar)") :not ("(define foo test" "(define (test foo" "(define (test)")) ;; c++ (:type "function" :supports ("ag" "rg" "git-grep") :language "c++" :regex "\\bJJJ(\\s|\\))*\\((\\w|[,&*.<>]|\\s)*(\\))\\s*(const|->|\\{|$)|typedef\\s+(\\w|[(*]|\\s)+JJJ(\\)|\\s)*\\(" :tests ("int test(){" "my_struct (*test)(int a, int b){" "auto MyClass::test ( Builder& reference, ) -> decltype( builder.func() ) {" "int test( int *random_argument) const {" "test::test() {" "typedef int (*test)(int);") :not ("return test();)" "int test(a, b);" "if( test() ) {" "else test();")) ;; (:type "variable" :supports ("grep") :language "c++" ;; :regex "(\\b\\w+|[,>])([*&]|\\s)+JJJ\\s*(\\[([0-9]|\\s)*\\])*\\s*([=,){;]|:\\s*[0-9])|#define\\s+JJJ\\b" ;; :tests ("int test=2;" "char *test;" "int x = 1, test = 2" "int test[20];" "#define test" "unsigned int test:2;")) (:type "variable" :supports ("ag" "rg") :language "c++" :regex "\\b(?!(class\\b|struct\\b|return\\b|else\\b|delete\\b))(\\w+|[,>])([*&]|\\s)+JJJ\\s*(\\[(\\d|\\s)*\\])*\\s*([=,(){;]|:\\s*\\d)|#define\\s+JJJ\\b" :tests ("int test=2;" "char *test;" "int x = 1, test = 2" "int test[20];" "#define test" "typedef int test;" "unsigned int test:2") :not ("return test;" "#define NOT test" "else test=2;")) (:type "type" :supports ("ag" "rg" "git-grep") :language "c++" :regex "\\b(class|struct|enum|union)\\b\\s*JJJ\\b\\s*(final\\s*)?(:((\\s*\\w+\\s*::)*\\s*\\w*\\s*?\\s*,*)+)?((\\{|$))|}\\s*JJJ\\b\\s*;" :tests ("typedef struct test {" "enum test {" "} test;" "union test {" "class test final: public Parent1, private Parent2{" "class test : public std::vector {") :not("union test var;" "struct test function() {")) ;; clojure (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "clojure" :regex "\\(def\\s+JJJ\\j" :tests ("(def test (foo)")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "clojure" :regex "\\(defn-?\\s+JJJ\\j" :tests ("(defn test [foo]" "(defn- test [foo]") :not ("(defn test? [foo]" "(defn- test? [foo]")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "clojure" :regex "\\(defmacro\\s+JJJ\\j" :tests ("(defmacro test [foo]")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "clojure" :regex "\\(deftask\\s+JJJ\\j" :tests ("(deftask test [foo]")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "clojure" :regex "\\(deftype\\s+JJJ\\j" :tests ("(deftype test [foo]")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "clojure" :regex "\\(defmulti\\s+JJJ\\j" :tests ("(defmulti test fn")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "clojure" :regex "\\(defmethod\\s+JJJ\\j" :tests ("(defmethod test type")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "clojure" :regex "\\(definterface\\s+JJJ\\j" :tests ("(definterface test (foo)")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "clojure" :regex "\\(defprotocol\\s+JJJ\\j" :tests ("(defprotocol test (foo)")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "clojure" :regex "\\(defrecord\\s+JJJ\\j" :tests ("(defrecord test [foo]")) ;; coffeescript (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "coffeescript" :regex "^\\s*JJJ\\s*[=:].*[-=]>" :tests ("test = () =>" "test= =>" "test = ->" "test=()->" "test : () =>" "test: =>" "test : ->" "test:()->") :not ("# test = =>" "test = 1")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "coffeescript" :regex "^\\s*JJJ\\s*[:=][^:=-][^>]+$" :tests ("test = $" "test : [" "test = {" "test = a") :not ("test::a" "test: =>" "test == 1" "# test = 1")) (:type "class" :supports ("ag" "grep" "rg" "git-grep") :language "coffeescript" :regex "^\\s*\\bclass\\s+JJJ" :tests ("class test" "class test extends") :not ("# class")) ;; obj-c (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "objc" :regex "\\\)\\s*JJJ(:|\\b|\\s)" :tests ("- (void)test" "- (void)test:(UIAlertView *)alertView") :not ("- (void)testnot" "- (void)testnot:(UIAlertView *)alertView")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "objc" :regex "\\b\\*?JJJ\\s*=[^=\\n]+" :tests ("NSString *test = @\"asdf\"") :not ("NSString *testnot = @\"asdf\"" "NSString *nottest = @\"asdf\"")) ;; swift (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "swift" :regex "(let|var)\\s*JJJ\\s*(=|:)[^=:\\n]+" :tests ("let test = 1234" "var test = 1234" "private lazy var test: UITapGestureRecognizer") :not ("if test == 1234:")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "swift" :regex "func\\s*JJJ\\b\\s*\\\(" :tests ("func test(asdf)" "func test()") :not ("func testnot(asdf)" "func testnot()")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "swift" :regex "(class|struct)\\s*JJJ\\b\\s*?" :tests ("class test:" "class test: UIWindow") :not ("class testnot:" "class testnot(object):")) ;; c# (:type "function" :supports ("ag" "rg") :language "csharp" :regex "^\\s*(?:[\\w\\[\\]]+\\s+){1,3}JJJ\\s*\\\(" :tests ("int test()" "int test(param)" "static int test()" "static int test(param)" "public static MyType test()" "private virtual SomeType test(param)" "static int test()") :not ("test()" "testnot()" "blah = new test()")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "csharp" :regex "\\s*\\bJJJ\\s*=[^=\\n)]+" :tests ("int test = 1234") :not ("if test == 1234:" "int nottest = 44")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "csharp" :regex "(class|interface)\\s*JJJ\\b" :tests ("class test:" "public class test : IReadableChannel, I") :not ("class testnot:" "public class testnot : IReadableChannel, I")) ;; java (literally the same regexes as c#, but different tests) (:type "function" :supports ("ag" "rg") :language "java" :regex "^\\s*(?:[\\w\\[\\]]+\\s+){1,3}JJJ\\s*\\\(" :tests ("int test()" "int test(param)" "static int test()" "static int test(param)" "public static MyType test()" "private virtual SomeType test(param)" "static int test()" "private foo[] test()") :not ("test()" "testnot()" "blah = new test()" "foo bar = test()")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "java" :regex "\\s*\\bJJJ\\s*=[^=\\n)]+" :tests ("int test = 1234") :not ("if test == 1234:" "int nottest = 44")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "java" :regex "(class|interface)\\s*JJJ\\b" :tests ("class test:" "public class test implements Something") :not ("class testnot:" "public class testnot implements Something")) ;; vala (again just like c#, exactly the same..) (:type "function" :supports ("ag" "rg") :language "vala" :regex "^\\s*(?:[\\w\\[\\]]+\\s+){1,3}JJJ\\s*\\\(" :tests ("int test()" "int test(param)" "static int test()" "static int test(param)" "public static MyType test()" "private virtual SomeType test(param)" "static int test()") :not ("test()" "testnot()" "blah = new test()")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "vala" :regex "\\s*\\bJJJ\\s*=[^=\\n)]+" :tests ("int test = 1234") :not ("if test == 1234:" "int nottest = 44")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "vala" :regex "(class|interface)\\s*JJJ\\b" :tests ("class test:" "public class test : IReadableChannel, I") :not ("class testnot:" "public class testnot : IReadableChannel, I")) ;; coq (:type "function" :supports ("ag" "rg" "git-grep") :language "coq" :regex "\\s*Variable\\s+JJJ\\b" :tests ("Variable test") :not ("Variable testx")) (:type "function" :supports ("ag" "rg" "git-grep") :language "coq" :regex "\\s*Inductive\\s+JJJ\\b" :tests ("Inductive test") :not ("Inductive testx")) (:type "function" :supports ("ag" "rg" "git-grep") :language "coq" :regex "\\s*Lemma\\s+JJJ\\b" :tests ("Lemma test") :not ("Lemma testx")) (:type "function" :supports ("ag" "rg" "git-grep") :language "coq" :regex "\\s*Definition\\s+JJJ\\b" :tests ("Definition test") :not ("Definition testx")) (:type "function" :supports ("ag" "rg" "git-grep") :language "coq" :regex "\\s*Hypothesis\\s+JJJ\\b" :tests ("Hypothesis test") :not ("Hypothesis testx")) (:type "function" :supports ("ag" "rg" "git-grep") :language "coq" :regex "\\s*Theorm\\s+JJJ\\b" :tests ("Theorm test") :not ("Theorm testx")) (:type "function" :supports ("ag" "rg" "git-grep") :language "coq" :regex "\\s*Fixpoint\\s+JJJ\\b" :tests ("Fixpoint test") :not ("Fixpoint testx")) (:type "function" :supports ("ag" "rg" "git-grep") :language "coq" :regex "\\s*Module\\s+JJJ\\b" :tests ("Module test") :not ("Module testx")) (:type "function" :supports ("ag" "rg" "git-grep") :language "coq" :regex "\\s*CoInductive\\s+JJJ\\b" :tests ("CoInductive test") :not ("CoInductive testx")) ;; python (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "python" :regex "\\s*\\bJJJ\\s*=[^=\\n]+" :tests ("test = 1234") :not ("if test == 1234:" "_test = 1234")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "python" :regex "def\\s*JJJ\\b\\s*\\\(" :tests ("\tdef test(asdf)" "def test()") :not ("\tdef testnot(asdf)" "def testnot()")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "python" :regex "class\\s*JJJ\\b\\s*\\\(?" :tests ("class test(object):" "class test:") :not ("class testnot:" "class testnot(object):")) ;; matlab (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "matlab" :regex "^\\s*\\bJJJ\\s*=[^=\\n]+" :tests ("test = 1234") :not ("for test = 1:2:" "_test = 1234")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "matlab" :regex "^\\s*function\\s*[^=]+\\s*=\\s*JJJ\\b" :tests ("\tfunction y = test(asdf)" "function x = test()" "function [x, losses] = test(A, y, lambda, method, qtile)") :not ("\tfunction testnot(asdf)" "function testnot()")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "matlab" :regex "^\\s*classdef\\s*JJJ\\b\\s*" :tests ("classdef test") :not ("classdef testnot")) ;; nim (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "nim" :regex "(const|let|var)\\s*JJJ\\s*(=|:)[^=:\\n]+" :tests ("let test = 1234" "var test = 1234" "var test: Stat" "const test = 1234") :not ("if test == 1234:")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "nim" :regex "(proc|func|macro|template)\\s*`?JJJ`?\\b\\s*\\\(" :tests ("\tproc test(asdf)" "proc test()" "func test()" "macro test()" "template test()") :not ("\tproc testnot(asdf)" "proc testnot()")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "nim" :regex "type\\s*JJJ\\b\\s*(\\{[^}]+\\})?\\s*=\\s*\\w+" :tests ("type test = object" "type test {.pure.} = enum") :not ("type testnot = object")) ;; nix (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "nix" :regex "\\b\\s*JJJ\\s*=[^=;]+" :tests ("test = 1234;" "test = 123;" "test=123") :not ("testNot = 1234;" "Nottest = 1234;" "AtestNot = 1234;")) ;; ruby (:type "variable" :supports ("ag" "rg" "git-grep") :language "ruby" :regex "^\\s*((\\w+[.])*\\w+,\\s*)*JJJ(,\\s*(\\w+[.])*\\w+)*\\s*=([^=>~]|$)" :tests ("test = 1234" "self.foo, test, bar = args") :not ("if test == 1234" "foo_test = 1234")) (:type "function" :supports ("ag" "rg" "git-grep") :language "ruby" :regex "(^|[^\\w.])((private|public|protected)\\s+)?def\\s+(\\w+(::|[.]))*JJJ($|[^\\w|:])" :tests ("def test(foo)" "def test()" "def test foo" "def test; end" "def self.test()" "def MODULE::test()" "private def test") :not ("def test_foo")) (:type "function" :supports ("ag" "rg" "git-grep") :language "ruby" :regex "(^|\\W)define(_singleton|_instance)?_method(\\s|[(])\\s*:JJJ($|[^\\w|:])" :tests ("define_method(:test, &body)" "mod.define_instance_method(:test) { body }")) (:type "type" :supports ("ag" "rg" "git-grep") :language "ruby" :regex "(^|[^\\w.])class\\s+(\\w*::)*JJJ($|[^\\w|:])" :tests ("class test" "class Foo::test")) (:type "type" :supports ("ag" "rg" "git-grep") :language "ruby" :regex "(^|[^\\w.])module\\s+(\\w*::)*JJJ($|[^\\w|:])" :tests ("module test" "module Foo::test")) (:type "function" :supports ("ag" "rg" "git-grep") :language "ruby" :regex "(^|\\W)alias(_method)?\\W+JJJ(\\W|$)" :tests ("alias test some_method" "alias_method :test, :some_method" "alias_method 'test' 'some_method'" "some_class.send(:alias_method, :test, :some_method)") :not ("alias some_method test" "alias_method :some_method, :test" "alias test_foo test")) ;; Groovy (:type "variable" :supports ("ag" "rg" "git-grep") :language "groovy" :regex "^\\s*((\\w+[.])*\\w+,\\s*)*JJJ(,\\s*(\\w+[.])*\\w+)*\\s*=([^=>~]|$)" :tests ("test = 1234" "self.foo, test, bar = args") :not ("if test == 1234" "foo_test = 1234")) (:type "function" :supports ("ag" "rg" "git-grep") :language "groovy" :regex "(^|[^\\w.])((private|public)\\s+)?def\\s+(\\w+(::|[.]))*JJJ($|[^\\w|:])" :tests ("def test(foo)" "def test()" "def test foo" "def test; end" "def self.test()" "def MODULE::test()" "private def test") :not ("def test_foo")) (:type "type" :supports ("ag" "rg" "git-grep") :language "groovy" :regex "(^|[^\\w.])class\\s+(\\w*::)*JJJ($|[^\\w|:])" :tests ("class test" "class Foo::test")) ;; crystal (:type "variable" :supports ("ag" "rg" "git-grep") :language "crystal" :regex "^\\s*((\\w+[.])*\\w+,\\s*)*JJJ(,\\s*(\\w+[.])*\\w+)*\\s*=([^=>~]|$)" :tests ("test = 1234" "self.foo, test, bar = args") :not ("if test == 1234" "foo_test = 1234")) (:type "function" :supports ("ag" "rg" "git-grep") :language "crystal" :regex "(^|[^\\w.])((private|public|protected)\\s+)?def\\s+(\\w+(::|[.]))*JJJ($|[^\\w|:])" :tests ("def test(foo)" "def test()" "def test foo" "def test; end" "def self.test()" "def MODULE::test()" "private def test") :not ("def test_foo")) (:type "type" :supports ("ag" "rg" "git-grep") :language "crystal" :regex "(^|[^\\w.])class\\s+(\\w*::)*JJJ($|[^\\w|:])" :tests ("class test" "class Foo::test")) (:type "type" :supports ("ag" "rg" "git-grep") :language "crystal" :regex "(^|[^\\w.])module\\s+(\\w*::)*JJJ($|[^\\w|:])" :tests ("module test" "module Foo::test")) (:type "type" :supports ("ag" "rg" "git-grep") :language "crystal" :regex "(^|[^\\w.])struct\\s+(\\w*::)*JJJ($|[^\\w|:])" :tests ("struct test" "struct Foo::test")) (:type "type" :supports ("ag" "rg" "git-grep") :language "crystal" :regex "(^|[^\\w.])alias\\s+(\\w*::)*JJJ($|[^\\w|:])" :tests ("alias test" "alias Foo::test")) ;; scala (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "scala" :regex "\\bval\\s*JJJ\\s*=[^=\\n]+" :tests ("val test = 1234") :not ("case test => 1234")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "scala" :regex "\\bvar\\s*JJJ\\s*=[^=\\n]+" :tests ("var test = 1234") :not ("case test => 1234")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "scala" :regex "\\btype\\s*JJJ\\s*=[^=\\n]+" :tests ("type test = 1234") :not ("case test => 1234")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "scala" :regex "\\bdef\\s*JJJ\\s*\\\(" :tests ("def test(asdf)" "def test()")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "scala" :regex "class\\s*JJJ\\s*\\\(?" :tests ("class test(object)")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "scala" :regex "trait\\s*JJJ\\s*\\\(?" :tests ("trait test(object)")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "scala" :regex "object\\s*JJJ\\s*\\\(?" :tests ("object test(object)")) ;; R (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "r" :regex "\\bJJJ\\s*=[^=><]" :tests ("test = 1234") :not ("if (test == 1234)")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "r" :regex "\\bJJJ\\s*<-\\s*function\\b" :tests ("test <- function" "test <- function(") :not ("test <- functionX")) ;; perl (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "perl" :regex "sub\\s*JJJ\\s*(\\{|\\()" :tests ("sub test{" "sub test {" "sub test(" "sub test (")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "perl" :regex "JJJ\\s*=\\s*" :tests ("$test = 1234")) ;; shell (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "shell" :regex "function\\s*JJJ\\s*" :tests ("function test{" "function test {" "function test () {") :not ("function nottest {")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "shell" :regex "JJJ\\\(\\\)\\s*\\{" :tests ("test() {") :not ("testx() {")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "shell" :regex "\\bJJJ\\s*=\\s*" :tests ("test = 1234") :not ("blahtest = 1234")) ;; php (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "php" :regex "function\\s*JJJ\\s*\\\(" :tests ("function test()" "function test ()")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "php" :regex "\\*\\s@method\\s+[^ ]+\\s+JJJ\\(" :tests ("/** @method string|false test($a)" " * @method bool test()")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "php" :regex "(\\s|->|\\$|::)JJJ\\s*=\\s*" :tests ("$test = 1234" "$foo->test = 1234")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "php" :regex "\\*\\s@property(-read|-write)?\\s+([^ ]+\\s+)&?\\$JJJ(\\s+|$)" :tests ("/** @property string $test" "/** @property string $test description for $test property" " * @property-read bool|bool $test" " * @property-write \\ArrayObject $test")) (:type "trait" :supports ("ag" "grep" "rg" "git-grep") :language "php" :regex "trait\\s*JJJ\\s*\\\{" :tests ("trait test{" "trait test {")) (:type "interface" :supports ("ag" "grep" "rg" "git-grep") :language "php" :regex "interface\\s*JJJ\\s*\\\{" :tests ("interface test{" "interface test {")) (:type "class" :supports ("ag" "grep" "rg" "git-grep") :language "php" :regex "class\\s*JJJ\\s*(extends|implements|\\\{)" :tests ("class test{" "class test {" "class test extends foo" "class test implements foo")) ;; dart (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "dart" :regex "\\bJJJ\\s*\\([^()]*\\)\\s*[{]" :tests ("test(foo) {" "test (foo){" "test(foo){")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "dart" :regex "class\\s*JJJ\\s*[\\\(\\\{]" :tests ("class test(object) {" "class test{")) ;; faust (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "faust" :regex "\\bJJJ\(\\\(.+\\\)\)*\\s*=" :tests ("test = osc + 0.5;" "test(freq) = osc(freq) + 0.5;")) ;; fortran (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "fortran" :regex "\\s*\\bJJJ\\s*=[^=\\n]+" :tests ("test = 1234") :not ("if (test == 1234)")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "fortran" :regex "\\b(function|subroutine|FUNCTION|SUBROUTINE)\\s+JJJ\\b\\s*\\\(" :tests ("function test (foo)" "integer function test(foo)" "subroutine test (foo, bar)" "FUNCTION test (foo)" "INTEGER FUNCTION test(foo)" "SUBROUTINE test (foo, bar)") :not ("end function test" "end subroutine test" "END FUNCTION test" "END SUBROUTINE test")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "fortran" :regex "^\\s*(interface|INTERFACE)\\s+JJJ\\b" :tests ("interface test" "INTERFACE test") :not ("interface test2" "end interface test" "INTERFACE test2" "END INTERFACE test")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "fortran" :regex "^\\s*(module|MODULE)\\s+JJJ\\s*" :tests ("module test" "MODULE test") :not ("end module test" "END MODULE test")) ;; go (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "go" :regex "\\s*\\bJJJ\\s*=[^=\\n]+" :tests ("test = 1234") :not ("if test == 1234 {")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "go" :regex "\\s*\\bJJJ\\s*:=\\s*" :tests ("test := 1234")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "go" :regex "func\\s+\\\([^\\\)]*\\\)\\s+JJJ\\s*\\\(" :tests ("func (s *blah) test(filename string) string {")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "go" :regex "func\\s+JJJ\\s*\\\(" :tests ("func test(url string) (string, error)")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "go" :regex "type\\s+JJJ\\s+struct\\s+\\\{" :tests ("type test struct {")) ;; javascript extended (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "javascript" :regex "(service|factory)\\\(['\"]JJJ['\"]" :tags ("angular") :tests ("module.factory('test', [\"$rootScope\", function($rootScope) {")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "javascript" :regex "\\bJJJ\\s*[=:]\\s*\\\([^\\\)]*\\\)\\s+=>" :tags ("es6") :tests ("const test = (foo) => " "test: (foo) => {" " test: (foo) => {")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "javascript" :regex "\\bJJJ\\s*\\([^()]*\\)\\s*[{]" :tags ("es6") :tests ("test(foo) {" "test (foo){" "test(foo){") :not ("test = blah.then(function(){")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "javascript" :tags ("es6") :regex "class\\s*JJJ\\s*[\\\(\\\{]" :tests ("class test(object) {" "class test{")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "javascript" :tags ("es6") :regex "class\\s*JJJ\\s+extends" :tests ("class test extends Component{")) ;; javascript (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "javascript" :regex "\\s*\\bJJJ\\s*=[^=\\n]+" :tests ("test = 1234" "const test = props =>") :not ("if (test === 1234)")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "javascript" :regex "\\bfunction\\b[^\\(]*\\\(\\s*[^\\)]*\\bJJJ\\b\\s*,?\\s*\\\)?" :tests ("function (test)" "function (test, blah)" "function somefunc(test, blah) {" "function(blah, test)") :not ("function (testLen)" "function (test1, blah)" "function somefunc(testFirst, blah) {" "function(blah, testLast)" "function (Lentest)" "function (blahtest, blah)" "function somefunc(Firsttest, blah) {" "function(blah, Lasttest)")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "javascript" :regex "function\\s*JJJ\\s*\\\(" :tests ("function test()" "function test ()")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "javascript" :regex "\\bJJJ\\s*:\\s*function\\s*\\\(" :tests ("test: function()")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "javascript" :regex "\\bJJJ\\s*=\\s*function\\s*\\\(" :tests ("test = function()")) ;; julia (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "julia" :regex "(@noinline|@inline)?\\s*function\\s*JJJ(\\{[^\\}]*\\})?\\(" :tests ("function test()" "@inline function test()" "function test{T}(h)")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "julia" :regex "(@noinline|@inline)?JJJ(\\{[^\\}]*\\})?\\([^\\)]*\\)\s*=" :tests ("test(a)=1" "test(a,b)=1*8" "@noinline test()=1" "test{T}(x)=x")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "julia" :regex "macro\\s*JJJ\\(" :tests ("macro test(a)=1" " macro test(a,b)=1*8")) (:type "variable" :supports ("ag" "rg") :language "julia" :regex "const\\s+JJJ\\b" :tests ("const test = ")) (:type "type" :supports ("ag" "rg") :language "julia" :regex "(mutable)?\\s*struct\\s*JJJ" :tests ("struct test")) (:type "type" :supports ("ag" "rg") :language "julia" :regex "(type|immutable|abstract)\\s*JJJ" :tests ("type test" "immutable test" "abstract test <:Testable" )) ;; haskell (:type "module" :supports ("ag") :language "haskell" :regex "^module\\s+JJJ\\s+" :tests ("module Test (exportA, exportB) where")) ; TODO Doesn't support any '=' in arguments. E.g. 'foo A{a = b,..} = bar'. (:type "top level function" :supports ("ag") :language "haskell" :regex "^\\bJJJ(?!(\\s+::))\\s+((.|\\s)*?)=\\s+" :tests ("test n = n * 2" "test X{..} (Y a b c) \n bcd \n =\n x * y" "test ab cd e@Datatype {..} (Another thing, inTheRow) = \n undefined" "test = runRealBasedMode @ext @ctx identity identity" "test unwrap wrap nr@Naoeu {..} (Action action, specSpecs) = \n undefined") :not ("nottest n = n * 2" "let testnot x y = x * y" "test $ y z" "let test a o = mda" "test :: Sometype -> AnotherType aoeu kek = undefined" )) (:type "type-like" :supports ("ag") :language "haskell" :regex "^\\s*((data(\\s+family)?)|(newtype)|(type(\\s+family)?))\\s+JJJ\\s+" :tests ("newtype Test a = Something { b :: Kek }" "data Test a b = Somecase a | Othercase b" "type family Test (x :: *) (xs :: [*]) :: Nat where" "data family Test " "type Test = TestAlias") :not ("newtype NotTest a = NotTest (Not a)" "data TestNot b = Aoeu")) ; datatype contstuctor that doesn't match type definition. (:type "(data)type constructor 1" :supports ("ag") :language "haskell" :regex "(data|newtype)\\s{1,3}(?!JJJ\\s+)([^=]{1,40})=((\\s{0,3}JJJ\\s+)|([^=]{0,500}?((?\\s*)?JJJ\\s+" :tests ( "class (Constr1 m, Constr 2) => Test (Kek a) where" "class Test (Veryovka a) where ") :not ("class Test2 (Kek a) where" "class MakeTest (AoeuTest x y z) where")) ;; ocaml (:type "type" :supports ("ag" "rg") :language "ocaml" :regex "^\\s*(and|type)\\s+.*\\bJJJ\\b" :tests ("type test =" "and test =" "type 'a test =" "type ('a, _, 'c) test")) (:type "variable" :supports ("ag" "rg") :language "ocaml" :regex "let\\s+JJJ\\b" :tests ("let test =" "let test x y =")) (:type "variable" :supports ("ag" "rg") :language "ocaml" :regex "let\\s+rec\\s+JJJ\\b" :tests ("let rec test =" "let rec test x y =")) (:type "variable" :supports ("ag" "rg") :language "ocaml" :regex "\\s*val\\s*\\bJJJ\\b\\s*" :tests ("val test")) (:type "module" :supports ("ag" "rg") :language "ocaml" :regex "^\\s*module\\s*\\bJJJ\\b" :tests ("module test =")) (:type "module" :supports ("ag" "rg") :language "ocaml" :regex "^\\s*module\\s*type\\s*\\bJJJ\\b" :tests ("module type test =")) ;; lua (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "lua" :regex "\\s*\\bJJJ\\s*=[^=\\n]+" :tests ("test = 1234") :not ("if test === 1234")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "lua" :regex "\\bfunction\\b[^\\(]*\\\(\\s*[^\\)]*\\bJJJ\\b\\s*,?\\s*\\\)?" :tests ("function (test)" "function (test, blah)" "function somefunc(test, blah)" "function(blah, test)") :not ("function (testLen)" "function (test1, blah)" "function somefunc(testFirst, blah)" "function(blah, testLast)" "function (Lentest)" "function (blahtest, blah)" "function somefunc(Firsttest, blah)" "function(blah, Lasttest)")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "lua" :regex "function\\s*JJJ\\s*\\\(" :tests ("function test()" "function test ()")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "lua" :regex "function\\s*.+[.:]JJJ\\s*\\\(" :tests ("function MyClass.test()" "function MyClass.test ()" "function MyClass:test()" "function MyClass:test ()")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "lua" :regex "\\bJJJ\\s*=\\s*function\\s*\\\(" :tests ("test = function()")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "lua" :regex "\\b.+\\.JJJ\\s*=\\s*function\\s*\\\(" :tests ("MyClass.test = function()")) ;; rust (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "rust" :regex "\\blet\\s+(\\\([^=\\n]*)?(mut\s+)?JJJ([^=\\n]*\\\))?(:\\s*[^=\\n]+)?\\s*=\\s*[^=\\n]+" :tests ("let test = 1234;" "let test: u32 = 1234;" "let test: Vec = Vec::new();" "let mut test = 1234;" "let mut test: Vec = Vec::new();" "let (a, test, b) = (1, 2, 3);" "let (a, mut test, mut b) = (1, 2, 3);" "let (mut a, mut test): (u32, usize) = (1, 2);")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "rust" :regex "\\bconst\\s+JJJ:\\s*[^=\\n]+\\s*=[^=\\n]+" :tests ("const test: u32 = 1234;")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "rust" :regex "\\bstatic\\s+(mut\\s+)?JJJ:\\s*[^=\\n]+\\s*=[^=\\n]+" :tests ("static test: u32 = 1234;" "static mut test: u32 = 1234;")) ;; variable in method signature (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "rust" :regex "\\bfn\\s+.+\\s*\\\((.+,\\s+)?JJJ:\\s*[^=\\n]+\\s*(,\\s*.+)*\\\)" :tests ("fn abc(test: u32) -> u32 {" "fn abc(x: u32, y: u32, test: Vec, z: Vec)" "fn abc(x: u32, y: u32, test: &mut Vec, z: Vec)")) ;; "if let" and "while let" desugaring (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "rust" :regex "(if|while)\\s+let\\s+([^=\\n]+)?(mut\\s+)?JJJ([^=\\n\\\(]+)?\\s*=\\s*[^=\\n]+" :tests ("if let Some(test) = abc() {" "if let Some(mut test) = abc() {" "if let Ok(test) = abc() {" "if let Ok(mut test) = abc() {" "if let Foo(mut test) = foo {" "if let test = abc() {" "if let Some(test) = abc()" "if let Some((a, test, b)) = abc()" "while let Some(test) = abc() {" "while let Some(mut test) = abc() {" "while let Ok(test) = abc() {" "while let Ok(mut test) = abc() {") :not ("while let test(foo) = abc() {")) ;; structure fields (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "rust" :regex "struct\\s+[^\\n{]+[{][^}]*(\\s*JJJ\\s*:\\s*[^\\n},]+)[^}]*}" :tests ("struct Foo { abc: u32, test: Vec, b: PathBuf }" "struct Foo{test:Vec}" "struct FooBar<'a> { test: Vec }") :not ("struct Foo { abc: u32, b: Vec }" "/// ... construct the equivalent ...\nfn abc() {\n")) ;; enum variants (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "rust" :regex "enum\\s+[^\\n{]+\\s*[{][^}]*\\bJJJ\\b[^}]*}" :tests ("enum Foo { VariantA, test, VariantB(u32) }" "enum Foo { test(T) }" "enum BadStyle{test}" "enum Foo32 { Bar, testing, test(u8) }") :not ("enum Foo { testing }")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "rust" :regex "\\bfn\\s+JJJ\\s*\\\(" :tests ("fn test(asdf: u32)" "fn test()" "pub fn test()")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "rust" :regex "\\bmacro_rules!\\s+JJJ" :tests ("macro_rules! test")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "rust" :regex "struct\\s+JJJ\\s*[{\\\(]?" :tests ("struct test(u32, u32)" "struct test;" "struct test { abc: u32, def: Vec }")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "rust" :regex "trait\\s+JJJ\\s*[{]?" :tests ("trait test;" "trait test { fn abc() -> u32; }")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "rust" :regex "\\btype\\s+JJJ([^=\\n]+)?\\s*=[^=\\n]+;" :tests ("type test = Rc>;" "type test = Arc>>;")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "rust" :regex "impl\\s+((\\w+::)*\\w+\\s+for\\s+)?(\\w+::)*JJJ\\s+[{]?" :tests ("impl test {" "impl abc::test {" "impl std::io::Read for test {" "impl std::io::Read for abc::test {")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "rust" :regex "mod\\s+JJJ\\s*[{]?" :tests ("mod test;" "pub mod test {")) ;; elixir (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "elixir" :regex "\\bdef(p)?\\s+JJJ\\s*[ ,\\\(]" :tests ("def test do" "def test, do:" "def test() do" "def test(), do:" "def test(foo, bar) do" "def test(foo, bar), do:" "defp test do" "defp test(), do:")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "elixir" :regex "\\s*JJJ\\s*=[^=\\n]+" :tests ("test = 1234") :not ("if test == 1234")) (:type "module" :supports ("ag" "grep" "rg" "git-grep") :language "elixir" :regex "defmodule\\s+(\\w+\\.)*JJJ\\s+" :tests ("defmodule test do" "defmodule Foo.Bar.test do")) (:type "module" :supports ("ag" "grep" "rg" "git-grep") :language "elixir" :regex "defprotocol\\s+(\\w+\\.)*JJJ\\s+" :tests ("defprotocol test do" "defprotocol Foo.Bar.test do")) ;; erlang (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "erlang" :regex "^JJJ\\b\\s*\\\(" :tests ("test() ->" "test()->" "test(Foo) ->" "test (Foo,Bar) ->" "test(Foo, Bar)->")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "erlang" :regex "\\s*JJJ\\s*=[^:=\\n]+" :tests ("test = 1234") :not ("if test =:= 1234" "if test == 1234")) (:type "module" :supports ("ag" "grep" "rg" "git-grep") :language "erlang" :regex "^-module\\\(JJJ\\\)" :tests ("-module(test).")) ;; scss (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "scss" :regex "@mixin\\sJJJ\\b\\s*\\\(" :tests ("@mixin test()")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "scss" :regex "@function\\sJJJ\\b\\s*\\\(" :tests ("@function test()")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "scss" :regex "JJJ\\s*:\\s*" :tests ("test :")) ;; sml (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "sml" :regex "\\s*(data)?type\\s+.*\\bJJJ\\b" :tests ("datatype test =" "datatype test=" "datatype 'a test =" "type test =" "type 'a test =" "type 'a test" "type test") :not ("datatypetest =")) (:type "variable" :supports ("ag" "grep" "rg" "git-grep") :language "sml" :regex "\\s*val\\s+\\bJJJ\\b" :tests ("val test =" "val test=" "val test : bool")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "sml" :regex "\\s*fun\\s+\\bJJJ\\b.*\\s*=" :tests ("fun test list =" "fun test (STRING_NIL, a) =" "fun test ((s1,s2): 'a queue) : 'a * 'a queue =" "fun test (var : q) : int =" "fun test f e xs =")) (:type "module" :supports ("ag" "grep" "rg" "git-grep") :language "sml" :regex "\\s*(structure|signature|functor)\\s+\\bJJJ\\b" :tests ("structure test =" "structure test : MYTEST =" "signature test =" "functor test (T:TEST) =" "functor test(T:TEST) =")) ;; sql (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "sql" :regex "(CREATE|create)\\s+(.+?\\s+)?(FUNCTION|function|PROCEDURE|procedure)\\s+JJJ\\s*\\\(" :tests ("CREATE FUNCTION test(i INT) RETURNS INT" "create or replace function test (int)" "CREATE PROCEDURE test (OUT p INT)" "create definer = 'test'@'localhost' procedure test()")) (:type "table" :supports ("ag" "grep" "rg" "git-grep") :language "sql" :regex "(CREATE|create)\\s+(.+?\\s+)?(TABLE|table)(\\s+(IF NOT EXISTS|if not exists))?\\s+JJJ\\b" :tests ("CREATE TABLE test (" "create temporary table if not exists test" "CREATE TABLE IF NOT EXISTS test (" "create global temporary table test")) (:type "view" :supports ("ag" "grep" "rg" "git-grep") :language "sql" :regex "(CREATE|create)\\s+(.+?\\s+)?(VIEW|view)\\s+JJJ\\b" :tests ("CREATE VIEW test (" "create sql security definer view test" "CREATE OR REPLACE VIEW test AS foo")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "sql" :regex "(CREATE|create)\\s+(.+?\\s+)?(TYPE|type)\\s+JJJ\\b" :tests ("CREATE TYPE test" "CREATE OR REPLACE TYPE test AS foo (" "create type test as (")) ;; systemverilog (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "systemverilog" :regex "\\s*class\\s+\\bJJJ\\b" :tests ("virtual class test;" "class test;" "class test extends some_class") :not ("virtual class testing;" "class test2;" "class some_test" "class some_class extends test")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "systemverilog" :regex "\\s*task\\s+\\bJJJ\\b" :tests ("task test (" "task test(") :not ("task testing (" "task test2(")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "systemverilog" :regex "\\s*\\bJJJ\\b\\s*=" :tests ("assign test =" "assign test=" "int test =" "int test=") :not ("assign testing =" "assign test2=")) (:type "function" :supports ("ag" "rg" "git-grep") :language "systemverilog" :regex "function\\s[^\\s]+\\s*\\bJJJ\\b" :tests ("function Matrix test ;" "function Matrix test;") :not ("function test blah")) ;; matches SV class handle declarations (:type "function" :supports ("ag" "rg" "git-grep") :language "systemverilog" :regex "^\\s*[^\\s]*\\s*[^\\s]+\\s+\\bJJJ\\b" :tests ("some_class_name test" " another_class_name test ;" "some_class test[];" "some_class #(1) test") :not ("test some_class_name" "class some_class extends test")) ;; vhdl (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "vhdl" :regex "\\s*type\\s+\\bJJJ\\b" :tests ("type test is" "type test is") :not ("type testing is" "type test2 is")) (:type "type" :supports ("ag" "grep" "rg" "git-grep") :language "vhdl" :regex "\\s*constant\\s+\\bJJJ\\b" :tests ("constant test :" "constant test:") :not ("constant testing " "constant test2:")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "vhdl" :regex "function\\s*\"?JJJ\"?\\s*\\\(" :tests ("function test(signal)" "function test (signal)" "function \"test\" (signal)") :not ("function testing(signal")) ;; latex (:type "command" :supports ("ag" "grep" "rg" "git-grep") :language "tex" :regex "\\\\.*newcommand\\\*?\\s*\\\{\\s*(\\\\)JJJ\\s*}" :tests ("\\newcommand{\\test}" "\\renewcommand{\\test}" "\\renewcommand*{\\test}" "\\newcommand*{\\test}" "\\renewcommand{ \\test }") :not("\\test" "test")) (:type "command" :supports ("ag" "grep" "rg" "git-grep") :language "tex" :regex "\\\\.*newcommand\\\*?\\s*(\\\\)JJJ\\j" :tests ("\\newcommand\\test {}" "\\renewcommand\\test{}" "\\newcommand \\test") :not("\\test" "test")) (:type "length" :supports ("ag" "grep" "rg" "git-grep") :language "tex" :regex "\\\\(s)etlength\\s*\\\{\\s*(\\\\)JJJ\\s*}" :tests ("\\setlength { \\test}" "\\setlength{\\test}" "\\setlength{\\test}{morecommands}" ) :not("\\test" "test")) (:type "counter" :supports ("ag" "grep" "rg" "git-grep") :language "tex" :regex "\\\\newcounter\\\{\\s*JJJ\\s*}" :tests ("\\newcounter{test}" ) :not("\\test" "test")) (:type "environment" :supports ("ag" "grep" "rg" "git-grep") :language "tex" :regex "\\\\.*newenvironment\\s*\\\{\\s*JJJ\\s*}" :tests ("\\newenvironment{test}" "\\newenvironment {test}{morecommands}" "\\lstnewenvironment{test}" "\\newenvironment {test}" ) :not("\\test" "test" )) ;; pascal (todo: var, type, const) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "pascal" :regex "\\bfunction\\s+JJJ\\b" :tests (" function test : ")) (:type "function" :supports ("ag" "grep" "rg" "git-grep") :language "pascal" :regex "\\bprocedure\\s+JJJ\\b" :tests (" procedure test ; ")) ;; f# (:type "variable" :supports ("ag" "grep" "git-grep") :language "fsharp" :regex "let\\s+JJJ\\b.*\\\=" :tests ("let test = 1234" "let test() = 1234" "let test abc def = 1234") :not ("let testnot = 1234" "let testnot() = 1234" "let testnot abc def = 1234")) (:type "interface" :supports ("ag" "grep" "git-grep") :language "fsharp" :regex "member(\\b.+\\.|\\s+)JJJ\\b.*\\\=" :tests ("member test = 1234" "member this.test = 1234") :not ("member testnot = 1234" "member this.testnot = 1234")) (:type "type" :supports ("ag" "grep" "git-grep") :language "fsharp" :regex "type\\s+JJJ\\b.*\\\=" :tests ("type test = 1234") :not ("type testnot = 1234"))) "List of regex patttern templates organized by language and type to use for generating the grep command." :group 'dumb-jump :type '(repeat (plist :options ((:type string) (:supports string) (:language string) (:regex string) (:tests (repeat string)) (:not (repeat string)))))) ; https://github.com/ggreer/the_silver_searcher/blob/master/tests/list_file_types.t ; https://github.com/BurntSushi/ripgrep/blob/master/ignore/src/types.rs#L99 (defcustom dumb-jump-language-file-exts '((:language "elisp" :ext "el" :agtype "elisp" :rgtype "elisp") (:language "elisp" :ext "el.gz" :agtype "elisp" :rgtype "elisp") (:language "commonlisp" :ext "lisp" :agtype "lisp" :rgtype "lisp") (:language "commonlisp" :ext "lsp" :agtype "lisp" :rgtype "lisp") (:language "c++" :ext "c" :agtype "cc" :rgtype "c") (:language "c++" :ext "h" :agtype "cc" :rgtype "c") (:language "c++" :ext "C" :agtype "cpp" :rgtype "cpp") (:language "c++" :ext "H" :agtype "cpp" :rgtype "cpp") (:language "c++" :ext "tpp" :agtype "cpp" :rgtype nil) (:language "c++" :ext "cpp" :agtype "cpp" :rgtype "cpp") (:language "c++" :ext "hpp" :agtype "cpp" :rgtype "cpp") (:language "c++" :ext "cxx" :agtype "cpp" :rgtype "cpp") (:language "c++" :ext "hxx" :agtype "cpp" :rgtype nil) (:language "c++" :ext "cc" :agtype "cpp" :rgtype "cpp") (:language "c++" :ext "hh" :agtype "cpp" :rgtype "cpp") (:language "c++" :ext "c++" :agtype nil :rgtype nil) (:language "c++" :ext "h++" :agtype nil :rgtype nil) (:language "coq" :ext "v" :agtype nil :rgtype nil) (:language "ocaml" :ext "ml" :agtype "ocaml" :rgtype "ocaml") (:language "ocaml" :ext "mli" :agtype "ocaml" :rgtype "ocaml") (:language "ocaml" :ext "mll" :agtype "ocaml" :rgtype "ocaml") (:language "ocaml" :ext "mly" :agtype "ocaml" :rgtype "ocaml") (:language "groovy" :ext "gradle" :agtype nil :rgtype nil) (:language "groovy" :ext "groovy" :agtype nil :rgtype nil) (:language "groovy" :ext "jenkinsfile" :agtype nil :rgtype nil) (:language "haskell" :ext "hs" :agtype "haskell" :rgtype "haskell") (:language "haskell" :ext "lhs" :agtype "haskell" :rgtype "haskell") (:language "objc" :ext "m" :agtype "objc" :rgtype "objc") (:language "csharp" :ext "cs" :agtype "csharp" :rgtype "csharp") (:language "java" :ext "java" :agtype "java" :rgtype "java") (:language "vala" :ext "vala" :agtype "vala" :rgtype "vala") (:language "vala" :ext "vapi" :agtype "vala" :rgtype "vala") (:language "julia" :ext "jl" :agtype "julia" :rgtype "julia") (:language "clojure" :ext "clj" :agtype "clojure" :rgtype "clojure") (:language "clojure" :ext "cljc" :agtype "clojure" :rgtype "clojure") (:language "clojure" :ext "cljs" :agtype "clojure" :rgtype "clojure") (:language "clojure" :ext "cljx" :agtype "clojure" :rgtype "clojure") (:language "coffeescript" :ext "coffee" :agtype "coffee" :rgtype "coffeescript") (:language "faust" :ext "dsp" :agtype nil :rgtype nil) (:language "faust" :ext "lib" :agtype nil :rgtype nil) (:language "fortran" :ext "f" :agtype "fortran" :rgtype "fortran") (:language "fortran" :ext "f77" :agtype "fortran" :rgtype "fortran") (:language "fortran" :ext "f90" :agtype "fortran" :rgtype "fortran") (:language "fortran" :ext "f95" :agtype "fortran" :rgtype "fortran") (:language "fortran" :ext "F77" :agtype "fortran" :rgtype "fortran") (:language "fortran" :ext "F90" :agtype "fortran" :rgtype "fortran") (:language "fortran" :ext "F95" :agtype "fortran" :rgtype "fortran") (:language "fortran" :ext "f03" :agtype "fortran" :rgtype "fortran") (:language "fortran" :ext "for" :agtype "fortran" :rgtype "fortran") (:language "fortran" :ext "ftn" :agtype "fortran" :rgtype "fortran") (:language "fortran" :ext "fpp" :agtype "fortran" :rgtype "fortran") (:language "go" :ext "go" :agtype "go" :rgtype "go") (:language "javascript" :ext "js" :agtype "js" :rgtype "js") (:language "javascript" :ext "jsx" :agtype "js" :rgtype "js") (:language "javascript" :ext "vue" :agtype "js" :rgtype "js") (:language "javascript" :ext "html" :agtype "html" :rgtype "html") (:language "javascript" :ext "css" :agtype "css" :rgtype "css") (:language "dart" :ext "dart" :agtype nil :rgtype "dart") (:language "lua" :ext "lua" :agtype "lua" :rgtype "lua") ;; the extension "m" is also used by obj-c so must use matlab-mode ;; since obj-c will win by file extension, but here for searcher types (:language "matlab" :ext "m" :agtype "matlab" :rgtype "matlab") (:language "nim" :ext "nim" :agtype "nim" :rgtype "nim") (:language "nix" :ext "nix" :agtype "nix" :rgtype "nix") (:language "org" :ext "org" :agtype nil :rgtype "org") (:language "perl" :ext "pl" :agtype "perl" :rgtype "perl") (:language "perl" :ext "pm" :agtype "perl" :rgtype "perl") (:language "perl" :ext "pm6" :agtype "perl" :rgtype nil) (:language "perl" :ext "perl" :agtype nil :rgtype "perl") (:language "perl" :ext "plh" :agtype nil :rgtype "perl") (:language "perl" :ext "plx" :agtype nil :rgtype "perl") (:language "perl" :ext "pod" :agtype "perl" :rgtype "pod") (:language "perl" :ext "t" :agtype "perl" :rgtype nil) (:language "php" :ext "php" :agtype "php" :rgtype "php") (:language "php" :ext "php3" :agtype "php" :rgtype "php") (:language "php" :ext "php4" :agtype "php" :rgtype "php") (:language "php" :ext "php5" :agtype "php" :rgtype "php") (:language "php" :ext "phtml" :agtype "php" :rgtype "php") (:language "php" :ext "inc" :agtype "php" :rgtype nil) (:language "python" :ext "py" :agtype "python" :rgtype "py") (:language "r" :ext "R" :agtype "r" :rgtype "r") (:language "r" :ext "r" :agtype "r" :rgtype "r") (:language "r" :ext "Rmd" :agtype "r" :rgtype "r") (:language "r" :ext "Rnw" :agtype "r" :rgtype "r") (:language "r" :ext "Rtex" :agtype "r" :rgtype nil) (:language "r" :ext "Rrst" :agtype "r" :rgtype nil) (:language "crystal" :ext "cr" :agtype "crystal" :rgtype "crystal") (:language "crystal" :ext "ecr" :agtype "crystal" :rgtype nil) (:language "ruby" :ext "rb" :agtype "ruby" :rgtype "ruby") (:language "ruby" :ext "erb" :agtype "ruby" :rgtype nil) (:language "ruby" :ext "haml" :agtype "ruby" :rgtype nil) (:language "ruby" :ext "rake" :agtype "ruby" :rgtype nil) (:language "ruby" :ext "slim" :agtype "ruby" :rgtype nil) (:language "rust" :ext "rs" :agtype "rust" :rgtype "rust") (:language "scala" :ext "scala" :agtype "scala" :rgtype "scala") (:language "scheme" :ext "scm" :agtype "scheme" :rgtype "lisp") (:language "scheme" :ext "ss" :agtype "scheme" :rgtype "lisp") (:language "scheme" :ext "sld" :agtype "scheme" :rgtype "lisp") (:language "shell" :ext "sh" :agtype nil :rgtype nil) (:language "shell" :ext "bash" :agtype nil :rgtype nil) (:language "shell" :ext "csh" :agtype nil :rgtype nil) (:language "shell" :ext "ksh" :agtype nil :rgtype nil) (:language "shell" :ext "tcsh" :agtype nil :rgtype nil) (:language "sml" :ext "sml" :agtype "sml" :rgtype "sml") (:language "sql" :ext "sql" :agtype "sql" :rgtype "sql") (:language "swift" :ext "swift" :agtype nil :rgtype "swift") (:language "tex" :ext "tex" :agtype "tex" :rgtype "tex") (:language "elixir" :ext "ex" :agtype "elixir" :rgtype "elixir") (:language "elixir" :ext "exs" :agtype "elixir" :rgtype "elixir") (:language "elixir" :ext "eex" :agtype "elixir" :rgtype "elixir") (:language "erlang" :ext "erl" :agtype "erlang" :rgtype "erlang") (:language "systemverilog" :ext "sv" :agtype "verilog" :rgtype "verilog") (:language "systemverilog" :ext "svh" :agtype "verilog" :rgtype "verilog") (:language "vhdl" :ext "vhd" :agtype "vhdl" :rgtype "vhdl") (:language "vhdl" :ext "vhdl" :agtype "vhdl" :rgtype "vhdl") (:language "scss" :ext "scss" :agtype "css" :rgtype "css") (:language "pascal" :ext "pas" :agtype "delphi" :rgtype nil) (:language "pascal" :ext "dpr" :agtype "delphi" :rgtype nil) (:language "pascal" :ext "int" :agtype "delphi" :rgtype nil) (:language "pascal" :ext "dfm" :agtype "delphi" :rgtype nil) (:language "fsharp" :ext "fs" :agtype "fsharp" :rgtype nil) (:language "fsharp" :ext "fsi" :agtype "fsharp" :rgtype nil) (:language "fsharp" :ext "fsx" :agtype "fsharp" :rgtype nil)) "Mapping of programming language(s) to file extensions." :group 'dumb-jump :type '(repeat (plist :options ((:language (string :tag "Language")) (:ext (string :tag "Extension")) (:agtype (string :tag "Ag type")) (:rgtype (string :tag "Ripgrep type")))))) (defcustom dumb-jump-language-contexts '((:language "javascript" :type "function" :right "^(" :left nil) (:language "javascript" :type "variable" :right nil :left "($") (:language "javascript" :type "variable" :right "^)" :left "($") (:language "javascript" :type "variable" :right "^\\." :left nil) (:language "javascript" :type "variable" :right "^;" :left nil) (:language "perl" :type "function" :right "^(" :left nil) (:language "elisp" :type "function" :right nil :left "($") (:language "elisp" :type "variable" :right "^)" :left nil) (:language "scheme" :type "function" :right nil :left "($") (:language "scheme" :type "variable" :right "^)" :left nil)) "List of under points contexts for each language. This helps limit the number of regular expressions we use if we know that if there's a '(' immediately to the right of a symbol then it's probably a function call" :group 'dumb-jump :type '(repeat (plist :options ((:language (string :tag "Language")) (:type (choice (const "function") (const "variable"))) (:left (choice (const :tag "Anything" nil) (string :tag "Regular expression"))) (:right (choice (const :tag "Anything" nil) (string :tag "Regular expression"))))))) (defcustom dumb-jump-project-denoters '(".dumbjump" ".projectile" ".git" ".hg" ".fslckout" ".bzr" "_darcs" ".svn" "Makefile" "PkgInfo" "-pkg.el") "Files and directories that signify a directory is a project root." :group 'dumb-jump :type '(repeat (string :tag "Name"))) (defcustom dumb-jump-default-project "~" "The default project to search within if a project root is not found." :group 'dumb-jump :type 'string) (defcustom dumb-jump-project nil "The project to search within if normal denoters will not work. This should only be needed in the rarest of cases." :group 'dumb-jump :type 'string) (defcustom dumb-jump-after-jump-hook nil "Hooks called after jumping." :type 'hook :group 'dumb-jump :type 'hook) (defcustom dumb-jump-aggressive nil "If `t` jump aggressively with the possiblity of a false positive. If `nil` always show list of more than 1 match." :group 'dumb-jump :type 'boolean) (defcustom dumb-jump-debug nil "If `t` will print helpful debug information." :group 'dumb-jump :type 'boolean) (defcustom dumb-jump-confirm-jump-to-modified-file t "If t, confirm before jumping to a modified file (which may lead to an inaccurate jump). If nil, jump without confirmation but print a warning." :group 'dumb-jump :type 'boolean) (defun dumb-jump-message-prin1 (str &rest args) "Helper function when debugging apply STR 'prin1-to-string' to all ARGS." (apply 'message str (-map 'prin1-to-string args))) (defvar dumb-jump--ag-installed? 'unset) (defun dumb-jump-ag-installed? () "Return t if ag is installed." (if (eq dumb-jump--ag-installed? 'unset) (setq dumb-jump--ag-installed? (s-contains? "ag version" (shell-command-to-string (concat dumb-jump-ag-cmd " --version")))) dumb-jump--ag-installed?)) (defvar dumb-jump--git-grep-plus-ag-installed? 'unset) (defun dumb-jump-git-grep-plus-ag-installed? () "Return t if git grep and ag is installed." (if (eq dumb-jump--git-grep-plus-ag-installed? 'unset) (setq dumb-jump--git-grep-plus-ag-installed? (and (dumb-jump-git-grep-installed?) (dumb-jump-ag-installed?))) dumb-jump--git-grep-plus-ag-installed?)) (defvar dumb-jump--rg-installed? 'unset) (defun dumb-jump-rg-installed? () "Return t if rg is installed." (if (eq dumb-jump--rg-installed? 'unset) (setq dumb-jump--rg-installed? (let ((result (s-match "ripgrep \\([0-9]+\\)\\.\\([0-9]+\\).*" (shell-command-to-string (concat dumb-jump-rg-cmd " --version"))))) (when (equal (length result) 3) (let ((major (string-to-number (nth 1 result))) (minor (string-to-number (nth 2 result)))) (or (and (= major 0) (>= minor 10)) (>= major 1)))))) dumb-jump--rg-installed?)) (defvar dumb-jump--git-grep-installed? 'unset) (defun dumb-jump-git-grep-installed? () "Return t if git-grep is installed." (if (eq dumb-jump--git-grep-installed? 'unset) (setq dumb-jump--git-grep-installed? (s-contains? "fatal: no pattern given" (shell-command-to-string (concat dumb-jump-git-grep-cmd)))) dumb-jump--git-grep-installed?)) (defvar dumb-jump--grep-installed? 'unset) (defun dumb-jump-grep-installed? () "Return 'gnu if GNU grep is installed, 'bsd if BSD grep is installed, and nil otherwise." (if (eq dumb-jump--grep-installed? 'unset) (let* ((version (shell-command-to-string (concat dumb-jump-grep-cmd " --version"))) (variant (cond ((s-match "GNU grep" version) 'gnu) ((s-match "[0-9]+\\.[0-9]+" version) 'bsd) (t nil)))) (setq dumb-jump--grep-installed? variant)) dumb-jump--grep-installed?)) (defun dumb-jump-find-start-pos (line-in look-for cur-pos) "Find start column position for LINE-IN of LOOK-FOR using CUR-POS as a hint." (let ((is-found nil) (line (s-replace "\t" (s-repeat tab-width " ") line-in))) (while (and (> cur-pos 0) (not is-found)) (let* ((char (substring line cur-pos (1+ cur-pos))) (is-at (s-index-of char look-for))) (if (null is-at) (setq is-found t) (setq cur-pos (1- cur-pos))))) (1+ cur-pos))) (defun dumb-jump-run-test (test cmd) "Use TEST as the standard input for the CMD." (with-temp-buffer (insert test) (shell-command-on-region (point-min) (point-max) cmd nil t) (buffer-substring-no-properties (point-min) (point-max)))) (defun dumb-jump-run-test-temp-file (test thefile realcmd) "Write content to the temporary file, run cmd on it, return result" (with-temp-buffer (insert test) (write-file thefile nil) (delete-region (point-min) (point-max)) (shell-command realcmd t) (delete-file thefile) (buffer-substring-no-properties (point-min) (point-max)))) (defun dumb-jump-run-git-grep-test (test cmd) "Use string TEST as input through a local, temporary file for CMD. Because git grep must be given a file as input, not just a string." (let ((thefile ".git.grep.test")) (dumb-jump-run-test-temp-file test thefile (concat cmd " " thefile)))) (defun dumb-jump-run-ag-test (test cmd) "Use TEST as input, but first write it into temporary file and then run ag on it. The difference is that ag ignores multiline matches when passed input from stdin, which is a crucial feature." (let ((thefile ".ag.test")) (dumb-jump-run-test-temp-file test thefile (concat cmd " " thefile)))) (defun dumb-jump-test-grep-rules (&optional run-not-tests) "Test all the grep rules and return count of those that fail. Optionally pass t for RUN-NOT-TESTS to see a list of all failed rules." (let ((fail-tmpl "grep FAILURE '%s' %s in response '%s' | CMD: '%s' | rule: '%s'") (variant (if (eq (dumb-jump-grep-installed?) 'gnu) 'gnu-grep 'grep))) (-mapcat (lambda (rule) (-mapcat (lambda (test) (let* ((cmd (concat "grep -En -e " (shell-quote-argument (dumb-jump-populate-regex (plist-get rule :regex) "test" variant)))) (resp (dumb-jump-run-test test cmd))) (when (or (and (not run-not-tests) (not (s-contains? test resp))) (and run-not-tests (> (length resp) 0))) (list (format fail-tmpl (if run-not-tests "not" "") test (if run-not-tests "IS unexpectedly" "NOT") resp cmd (plist-get rule :regex)))))) (plist-get rule (if run-not-tests :not :tests)))) (--filter (member "grep" (plist-get it :supports)) dumb-jump-find-rules)))) (defun dumb-jump-test-ag-rules (&optional run-not-tests) "Test all the ag rules and return count of those that fail. Optionally pass t for RUN-NOT-TESTS to see a list of all failed rules" (let ((fail-tmpl "ag FAILURE '%s' %s in response '%s' | CMD: '%s' | rule: '%s'")) (-mapcat (lambda (rule) (-mapcat (lambda (test) (let* ((cmd (concat "ag --nocolor --nogroup --nonumber " (shell-quote-argument (dumb-jump-populate-regex (plist-get rule :regex) "test" 'ag)))) (resp (dumb-jump-run-ag-test test cmd))) (when (or (and (not run-not-tests) (not (s-contains? test resp))) (and run-not-tests (> (length resp) 0))) (list (format fail-tmpl test (if run-not-tests "IS unexpectedly" "NOT") resp cmd rule))))) (plist-get rule (if run-not-tests :not :tests)))) (--filter (member "ag" (plist-get it :supports)) dumb-jump-find-rules)))) (defun dumb-jump-test-rg-rules (&optional run-not-tests) "Test all the rg rules and return count of those that fail. Optionally pass t for RUN-NOT-TESTS to see a list of all failed rules" (let ((fail-tmpl "rg FAILURE '%s' %s in response '%s' | CMD: '%s' | rule: '%s'")) (-mapcat (lambda (rule) (-mapcat (lambda (test) (let* ((cmd (concat "rg --color never --no-heading -U --pcre2 " (shell-quote-argument (dumb-jump-populate-regex (plist-get rule :regex) "test" 'rg)))) (resp (dumb-jump-run-test test cmd))) (when (or (and (not run-not-tests) (not (s-contains? test resp))) (and run-not-tests (> (length resp) 0))) (list (format fail-tmpl test (if run-not-tests "IS unexpectedly" "NOT") resp cmd rule))))) (plist-get rule (if run-not-tests :not :tests)))) (--filter (member "rg" (plist-get it :supports)) dumb-jump-find-rules)))) (defun dumb-jump-test-git-grep-rules (&optional run-not-tests) "Test all the git grep rules and return count of those that fail. Optionally pass t for RUN-NOT-TESTS to see a list of all failed rules" (let ((fail-tmpl "rg FAILURE '%s' %s in response '%s' | CMD: '%s' | rule: '%s'")) (-mapcat (lambda (rule) (-mapcat (lambda (test) (let* ((cmd (concat "git grep --color=never -h --untracked -E " (shell-quote-argument (dumb-jump-populate-regex (plist-get rule :regex) "test" 'git-grep)))) (resp (dumb-jump-run-git-grep-test test cmd))) (when (or (and (not run-not-tests) (not (s-contains? test resp))) (and run-not-tests (> (length resp) 0))) (list (format fail-tmpl test (if run-not-tests "IS unexpectedly" "NOT") resp cmd rule))))) (plist-get rule (if run-not-tests :not :tests)))) (--filter (member "grep" (plist-get it :supports)) dumb-jump-find-rules)))) (defun dumb-jump-message (str &rest args) "Log message STR with ARGS to the *Messages* buffer if not using dumb-jump-quiet." (when (not dumb-jump-quiet) (apply 'message str args))) (defun dumb-jump-get-point-context (line func cur-pos) "Get the LINE context to the left and right of FUNC using CUR-POS as hint." (let* ((loc (dumb-jump-find-start-pos line func cur-pos)) (func-len (length func)) (sen-len (length line)) (right-loc-start (+ loc func-len)) (right-loc-end (length line)) (left (substring line 0 loc)) (right (if (> right-loc-end sen-len) "" (substring line right-loc-start right-loc-end)))) `(:left ,left :right ,right))) (defun dumb-jump-to-selected (results choices selected) "With RESULTS use CHOICES to find the SELECTED choice from multiple options." (let* ((result-index (--find-index (string= selected it) choices)) (result (when result-index (nth result-index results)))) (when result (dumb-jump-result-follow result)))) (defun dumb-jump-helm-persist-action (candidate) "Previews CANDIDATE in a temporary buffer displaying the file at the matched line. \\ This is the persistent action (\\[helm-execute-persistent-action]) for helm." (let* ((file (plist-get candidate :path)) (line (plist-get candidate :line)) (default-directory-old default-directory)) (switch-to-buffer (get-buffer-create " *helm dumb jump persistent*")) (setq default-directory default-directory-old) (fundamental-mode) (erase-buffer) (insert-file-contents file) (let ((buffer-file-name file)) (set-auto-mode) (font-lock-fontify-region (point-min) (point-max)) (goto-char (point-min)) (forward-line (1- line))))) (defun dumb-jump--format-result (proj result) (format "%s:%s: %s" (s-replace proj "" (plist-get result :path)) (plist-get result :line) (s-trim (plist-get result :context)))) (defun dumb-jump-ivy-jump-to-selected (results choices proj) "Offer CHOICES as canidates through ivy-read then execute dumb-jump-to-selected on RESULTS CHOICES and selected choice. Ignore PROJ" (dumb-jump-to-selected results choices (ivy-read "Jump to: " choices))) (defun dumb-jump-prompt-user-for-choice (proj results) "Put a PROJ's list of RESULTS in a 'popup-menu' (or helm/ivy) for user to select. Filters PROJ path from files for display." (let ((choices (--map (dumb-jump--format-result proj it) results))) (cond ((and (eq dumb-jump-selector 'ivy) (fboundp 'ivy-read)) (funcall dumb-jump-ivy-jump-to-selected-function results choices proj)) ((and (eq dumb-jump-selector 'helm) (fboundp 'helm)) (helm :sources (helm-build-sync-source "Jump to: " :action '(("Jump to match" . dumb-jump-result-follow)) :candidates (-zip choices results) :persistent-action 'dumb-jump-helm-persist-action) :buffer "*helm dumb jump choices*")) (t (dumb-jump-to-selected results choices (popup-menu* choices)))))) (defun dumb-jump-get-project-root (filepath) "Keep looking at the parent dir of FILEPATH until a denoter file/dir is found." (s-chop-suffix "/" (f-expand (or dumb-jump-project (locate-dominating-file filepath #'dumb-jump-get-config) dumb-jump-default-project)))) (defun dumb-jump-get-config (dir) "If a project denoter is in DIR then return it, otherwise nil. However, if DIR contains a `.dumbjumpignore' it returns nil to keep looking for another root." (if (f-exists? (f-join dir ".dumbjumpignore")) nil (car (--filter (f-exists? (f-join dir it)) dumb-jump-project-denoters)))) (defun dumb-jump-get-language (file) "Get language from FILE extension and then fallback to using 'major-mode' name." (let* ((languages (-distinct (--map (plist-get it :language) dumb-jump-find-rules))) (language (or (dumb-jump-get-language-from-mode) (dumb-jump-get-language-by-filename file) (dumb-jump-get-mode-base-name)))) (if (member language languages) language (format ".%s file" (or (f-ext file) ""))))) (defun dumb-jump-get-mode-base-name () "Get the base name of the mode." (s-replace "-mode" "" (symbol-name major-mode))) (defun dumb-jump-get-language-from-mode () "Extract the language from the 'major-mode' name. Currently just everything before '-mode'." (let* ((lookup '(sh "shell" cperl "perl" matlab "matlab")) (m (dumb-jump-get-mode-base-name)) (result (plist-get lookup (intern m)))) result)) (defun dumb-jump-get-language-by-filename (file) "Get the programming language from the FILE." (let* ((filename (if (s-ends-with? ".gz" file) (f-no-ext file) file)) (result (--filter (s-ends-with? (concat "." (plist-get it :ext)) filename) dumb-jump-language-file-exts))) (when result (plist-get (car result) :language)))) (defun dumb-jump-issue-result (issue) "Return a result property list with the ISSUE set as :issue property symbol." `(:results nil :lang nil :symbol nil :ctx-type nil :file nil :root nil :issue ,(intern issue))) (defun dumb-jump-get-results (&optional prompt) "Run dumb-jump-fetch-results if searcher installed, buffer is saved, and there's a symbol under point." (cond ((not (or (dumb-jump-ag-installed?) (dumb-jump-rg-installed?) (dumb-jump-git-grep-installed?) (dumb-jump-grep-installed?))) (dumb-jump-issue-result "nogrep")) ((or (string= (buffer-name) "*shell*") (string= (buffer-name) "*eshell*")) (dumb-jump-fetch-shell-results prompt)) ((and (not prompt) (not (region-active-p)) (not (thing-at-point 'symbol))) (dumb-jump-issue-result "nosymbol")) (t (dumb-jump-fetch-file-results prompt)))) (defun dumb-jump-fetch-shell-results (&optional prompt) (let* ((cur-file (buffer-name)) (proj-root (dumb-jump-get-project-root default-directory)) (proj-config (dumb-jump-get-config proj-root)) (config (when (s-ends-with? ".dumbjump" proj-config) (dumb-jump-read-config proj-root proj-config))) (lang (or (plist-get config :language) (car (dumb-jump-get-lang-by-shell-contents (buffer-name)))))) (dumb-jump-fetch-results cur-file proj-root lang config prompt))) (defun dumb-jump-fetch-file-results (&optional prompt) (let* ((cur-file (or (buffer-file-name) "")) (proj-root (dumb-jump-get-project-root cur-file)) (proj-config (dumb-jump-get-config proj-root)) (config (when (s-ends-with? ".dumbjump" proj-config) (dumb-jump-read-config proj-root proj-config))) (lang (or (plist-get config :language) (dumb-jump-get-language cur-file)))) (dumb-jump-fetch-results cur-file proj-root lang config prompt))) (defun dumb-jump-process-symbol-by-lang (lang look-for) "Process LANG's LOOK-FOR. For instance, clojure needs namespace part removed." (cond ((and (string= lang "clojure") (s-contains? "/" look-for)) (nth 1 (s-split "/" look-for))) ((and (string= lang "ruby") (s-contains? "::" look-for)) (-last-item (s-split "::" look-for))) ((and (or (string= lang "ruby") (string= lang "crystal")) (s-starts-with? ":" look-for)) (s-chop-prefix ":" look-for)) ((and (string= lang "systemverilog") (s-starts-with? "`" look-for)) (s-chop-prefix "`" look-for)) (t look-for))) (defun dumb-jump-get-point-line () "Get line at point." (if (version< emacs-version "24.4") (thing-at-point 'line) (thing-at-point 'line t))) (defun dumb-jump-get-point-symbol () "Get symbol at point." (if (region-active-p) (buffer-substring-no-properties (region-beginning) (region-end)) (if (version< emacs-version "24.4") (thing-at-point 'symbol) (thing-at-point 'symbol t)))) (defun dumb-jump-get-lang-by-shell-contents (buffer) "Return languages in BUFFER by checking if file extension is mentioned." (let* ((buffer-contents (with-current-buffer buffer (buffer-string))) (found (--filter (s-match (concat "\\." (plist-get it :ext) "\\b") buffer-contents) dumb-jump-language-file-exts))) (--map (plist-get it :language) found))) (defun dumb-jump-fetch-results (cur-file proj-root lang config &optional prompt) "Return a list of results based on current file context and calling grep/ag. CUR-FILE is the path of the current buffer. PROJ-ROOT is that file's root project directory. LANG is a string programming langage with CONFIG a property list of project configuraiton." (let* ((cur-line (if prompt 0 (dumb-jump-get-point-line))) (look-for-start (when (not prompt) (- (car (bounds-of-thing-at-point 'symbol)) (point-at-bol)))) (cur-line-num (line-number-at-pos)) (proj-config (dumb-jump-get-config proj-root)) (config (when (s-ends-with? ".dumbjump" proj-config) (dumb-jump-read-config proj-root proj-config))) (found-symbol (or prompt (dumb-jump-get-point-symbol))) (look-for (or prompt (dumb-jump-process-symbol-by-lang lang found-symbol))) (pt-ctx (if (and (not prompt) (not (string= cur-line look-for))) (dumb-jump-get-point-context cur-line look-for look-for-start) nil)) (ctx-type (dumb-jump-get-ctx-type-by-language lang pt-ctx)) (gen-funcs (dumb-jump-pick-grep-variant proj-root)) (parse-fn (plist-get gen-funcs :parse)) (generate-fn (plist-get gen-funcs :generate)) (searcher (plist-get gen-funcs :searcher)) (regexes (dumb-jump-get-contextual-regexes lang ctx-type searcher)) (exclude-paths (when config (plist-get config :exclude))) (include-paths (when config (plist-get config :include))) ; we will search proj root and all include paths (search-paths (-distinct (-concat (list proj-root) include-paths))) ; run command for all (raw-results (--mapcat ;; TODO: should only pass exclude paths to actual project root (dumb-jump-run-command look-for it regexes lang exclude-paths cur-file cur-line-num parse-fn generate-fn) search-paths)) (results (delete-dups (--map (plist-put it :target look-for) raw-results)))) `(:results ,results :lang ,(if (null lang) "" lang) :symbol ,look-for :ctx-type ,(if (null ctx-type) "" ctx-type) :file ,cur-file :root ,proj-root))) ;;;###autoload (defun dumb-jump-back () "Jump back to where the last jump was done." (interactive) (pop-tag-mark) (with-demoted-errors "Error running `dumb-jump-after-jump-hook': %S" (run-hooks 'dumb-jump-after-jump-hook))) ;;;###autoload (defun dumb-jump-quick-look () "Run dumb-jump-go in quick look mode. That is, show a tooltip of where it would jump instead." (interactive) (dumb-jump-go t)) ;;;###autoload (defun dumb-jump-go-other-window () "Like 'dumb-jump-go' but use 'find-file-other-window' instead of 'find-file'." (interactive) (let ((dumb-jump-window 'other)) (dumb-jump-go))) ;;;###autoload (defun dumb-jump-go-current-window () "Like dumb-jump-go but always use 'find-file'." (interactive) (let ((dumb-jump-window 'current)) (dumb-jump-go))) ;;;###autoload (defun dumb-jump-go-prefer-external () "Like dumb-jump-go but prefer external matches from the current file." (interactive) (dumb-jump-go nil t)) ;;;###autoload (defun dumb-jump-go-prompt () "Like dumb-jump-go but prompts for function instead of using under point" (interactive) (dumb-jump-go nil nil (read-from-minibuffer "Jump to: "))) ;;;###autoload (defun dumb-jump-go-prefer-external-other-window () "Like dumb-jump-go-prefer-external but use 'find-file-other-window' instead of 'find-file'." (interactive) (let ((dumb-jump-window 'other)) (dumb-jump-go-prefer-external))) ;;;###autoload (defun dumb-jump-go (&optional use-tooltip prefer-external prompt) "Go to the function/variable declaration for thing at point. When USE-TOOLTIP is t a tooltip jump preview will show instead. When PREFER-EXTERNAL is t it will sort external matches before current file." (interactive "P") (let* ((start-time (float-time)) (info (dumb-jump-get-results prompt)) (end-time (float-time)) (fetch-time (- end-time start-time)) (results (plist-get info :results)) (look-for (or prompt (plist-get info :symbol))) (proj-root (plist-get info :root)) (issue (plist-get info :issue)) (lang (plist-get info :lang)) (result-count (length results))) (cond ((> fetch-time dumb-jump-max-find-time) (dumb-jump-message "Took over %ss to find '%s'. Please install ag or rg, or add a .dumbjump file to '%s' with path exclusions" (number-to-string dumb-jump-max-find-time) look-for proj-root)) ((eq issue 'nogrep) (dumb-jump-message "Please install ag, rg, git grep or grep!")) ((eq issue 'nosymbol) (dumb-jump-message "No symbol under point.")) ((s-ends-with? " file" lang) (dumb-jump-message "Could not find rules for '%s'." lang)) ((= result-count 1) (dumb-jump-result-follow (car results) use-tooltip proj-root)) ((> result-count 1) ;; multiple results so let the user pick from a list ;; unless the match is in the current file (dumb-jump-handle-results results (plist-get info :file) proj-root (plist-get info :ctx-type) look-for use-tooltip prefer-external)) ((= result-count 0) (dumb-jump-message "'%s' %s %s declaration not found." look-for (if (s-blank? lang) "with unknown language so" lang) (plist-get info :ctx-type)))))) (defcustom dumb-jump-language-comments '((:comment "//" :language "c++") (:comment ";" :language "elisp") (:comment ";" :language "commonlisp") (:comment "//" :language "javascript") (:comment "//" :language "dart") (:comment "--" :language "haskell") (:comment "--" :language "lua") (:comment "//" :language "rust") (:comment "#" :language "julia") (:comment "//" :language "objc") (:comment "//" :language "csharp") (:comment "//" :language "java") (:comment ";" :language "clojure") (:comment "#" :language "coffeescript") (:comment "//" :language "faust") (:comment "!" :language "fortran") (:comment "//" :language "go") (:comment "#" :language "perl") (:comment "//" :language "php") (:comment "#" :language "python") (:comment "%" :language "matlab") (:comment "#" :language "r") (:comment "#" :language "ruby") (:comment "#" :language "crystal") (:comment "#" :language "nim") (:comment "#" :language "nix") (:comment "//" :language "scala") (:comment ";" :language "scheme") (:comment "#" :language "shell") (:comment "//" :language "swift") (:comment "#" :language "elixir") (:comment "%" :language "erlang") (:comment "%" :language "tex") (:comment "//" :language "systemverilog") (:comment "--" :language "vhdl") (:comment "//" :language "scss") (:comment "//" :language "pascal")) "List of one-line comments organized by language." :group 'dumb-jump :type '(repeat (plist :options ((:comment string) (:language string))))) (defun dumb-jump-get-comment-by-language (lang) "Yields the one-line comment for the given LANG." (let* ((entries (-distinct (--filter (string= (plist-get it :language) lang) dumb-jump-language-comments)))) (if (= 1 (length entries)) (plist-get (car entries) :comment) nil))) (defun dumb-jump-filter-no-start-comments (results lang) "Filter out RESULTS with a :context that starts with a comment given the LANG of the current file." (let ((comment (dumb-jump-get-comment-by-language lang))) (if comment (-concat (--filter (not (s-starts-with? comment (s-trim (plist-get it :context)))) results)) results))) (defun dumb-jump-handle-results (results cur-file proj-root ctx-type look-for use-tooltip prefer-external) "Handle the searchers results. RESULTS is a list of property lists with the searcher's results. CUR-FILE is the current file within PROJ-ROOT. CTX-TYPE is a string of the current context. LOOK-FOR is the symbol we're jumping for. USE-TOOLTIP shows a preview instead of jumping. PREFER-EXTERNAL will sort current file last." "Figure which of the RESULTS to jump to. Favoring the CUR-FILE" (let* ((lang (dumb-jump-get-language-by-filename cur-file)) (match-sorted (-sort (lambda (x y) (< (plist-get x :diff) (plist-get y :diff))) results)) (match-no-comments (dumb-jump-filter-no-start-comments match-sorted lang)) ;; Find the relative current file path by the project root. In some cases the results will ;; not be absolute but relative and the "current file" filters must match in both ;; cases. Also works when current file is in an arbitrary sub folder. (rel-cur-file (cond ((and (s-starts-with? proj-root cur-file) (s-starts-with? default-directory cur-file)) (substring cur-file (length default-directory) (length cur-file))) ((and (s-starts-with? proj-root cur-file) (not (s-starts-with? default-directory cur-file))) (substring cur-file (1+ (length proj-root)) (length cur-file))) (t cur-file))) ;; Moves current file results to the front of the list, unless PREFER-EXTERNAL then put ;; them last. (match-cur-file-front (if (not prefer-external) (-concat (--filter (and (> (plist-get it :diff) 0) (or (string= (plist-get it :path) cur-file) (string= (plist-get it :path) rel-cur-file))) match-no-comments) (--filter (and (<= (plist-get it :diff) 0) (or (string= (plist-get it :path) cur-file) (string= (plist-get it :path) rel-cur-file))) match-no-comments) ;; Sort non-current files by path length so the nearest file is more likely to be ;; sorted higher to the top. Also sorts by line number for sanity. (-sort (lambda (x y) (and (< (plist-get x :line) (plist-get y :line)) (< (length (plist-get x :path)) (length (plist-get y :path))))) (--filter (not (or (string= (plist-get it :path) cur-file) (string= (plist-get it :path) rel-cur-file))) match-no-comments))) (-concat (-sort (lambda (x y) (and (< (plist-get x :line) (plist-get y :line)) (< (length (plist-get x :path)) (length (plist-get y :path))))) (--filter (not (or (string= (plist-get it :path) cur-file) (string= (plist-get it :path) rel-cur-file))) match-no-comments)) (--filter (or (string= (plist-get it :path) cur-file) (string= (plist-get it :path) rel-cur-file)) match-no-comments)))) (matches (if (not prefer-external) (-distinct (append (dumb-jump-current-file-results cur-file match-cur-file-front) (dumb-jump-current-file-results rel-cur-file match-cur-file-front))) match-cur-file-front)) (var-to-jump (car matches)) ;; TODO: handle if ctx-type is null but ALL results are variable ;; When non-aggressive it should only jump when there is only one match, regardless of ;; context. (do-var-jump (and (or dumb-jump-aggressive (= (length match-cur-file-front) 1)) (or (= (length matches) 1) (string= ctx-type "variable") (string= ctx-type "")) var-to-jump))) (when dumb-jump-debug (dumb-jump-message "-----\nDUMB JUMP DEBUG `dumb-jump-handle-results` START\n----- \n\nlook for: \n\t%s\n\ntype: \n\t%s \n\njump? \n\t%s \n\nmatches: \n\t%s \n\nresults: \n\t%s \n\nprefer external: \n\t%s\n\nmatch-cur-file-front: \n\t%s\n\nproj-root: \n\t%s\n\ncur-file: \n\t%s\n\nreal-cur-file: \n\t%s \n\n-----\nDUMB JUMP DEBUG `dumb-jump-handle-results` END\n-----\n" look-for ctx-type var-to-jump (pp-to-string match-cur-file-front) (pp-to-string results) prefer-external match-cur-file-front proj-root cur-file rel-cur-file)) (cond (use-tooltip ;; quick-look mode (popup-menu* (--map (dumb-jump--format-result proj-root it) results))) (do-var-jump (dumb-jump-result-follow var-to-jump use-tooltip proj-root)) (t (dumb-jump-prompt-user-for-choice proj-root match-cur-file-front))))) (defun dumb-jump-read-config (root config-file) "Load and return options (exclusions, inclusions, etc). Ffrom the ROOT project CONFIG-FILE." (let* ((contents (f-read-text (f-join root config-file))) (lines (s-split "\n" contents)) (lang-match (s-match "^language \\\(.+\\\)$" contents)) (lang (when (= (length lang-match) 2) (nth 1 lang-match))) (exclude-lines (--filter (s-starts-with? "-" it) lines)) (include-lines (--filter (s-starts-with? "+" it) lines)) (local-root (if (file-remote-p root) (tramp-file-name-localname (tramp-dissect-file-name root)) root)) (exclude-paths (-map (lambda (f) (let* ((dir (substring f 1)) (use-dir (if (s-starts-with? "/" dir) (substring dir 1) dir))) (f-join local-root use-dir))) exclude-lines)) (include-paths (-map (lambda (f) (let* ((dir (substring f 1))) (if (s-starts-with? "/" dir) dir ;; absolute paths are allowed ;; TODO: warn if an include path is already a child of proj-root (f-join local-root dir)))) include-lines))) `(:exclude ,exclude-paths :include ,include-paths :language ,lang))) (defun dumb-jump-file-modified-p (path) "Check if PATH is currently open in Emacs and has a modified buffer." (let ((modified-file-buffers (--filter (and (buffer-modified-p it) (buffer-file-name it) (file-exists-p (buffer-file-name it))) (buffer-list)))) (member (f-full path) (--map (buffer-file-name it) modified-file-buffers)))) (defun dumb-jump-result-follow (result &optional use-tooltip proj) "Take the RESULT to jump to and record the jump, for jumping back, and then trigger jump. If dumb-jump-confirm-jump-to-modified-file is t, prompt if we should continue if destination has been modified. If it is nil, display a warning." (if (dumb-jump-file-modified-p (plist-get result :path)) (let ((target-file (plist-get result :path))) (if dumb-jump-confirm-jump-to-modified-file (when (y-or-n-p (concat target-file " has been modified so we may have the wrong location. Continue?")) (dumb-jump--result-follow result use-tooltip proj)) (progn (message "Warning: %s has been modified so we may have the wrong location." target-file) (dumb-jump--result-follow result use-tooltip proj)))) (dumb-jump--result-follow result use-tooltip proj))) (defun dumb-jump--result-follow (result &optional use-tooltip proj) "Take the RESULT to jump to and record the jump, for jumping back, and then trigger jump." (let* ((target-boundary (s-matched-positions-all (concat "\\b" (regexp-quote (plist-get result :target)) "\\b") (plist-get result :context))) ;; column pos is either via tpos from ag or by using the regex above or last using old s-index-of (pos (if target-boundary (car (car target-boundary)) (s-index-of (plist-get result :target) (plist-get result :context)))) (result-path (plist-get result :path)) ;; Return value is either a string like "/ssh:user@1.2.3.4:" or nil (tramp-path-prefix (file-remote-p default-directory)) ;; If result-path is an absolute path, the prefix is added to the head of it, ;; or result-path is added to the end of default-directory (path-for-tramp (when (and result-path tramp-path-prefix) (if (f-absolute? result-path) (concat tramp-path-prefix result-path) (concat default-directory result-path)))) (thef (or path-for-tramp result-path)) (line (plist-get result :line))) (when thef (if use-tooltip (popup-tip (dumb-jump--format-result proj result)) (dumb-jump-goto-file-line thef line pos))) ;; return the file for test thef)) (defun dumb-jump-goto-file-line (thefile theline pos) "Open THEFILE and go line THELINE" (if (fboundp 'xref-push-marker-stack) (xref-push-marker-stack) (ring-insert find-tag-marker-ring (point-marker))) (let* ((visible-buffer (find-buffer-visiting thefile)) (visible-window (when visible-buffer (get-buffer-window visible-buffer)))) (cond ((and visible-window dumb-jump-use-visible-window) (select-window visible-window)) ((eq dumb-jump-window 'other) (find-file-other-window thefile)) (t (find-file thefile)))) (goto-char (point-min)) (forward-line (1- theline)) (forward-char pos) (with-demoted-errors "Error running `dumb-jump-after-jump-hook': %S" (run-hooks 'dumb-jump-after-jump-hook))) (defun dumb-jump-current-file-results (path results) "Return the PATH's RESULTS." (let ((matched (--filter (string= path (plist-get it :path)) results))) matched)) (defun dumb-jump-generators-by-searcher (searcher) "For a SEARCHER it yields a response parser, a command generator function, an installed? function, and the corresponding searcher symbol." (cond ((equal 'git-grep searcher) `(:parse ,'dumb-jump-parse-git-grep-response :generate ,'dumb-jump-generate-git-grep-command :installed ,'dumb-jump-git-grep-installed? :searcher ,searcher)) ((equal 'ag searcher) `(:parse ,'dumb-jump-parse-ag-response :generate ,'dumb-jump-generate-ag-command :installed ,'dumb-jump-ag-installed? :searcher ,searcher)) ((equal 'git-grep-plus-ag searcher) `(:parse ,'dumb-jump-parse-ag-response :generate ,'dumb-jump-generate-git-grep-plus-ag-command :installed ,'dumb-jump-git-grep-plus-ag-installed? :searcher ,searcher)) ((equal 'rg searcher) `(:parse ,'dumb-jump-parse-rg-response :generate ,'dumb-jump-generate-rg-command :installed ,'dumb-jump-rg-installed? :searcher ,searcher)) ((equal 'gnu-grep searcher) `(:parse ,'dumb-jump-parse-grep-response :generate ,'dumb-jump-generate-gnu-grep-command :installed ,'dumb-jump-grep-installed? :searcher ,searcher)) ((equal 'grep searcher) `(:parse ,'dumb-jump-parse-grep-response :generate ,'dumb-jump-generate-grep-command :installed ,'dumb-jump-grep-installed? :searcher ,searcher)))) (defun dumb-jump-pick-grep-variant (&optional proj-root) (cond ;; If `dumb-jump-force-searcher' is not nil then use that searcher. (dumb-jump-force-searcher (dumb-jump-generators-by-searcher dumb-jump-force-searcher)) ;; If project root has a .git then use git-grep if installed. ((and proj-root (dumb-jump-git-grep-installed?) (f-exists? (f-join proj-root ".git"))) (dumb-jump-generators-by-searcher 'git-grep)) ;; If `dumb-jump-prefer-searcher' is not nil then use if installed. ((and dumb-jump-prefer-searcher (funcall (plist-get (dumb-jump-generators-by-searcher dumb-jump-prefer-searcher) :installed))) (dumb-jump-generators-by-searcher dumb-jump-prefer-searcher)) ;; Fallback searcher order. ((dumb-jump-ag-installed?) (dumb-jump-generators-by-searcher 'ag)) ((dumb-jump-rg-installed?) (dumb-jump-generators-by-searcher 'rg)) ((eq (dumb-jump-grep-installed?) 'gnu) (dumb-jump-generators-by-searcher 'gnu-grep)) (t (dumb-jump-generators-by-searcher 'grep)))) (defun dumb-jump-shell-command-switch () "Yields the shell command switch to use for the current `shell-file-name' in order to not load the shell profile/RC for speeding up things." (let ((base-name (downcase (file-name-base shell-file-name)))) (cond ((or (string-equal "zsh" base-name) (string-equal "csh" base-name) (string-equal "tcsh" base-name)) "-icf") ((string-equal "bash" base-name) "-c") (t shell-command-switch)))) ;; TODO: rename dumb-jump-run-definition-command (defun dumb-jump-run-command (look-for proj regexes lang exclude-args cur-file line-num parse-fn generate-fn) "Run the grep command based on the needle LOOK-FOR in the directory TOSEARCH" (let* ((proj-root (if (file-remote-p proj) (directory-file-name (tramp-file-name-localname (tramp-dissect-file-name proj))) proj)) (cmd (funcall generate-fn look-for cur-file proj-root regexes lang exclude-args)) (shell-command-switch (dumb-jump-shell-command-switch)) (rawresults (shell-command-to-string cmd))) (when dumb-jump-debug (dumb-jump-message "-----\nDUMB JUMP DEBUG `dumb-jump-run-command` START\n----- \n\ncmd: \n\t%s\n\nraw results: \n\n\t%s \n\n-----\nDUMB JUMP DEBUG `dumb-jump-run-command` END\n-----\n" cmd rawresults)) (when (and (s-blank? rawresults) dumb-jump-fallback-search) (setq regexes (list dumb-jump-fallback-regex)) (setq cmd (funcall generate-fn look-for cur-file proj-root regexes lang exclude-args)) (setq rawresults (shell-command-to-string cmd)) (when dumb-jump-debug (dumb-jump-message "-----\nDUMB JUMP DEBUG `dumb-jump-run-command` (FALLBACK!) START\n----- \n\ncmd: \n\t%s\n\nraw results: \n\t%s \n\n-----\nDUMB JUMP DEBUG `dumb-jump-run-command` (FALLBACK) END\n-----\n" cmd rawresults))) (unless (s-blank? cmd) (let ((results (funcall parse-fn rawresults cur-file line-num))) (--filter (s-contains? look-for (plist-get it :context)) results))))) (defun dumb-jump-parse-response-line (resp-line cur-file) "Parse a search program's single RESP-LINE for CUR-FILE into a list of (path line context)." (let* ((parts (--remove (string= it "") (s-split "\\(?:^\\|:\\)[0-9]+:" resp-line))) (line-num-raw (s-match "\\(?:^\\|:\\)\\([0-9]+\\):" resp-line))) (cond ;; fixes rare bug where context is blank but file is defined "/somepath/file.txt:14:" ;; OR: (and (= (length parts) 1) (f-exists? (f-join (nth 0 parts)))) ((s-match ":[0-9]+:$" resp-line) nil) ((and parts line-num-raw) (if (= (length parts) 2) (list (f-join (nth 0 parts)) (nth 1 line-num-raw) (nth 1 parts)) ; this case is when they are searching a particular file... (list (f-join cur-file) (nth 1 line-num-raw) (nth 0 parts))))))) (defun dumb-jump-parse-response-lines (parsed cur-file cur-line-num) "Turn PARSED response lines into a list of property lists. Using CUR-FILE and CUR-LINE-NUM to exclude jump origin." (let* ((records (--mapcat (when it (let* ((line-num (string-to-number (nth 1 it))) (diff (- cur-line-num line-num))) (list `(:path ,(nth 0 it) :line ,line-num :context ,(nth 2 it) :diff ,diff)))) parsed)) (results (-non-nil records))) (--filter (not (and (string= (plist-get it :path) cur-file) (= (plist-get it :line) cur-line-num))) results))) (defun dumb-jump-parse-grep-response (resp cur-file cur-line-num) "Takes a grep response RESP and parses into a list of plists." (let* ((resp-no-warnings (--filter (and (not (s-starts-with? "grep:" it)) (not (s-contains? "No such file or" it))) (s-split "\n" (s-trim resp)))) (parsed (--map (dumb-jump-parse-response-line it cur-file) resp-no-warnings))) (dumb-jump-parse-response-lines parsed cur-file cur-line-num))) (defun dumb-jump-parse-ag-response (resp cur-file cur-line-num) "Takes a ag response RESP and parses into a list of plists." (let* ((resp-lines (s-split "\n" (s-trim resp))) (parsed (--map (dumb-jump-parse-response-line it cur-file) resp-lines))) (dumb-jump-parse-response-lines parsed cur-file cur-line-num))) (defun dumb-jump-parse-rg-response (resp cur-file cur-line-num) "Takes a rg response RESP and parses into a list of plists." (let* ((resp-lines (s-split "\n" (s-trim resp))) (parsed (--map (dumb-jump-parse-response-line it cur-file) resp-lines))) (dumb-jump-parse-response-lines parsed cur-file cur-line-num))) (defun dumb-jump-parse-git-grep-response (resp cur-file cur-line-num) "Takes a git grep response RESP and parses into a list of plists." (let* ((resp-lines (s-split "\n" (s-trim resp))) (parsed (--map (dumb-jump-parse-response-line it cur-file) resp-lines))) (dumb-jump-parse-response-lines parsed cur-file cur-line-num))) (defun dumb-jump-re-match (re s) "Does regular expression RE match string S. If RE is nil return nil." (when (and re s) (s-match re s))) (defun dumb-jump-get-ctx-type-by-language (lang pt-ctx) "Detect the type of context by the language LANG and its context PT-CTX." (let* ((contexts (--filter (string= (plist-get it ':language) lang) dumb-jump-language-contexts)) (usable-ctxs (when (> (length contexts) 0) (--filter (and (or (null (plist-get it :left)) (dumb-jump-re-match (plist-get it :left) (plist-get pt-ctx :left))) (or (null (plist-get it :right)) (dumb-jump-re-match (plist-get it :right) (plist-get pt-ctx :right)))) contexts))) (use-ctx (= (length (--filter (string= (plist-get it ':type) (and usable-ctxs (plist-get (car usable-ctxs) :type))) usable-ctxs)) (length usable-ctxs)))) (when (and usable-ctxs use-ctx) (plist-get (car usable-ctxs) :type)))) (defun dumb-jump-get-ext-includes (language) "Generate the --include grep argument of file extensions by LANGUAGE." (let ((exts (dumb-jump-get-file-exts-by-language language))) (dumb-jump-arg-joiner "--include" (--map (format "\\*.%s" it) exts)))) (defun dumb-jump-arg-joiner (prefix values) "Helper to generate command arg with its PREFIX for each value in VALUES." (let ((args (s-join (format " %s " prefix) values))) (if (and args values) (format " %s %s " prefix args) ""))) (defun dumb-jump-get-contextual-regexes (lang ctx-type searcher) "Get list of search regular expressions by LANG and CTX-TYPE (variable, function, etc)." (let* ((raw-rules (dumb-jump-get-rules-by-language lang searcher)) (ctx-type (unless dumb-jump-ignore-context ctx-type)) (ctx-rules (if ctx-type (--filter (string= (plist-get it :type) ctx-type) raw-rules) raw-rules)) (rules (or ctx-rules raw-rules)) (regexes (--map (plist-get it :regex) rules))) regexes)) (defun dumb-jump-populate-regex (it look-for variant) "Populate IT regex template with LOOK-FOR." (let ((boundary (cond ((eq variant 'rg) dumb-jump-rg-word-boundary) ((eq variant 'ag) dumb-jump-ag-word-boundary) ((eq variant 'git-grep-plus-ag) dumb-jump-ag-word-boundary) ((eq variant 'git-grep) dumb-jump-git-grep-word-boundary) (t dumb-jump-grep-word-boundary)))) (let ((text it)) (setq text (s-replace "\\j" boundary text)) (when (eq variant 'gnu-grep) (setq text (s-replace "\\s" "[[:space:]]" text))) (setq text (s-replace "JJJ" (regexp-quote look-for) text)) (when (and (eq variant 'rg) (string-prefix-p "-" text)) (setq text (concat "[-]" (substring text 1)))) text))) (defun dumb-jump-populate-regexes (look-for regexes variant) "Take list of REGEXES and populate the LOOK-FOR target and return that list." (--map (dumb-jump-populate-regex it look-for variant) regexes)) (defun dumb-jump-generate-ag-command (look-for cur-file proj regexes lang exclude-paths) "Generate the ag response based on the needle LOOK-FOR in the directory PROJ." (let* ((filled-regexes (dumb-jump-populate-regexes look-for regexes 'ag)) (agtypes (dumb-jump-get-ag-type-by-language lang)) (proj-dir (file-name-as-directory proj)) ;; TODO: --search-zip always? in case the include is the in gz area like emacs lisp code. (cmd (concat dumb-jump-ag-cmd " --nocolor --nogroup" (if (s-ends-with? ".gz" cur-file) " --search-zip" "") (when (not (s-blank? dumb-jump-ag-search-args)) (concat " " dumb-jump-ag-search-args)) (s-join "" (--map (format " --%s" it) agtypes)))) (exclude-args (dumb-jump-arg-joiner "--ignore-dir" (--map (shell-quote-argument (s-replace proj-dir "" it)) exclude-paths))) (regex-args (shell-quote-argument (s-join "|" filled-regexes)))) (if (= (length regexes) 0) "" (dumb-jump-concat-command cmd exclude-args regex-args proj)))) (defun dumb-jump-get-git-grep-files-matching-symbol (symbol proj-root) "Search for the literal SYMBOL in the PROJ-ROOT via git grep for a list of file matches." (let* ((cmd (format "git grep --full-name -F -c %s %s" (shell-quote-argument symbol) proj-root)) (result (s-trim (shell-command-to-string cmd))) (matched-files (--map (first (s-split ":" it)) (s-split "\n" result)))) matched-files)) (defun dumb-jump-format-files-as-ag-arg (files proj-root) "Take a list of FILES and their PROJ-ROOT and return a `ag -G` argument." (format "'(%s)'" (s-join "|" (--map (f-join proj-root it) files)))) (defun dumb-jump-get-git-grep-files-matching-symbol-as-ag-arg (symbol proj-root) "Get the files matching the SYMBOL via `git grep` in the PROJ-ROOT and return them formatted for `ag -G`." (dumb-jump-format-files-as-ag-arg (dumb-jump-get-git-grep-files-matching-symbol symbol proj-root) proj-root)) ;; git-grep plus ag only recommended for huge repos like the linux kernel (defun dumb-jump-generate-git-grep-plus-ag-command (look-for cur-file proj regexes lang exclude-paths) "Generate the ag response based on the needle LOOK-FOR in the directory PROJ. Using ag to search only the files found via git-grep literal symbol search." (let* ((filled-regexes (dumb-jump-populate-regexes look-for regexes 'ag)) (proj-dir (file-name-as-directory proj)) (ag-files-arg (dumb-jump-get-git-grep-files-matching-symbol-as-ag-arg look-for proj-dir)) (cmd (concat dumb-jump-ag-cmd " --nocolor --nogroup" (if (s-ends-with? ".gz" cur-file) " --search-zip" "") " -G " ag-files-arg " ")) (exclude-args (dumb-jump-arg-joiner "--ignore-dir" (--map (shell-quote-argument (s-replace proj-dir "" it)) exclude-paths))) (regex-args (shell-quote-argument (s-join "|" filled-regexes)))) (if (= (length regexes) 0) "" (dumb-jump-concat-command cmd exclude-args regex-args proj)))) (defun dumb-jump-generate-rg-command (look-for cur-file proj regexes lang exclude-paths) "Generate the rg response based on the needle LOOK-FOR in the directory PROJ." (let* ((filled-regexes (dumb-jump-populate-regexes look-for regexes 'rg)) (rgtypes (dumb-jump-get-rg-type-by-language lang)) (proj-dir (file-name-as-directory proj)) (cmd (concat dumb-jump-rg-cmd " --color never --no-heading --line-number -U" (when (not (s-blank? dumb-jump-rg-search-args)) (concat " " dumb-jump-rg-search-args)) (s-join "" (--map (format " --type %s" it) rgtypes)))) (exclude-args (dumb-jump-arg-joiner "-g" (--map (shell-quote-argument (concat "!" (s-replace proj-dir "" it))) exclude-paths))) (regex-args (shell-quote-argument (s-join "|" filled-regexes)))) (if (= (length regexes) 0) "" (dumb-jump-concat-command cmd exclude-args regex-args proj)))) (defun dumb-jump-generate-git-grep-command (look-for cur-file proj regexes lang exclude-paths) "Generate the git grep response based on the needle LOOK-FOR in the directory PROJ." (let* ((filled-regexes (dumb-jump-populate-regexes look-for regexes 'git-grep)) (ggtypes (when (f-ext cur-file) (dumb-jump-get-git-grep-type-by-language lang))) (cmd (concat dumb-jump-git-grep-cmd " --color=never --line-number" (when dumb-jump-git-grep-search-untracked " --untracked") (when (not (s-blank? dumb-jump-git-grep-search-args)) (concat " " dumb-jump-git-grep-search-args)) " -E")) (fileexps (s-join " " (--map (shell-quote-argument (format "%s/*.%s" proj it)) ggtypes))) (exclude-args (s-join " " (--map (shell-quote-argument (concat ":(exclude)" it)) exclude-paths))) (regex-args (shell-quote-argument (s-join "|" filled-regexes)))) (if (= (length regexes) 0) "" (dumb-jump-concat-command cmd regex-args "--" fileexps exclude-args)))) (defun dumb-jump-generate-grep-command (look-for cur-file proj regexes lang exclude-paths) "Find LOOK-FOR's CUR-FILE in the PROJ with REGEXES for the LANG but not in EXCLUDE-PATHS." (let* ((filled-regexes (--map (shell-quote-argument it) (dumb-jump-populate-regexes look-for regexes 'grep))) (cmd (concat (if (eq system-type 'windows-nt) "" (concat dumb-jump-grep-prefix " ")) (if (s-ends-with? ".gz" cur-file) dumb-jump-zgrep-cmd dumb-jump-grep-cmd))) (exclude-args (dumb-jump-arg-joiner "--exclude-dir" exclude-paths)) (include-args (dumb-jump-get-ext-includes lang)) (regex-args (dumb-jump-arg-joiner "-e" filled-regexes))) (if (= (length regexes) 0) "" (dumb-jump-concat-command cmd dumb-jump-grep-args exclude-args include-args regex-args proj)))) (defun dumb-jump-generate-gnu-grep-command (look-for cur-file proj regexes lang exclude-paths) "Find LOOK-FOR's CUR-FILE in the PROJ with REGEXES for the LANG but not in EXCLUDE-PATHS." (let* ((filled-regexes (--map (shell-quote-argument it) (dumb-jump-populate-regexes look-for regexes 'gnu-grep))) (cmd (concat (if (eq system-type 'windows-nt) "" (concat dumb-jump-grep-prefix " ")) (if (s-ends-with? ".gz" cur-file) dumb-jump-zgrep-cmd dumb-jump-grep-cmd))) ;; TODO: GNU grep doesn't support these, so skip them (exclude-args "") (include-args "") (regex-args (dumb-jump-arg-joiner "-e" filled-regexes))) (if (= (length regexes) 0) "" (dumb-jump-concat-command cmd dumb-jump-gnu-grep-args exclude-args include-args regex-args proj)))) (defun dumb-jump-concat-command (&rest parts) "Concat the PARTS of a command if each part has a length." (s-join " " (-map #'s-trim (--filter (> (length it) 0) parts)))) (defun dumb-jump-get-file-exts-by-language (language) "Return list of file extensions for a LANGUAGE." (--map (plist-get it :ext) (--filter (string= (plist-get it :language) language) dumb-jump-language-file-exts))) (defun dumb-jump-get-ag-type-by-language (language) "Return list of ag type argument for a LANGUAGE." (-distinct (--map (plist-get it :agtype) (--filter (and (plist-get it :agtype) (string= (plist-get it :language) language)) dumb-jump-language-file-exts)))) (defun dumb-jump-get-rg-type-by-language (language) "Return list of rg type argument for a LANGUAGE." (-distinct (--map (plist-get it :rgtype) (--filter (and (plist-get it :rgtype) (string= (plist-get it :language) language)) dumb-jump-language-file-exts)))) (defun dumb-jump-get-git-grep-type-by-language (language) "Return list of git grep type argument for a LANGUAGE." (-distinct (--map (plist-get it :ext) (--filter (and (plist-get it :ext) (string= (plist-get it :language) language)) dumb-jump-language-file-exts)))) (defun dumb-jump-get-rules-by-language (language searcher) "Return a list of rules for the LANGUAGE by SEARCHER." (let* ((searcher-str (cond ((eq 'git-grep searcher) "git-grep") ((eq 'rg searcher) "rg") ((eq 'ag searcher) "ag") ((eq 'git-grep-plus-ag searcher) "ag") (t "grep"))) (results (--filter (and (string= (plist-get it ':language) language) (member searcher-str (plist-get it ':supports))) dumb-jump-find-rules))) (if dumb-jump-functions-only (--filter (string= (plist-get it ':type) "function") results) results))) ;;;###autoload (define-minor-mode dumb-jump-mode "Minor mode for jumping to variable and function definitions" :global t :keymap dumb-jump-mode-map) (provide 'dumb-jump) ;;; dumb-jump.el ends here dumb-jump-0.5.3/COPYING0000644000175000017500000010440413536354050014313 0ustar dogslegdogsleg GNU GENERAL PUBLIC LICENSE Version 3, 29 June 2007 Copyright (C) 2007 Free Software Foundation, Inc. Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The GNU General Public License is a free, copyleft license for software and other kinds of works. The licenses for most software and other practical works are designed to take away your freedom to share and change the works. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change all versions of a program--to make sure it remains free software for all its users. We, the Free Software Foundation, use the GNU General Public License for most of our software; it applies also to any other work released this way by its authors. You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for them if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs, and that you know you can do these things. To protect your rights, we need to prevent others from denying you these rights or asking you to surrender the rights. Therefore, you have certain responsibilities if you distribute copies of the software, or if you modify it: responsibilities to respect the freedom of others. For example, if you distribute copies of such a program, whether gratis or for a fee, you must pass on to the recipients the same freedoms that you received. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. Developers that use the GNU GPL protect your rights with two steps: (1) assert copyright on the software, and (2) offer you this License giving you legal permission to copy, distribute and/or modify it. For the developers' and authors' protection, the GPL clearly explains that there is no warranty for this free software. For both users' and authors' sake, the GPL requires that modified versions be marked as changed, so that their problems will not be attributed erroneously to authors of previous versions. Some devices are designed to deny users access to install or run modified versions of the software inside them, although the manufacturer can do so. This is fundamentally incompatible with the aim of protecting users' freedom to change the software. The systematic pattern of such abuse occurs in the area of products for individuals to use, which is precisely where it is most unacceptable. Therefore, we have designed this version of the GPL to prohibit the practice for those products. If such problems arise substantially in other domains, we stand ready to extend this provision to those domains in future versions of the GPL, as needed to protect the freedom of users. Finally, every program is threatened constantly by software patents. States should not allow patents to restrict development and use of software on general-purpose computers, but in those that do, we wish to avoid the special danger that patents applied to a free program could make it effectively proprietary. To prevent this, the GPL assures that patents cannot be used to render the program non-free. The precise terms and conditions for copying, distribution and modification follow. TERMS AND CONDITIONS 0. Definitions. "This License" refers to version 3 of the GNU General Public License. "Copyright" also means copyright-like laws that apply to other kinds of works, such as semiconductor masks. "The Program" refers to any copyrightable work licensed under this License. Each licensee is addressed as "you". "Licensees" and "recipients" may be individuals or organizations. To "modify" a work means to copy from or adapt all or part of the work in a fashion requiring copyright permission, other than the making of an exact copy. The resulting work is called a "modified version" of the earlier work or a work "based on" the earlier work. A "covered work" means either the unmodified Program or a work based on the Program. To "propagate" a work means to do anything with it that, without permission, would make you directly or secondarily liable for infringement under applicable copyright law, except executing it on a computer or modifying a private copy. Propagation includes copying, distribution (with or without modification), making available to the public, and in some countries other activities as well. To "convey" a work means any kind of propagation that enables other parties to make or receive copies. Mere interaction with a user through a computer network, with no transfer of a copy, is not conveying. An interactive user interface displays "Appropriate Legal Notices" to the extent that it includes a convenient and prominently visible feature that (1) displays an appropriate copyright notice, and (2) tells the user that there is no warranty for the work (except to the extent that warranties are provided), that licensees may convey the work under this License, and how to view a copy of this License. If the interface presents a list of user commands or options, such as a menu, a prominent item in the list meets this criterion. 1. Source Code. The "source code" for a work means the preferred form of the work for making modifications to it. "Object code" means any non-source form of a work. A "Standard Interface" means an interface that either is an official standard defined by a recognized standards body, or, in the case of interfaces specified for a particular programming language, one that is widely used among developers working in that language. The "System Libraries" of an executable work include anything, other than the work as a whole, that (a) is included in the normal form of packaging a Major Component, but which is not part of that Major Component, and (b) serves only to enable use of the work with that Major Component, or to implement a Standard Interface for which an implementation is available to the public in source code form. A "Major Component", in this context, means a major essential component (kernel, window system, and so on) of the specific operating system (if any) on which the executable work runs, or a compiler used to produce the work, or an object code interpreter used to run it. The "Corresponding Source" for a work in object code form means all the source code needed to generate, install, and (for an executable work) run the object code and to modify the work, including scripts to control those activities. However, it does not include the work's System Libraries, or general-purpose tools or generally available free programs which are used unmodified in performing those activities but which are not part of the work. For example, Corresponding Source includes interface definition files associated with source files for the work, and the source code for shared libraries and dynamically linked subprograms that the work is specifically designed to require, such as by intimate data communication or control flow between those subprograms and other parts of the work. The Corresponding Source need not include anything that users can regenerate automatically from other parts of the Corresponding Source. The Corresponding Source for a work in source code form is that same work. 2. Basic Permissions. All rights granted under this License are granted for the term of copyright on the Program, and are irrevocable provided the stated conditions are met. This License explicitly affirms your unlimited permission to run the unmodified Program. The output from running a covered work is covered by this License only if the output, given its content, constitutes a covered work. This License acknowledges your rights of fair use or other equivalent, as provided by copyright law. You may make, run and propagate covered works that you do not convey, without conditions so long as your license otherwise remains in force. You may convey covered works to others for the sole purpose of having them make modifications exclusively for you, or provide you with facilities for running those works, provided that you comply with the terms of this License in conveying all material for which you do not control copyright. Those thus making or running the covered works for you must do so exclusively on your behalf, under your direction and control, on terms that prohibit them from making any copies of your copyrighted material outside their relationship with you. Conveying under any other circumstances is permitted solely under the conditions stated below. Sublicensing is not allowed; section 10 makes it unnecessary. 3. Protecting Users' Legal Rights From Anti-Circumvention Law. No covered work shall be deemed part of an effective technological measure under any applicable law fulfilling obligations under article 11 of the WIPO copyright treaty adopted on 20 December 1996, or similar laws prohibiting or restricting circumvention of such measures. When you convey a covered work, you waive any legal power to forbid circumvention of technological measures to the extent such circumvention is effected by exercising rights under this License with respect to the covered work, and you disclaim any intention to limit operation or modification of the work as a means of enforcing, against the work's users, your or third parties' legal rights to forbid circumvention of technological measures. 4. Conveying Verbatim Copies. You may convey verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice; keep intact all notices stating that this License and any non-permissive terms added in accord with section 7 apply to the code; keep intact all notices of the absence of any warranty; and give all recipients a copy of this License along with the Program. You may charge any price or no price for each copy that you convey, and you may offer support or warranty protection for a fee. 5. Conveying Modified Source Versions. You may convey a work based on the Program, or the modifications to produce it from the Program, in the form of source code under the terms of section 4, provided that you also meet all of these conditions: a) The work must carry prominent notices stating that you modified it, and giving a relevant date. b) The work must carry prominent notices stating that it is released under this License and any conditions added under section 7. This requirement modifies the requirement in section 4 to "keep intact all notices". c) You must license the entire work, as a whole, under this License to anyone who comes into possession of a copy. This License will therefore apply, along with any applicable section 7 additional terms, to the whole of the work, and all its parts, regardless of how they are packaged. This License gives no permission to license the work in any other way, but it does not invalidate such permission if you have separately received it. d) If the work has interactive user interfaces, each must display Appropriate Legal Notices; however, if the Program has interactive interfaces that do not display Appropriate Legal Notices, your work need not make them do so. A compilation of a covered work with other separate and independent works, which are not by their nature extensions of the covered work, and which are not combined with it such as to form a larger program, in or on a volume of a storage or distribution medium, is called an "aggregate" if the compilation and its resulting copyright are not used to limit the access or legal rights of the compilation's users beyond what the individual works permit. Inclusion of a covered work in an aggregate does not cause this License to apply to the other parts of the aggregate. 6. Conveying Non-Source Forms. You may convey a covered work in object code form under the terms of sections 4 and 5, provided that you also convey the machine-readable Corresponding Source under the terms of this License, in one of these ways: a) Convey the object code in, or embodied in, a physical product (including a physical distribution medium), accompanied by the Corresponding Source fixed on a durable physical medium customarily used for software interchange. b) Convey the object code in, or embodied in, a physical product (including a physical distribution medium), accompanied by a written offer, valid for at least three years and valid for as long as you offer spare parts or customer support for that product model, to give anyone who possesses the object code either (1) a copy of the Corresponding Source for all the software in the product that is covered by this License, on a durable physical medium customarily used for software interchange, for a price no more than your reasonable cost of physically performing this conveying of source, or (2) access to copy the Corresponding Source from a network server at no charge. c) Convey individual copies of the object code with a copy of the written offer to provide the Corresponding Source. This alternative is allowed only occasionally and noncommercially, and only if you received the object code with such an offer, in accord with subsection 6b. d) Convey the object code by offering access from a designated place (gratis or for a charge), and offer equivalent access to the Corresponding Source in the same way through the same place at no further charge. You need not require recipients to copy the Corresponding Source along with the object code. If the place to copy the object code is a network server, the Corresponding Source may be on a different server (operated by you or a third party) that supports equivalent copying facilities, provided you maintain clear directions next to the object code saying where to find the Corresponding Source. Regardless of what server hosts the Corresponding Source, you remain obligated to ensure that it is available for as long as needed to satisfy these requirements. e) Convey the object code using peer-to-peer transmission, provided you inform other peers where the object code and Corresponding Source of the work are being offered to the general public at no charge under subsection 6d. A separable portion of the object code, whose source code is excluded from the Corresponding Source as a System Library, need not be included in conveying the object code work. A "User Product" is either (1) a "consumer product", which means any tangible personal property which is normally used for personal, family, or household purposes, or (2) anything designed or sold for incorporation into a dwelling. In determining whether a product is a consumer product, doubtful cases shall be resolved in favor of coverage. For a particular product received by a particular user, "normally used" refers to a typical or common use of that class of product, regardless of the status of the particular user or of the way in which the particular user actually uses, or expects or is expected to use, the product. A product is a consumer product regardless of whether the product has substantial commercial, industrial or non-consumer uses, unless such uses represent the only significant mode of use of the product. "Installation Information" for a User Product means any methods, procedures, authorization keys, or other information required to install and execute modified versions of a covered work in that User Product from a modified version of its Corresponding Source. The information must suffice to ensure that the continued functioning of the modified object code is in no case prevented or interfered with solely because modification has been made. If you convey an object code work under this section in, or with, or specifically for use in, a User Product, and the conveying occurs as part of a transaction in which the right of possession and use of the User Product is transferred to the recipient in perpetuity or for a fixed term (regardless of how the transaction is characterized), the Corresponding Source conveyed under this section must be accompanied by the Installation Information. But this requirement does not apply if neither you nor any third party retains the ability to install modified object code on the User Product (for example, the work has been installed in ROM). The requirement to provide Installation Information does not include a requirement to continue to provide support service, warranty, or updates for a work that has been modified or installed by the recipient, or for the User Product in which it has been modified or installed. Access to a network may be denied when the modification itself materially and adversely affects the operation of the network or violates the rules and protocols for communication across the network. Corresponding Source conveyed, and Installation Information provided, in accord with this section must be in a format that is publicly documented (and with an implementation available to the public in source code form), and must require no special password or key for unpacking, reading or copying. 7. Additional Terms. "Additional permissions" are terms that supplement the terms of this License by making exceptions from one or more of its conditions. Additional permissions that are applicable to the entire Program shall be treated as though they were included in this License, to the extent that they are valid under applicable law. If additional permissions apply only to part of the Program, that part may be used separately under those permissions, but the entire Program remains governed by this License without regard to the additional permissions. When you convey a copy of a covered work, you may at your option remove any additional permissions from that copy, or from any part of it. (Additional permissions may be written to require their own removal in certain cases when you modify the work.) You may place additional permissions on material, added by you to a covered work, for which you have or can give appropriate copyright permission. Notwithstanding any other provision of this License, for material you add to a covered work, you may (if authorized by the copyright holders of that material) supplement the terms of this License with terms: a) Disclaiming warranty or limiting liability differently from the terms of sections 15 and 16 of this License; or b) Requiring preservation of specified reasonable legal notices or author attributions in that material or in the Appropriate Legal Notices displayed by works containing it; or c) Prohibiting misrepresentation of the origin of that material, or requiring that modified versions of such material be marked in reasonable ways as different from the original version; or d) Limiting the use for publicity purposes of names of licensors or authors of the material; or e) Declining to grant rights under trademark law for use of some trade names, trademarks, or service marks; or f) Requiring indemnification of licensors and authors of that material by anyone who conveys the material (or modified versions of it) with contractual assumptions of liability to the recipient, for any liability that these contractual assumptions directly impose on those licensors and authors. All other non-permissive additional terms are considered "further restrictions" within the meaning of section 10. If the Program as you received it, or any part of it, contains a notice stating that it is governed by this License along with a term that is a further restriction, you may remove that term. If a license document contains a further restriction but permits relicensing or conveying under this License, you may add to a covered work material governed by the terms of that license document, provided that the further restriction does not survive such relicensing or conveying. If you add terms to a covered work in accord with this section, you must place, in the relevant source files, a statement of the additional terms that apply to those files, or a notice indicating where to find the applicable terms. Additional terms, permissive or non-permissive, may be stated in the form of a separately written license, or stated as exceptions; the above requirements apply either way. 8. Termination. You may not propagate or modify a covered work except as expressly provided under this License. Any attempt otherwise to propagate or modify it is void, and will automatically terminate your rights under this License (including any patent licenses granted under the third paragraph of section 11). However, if you cease all violation of this License, then your license from a particular copyright holder is reinstated (a) provisionally, unless and until the copyright holder explicitly and finally terminates your license, and (b) permanently, if the copyright holder fails to notify you of the violation by some reasonable means prior to 60 days after the cessation. Moreover, your license from a particular copyright holder is reinstated permanently if the copyright holder notifies you of the violation by some reasonable means, this is the first time you have received notice of violation of this License (for any work) from that copyright holder, and you cure the violation prior to 30 days after your receipt of the notice. Termination of your rights under this section does not terminate the licenses of parties who have received copies or rights from you under this License. If your rights have been terminated and not permanently reinstated, you do not qualify to receive new licenses for the same material under section 10. 9. Acceptance Not Required for Having Copies. You are not required to accept this License in order to receive or run a copy of the Program. Ancillary propagation of a covered work occurring solely as a consequence of using peer-to-peer transmission to receive a copy likewise does not require acceptance. However, nothing other than this License grants you permission to propagate or modify any covered work. These actions infringe copyright if you do not accept this License. Therefore, by modifying or propagating a covered work, you indicate your acceptance of this License to do so. 10. Automatic Licensing of Downstream Recipients. Each time you convey a covered work, the recipient automatically receives a license from the original licensors, to run, modify and propagate that work, subject to this License. You are not responsible for enforcing compliance by third parties with this License. An "entity transaction" is a transaction transferring control of an organization, or substantially all assets of one, or subdividing an organization, or merging organizations. If propagation of a covered work results from an entity transaction, each party to that transaction who receives a copy of the work also receives whatever licenses to the work the party's predecessor in interest had or could give under the previous paragraph, plus a right to possession of the Corresponding Source of the work from the predecessor in interest, if the predecessor has it or can get it with reasonable efforts. You may not impose any further restrictions on the exercise of the rights granted or affirmed under this License. For example, you may not impose a license fee, royalty, or other charge for exercise of rights granted under this License, and you may not initiate litigation (including a cross-claim or counterclaim in a lawsuit) alleging that any patent claim is infringed by making, using, selling, offering for sale, or importing the Program or any portion of it. 11. Patents. A "contributor" is a copyright holder who authorizes use under this License of the Program or a work on which the Program is based. The work thus licensed is called the contributor's "contributor version". A contributor's "essential patent claims" are all patent claims owned or controlled by the contributor, whether already acquired or hereafter acquired, that would be infringed by some manner, permitted by this License, of making, using, or selling its contributor version, but do not include claims that would be infringed only as a consequence of further modification of the contributor version. For purposes of this definition, "control" includes the right to grant patent sublicenses in a manner consistent with the requirements of this License. Each contributor grants you a non-exclusive, worldwide, royalty-free patent license under the contributor's essential patent claims, to make, use, sell, offer for sale, import and otherwise run, modify and propagate the contents of its contributor version. In the following three paragraphs, a "patent license" is any express agreement or commitment, however denominated, not to enforce a patent (such as an express permission to practice a patent or covenant not to sue for patent infringement). To "grant" such a patent license to a party means to make such an agreement or commitment not to enforce a patent against the party. If you convey a covered work, knowingly relying on a patent license, and the Corresponding Source of the work is not available for anyone to copy, free of charge and under the terms of this License, through a publicly available network server or other readily accessible means, then you must either (1) cause the Corresponding Source to be so available, or (2) arrange to deprive yourself of the benefit of the patent license for this particular work, or (3) arrange, in a manner consistent with the requirements of this License, to extend the patent license to downstream recipients. "Knowingly relying" means you have actual knowledge that, but for the patent license, your conveying the covered work in a country, or your recipient's use of the covered work in a country, would infringe one or more identifiable patents in that country that you have reason to believe are valid. If, pursuant to or in connection with a single transaction or arrangement, you convey, or propagate by procuring conveyance of, a covered work, and grant a patent license to some of the parties receiving the covered work authorizing them to use, propagate, modify or convey a specific copy of the covered work, then the patent license you grant is automatically extended to all recipients of the covered work and works based on it. A patent license is "discriminatory" if it does not include within the scope of its coverage, prohibits the exercise of, or is conditioned on the non-exercise of one or more of the rights that are specifically granted under this License. You may not convey a covered work if you are a party to an arrangement with a third party that is in the business of distributing software, under which you make payment to the third party based on the extent of your activity of conveying the work, and under which the third party grants, to any of the parties who would receive the covered work from you, a discriminatory patent license (a) in connection with copies of the covered work conveyed by you (or copies made from those copies), or (b) primarily for and in connection with specific products or compilations that contain the covered work, unless you entered into that arrangement, or that patent license was granted, prior to 28 March 2007. Nothing in this License shall be construed as excluding or limiting any implied license or other defenses to infringement that may otherwise be available to you under applicable patent law. 12. No Surrender of Others' Freedom. If conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot convey a covered work so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not convey it at all. For example, if you agree to terms that obligate you to collect a royalty for further conveying from those to whom you convey the Program, the only way you could satisfy both those terms and this License would be to refrain entirely from conveying the Program. 13. Use with the GNU Affero General Public License. Notwithstanding any other provision of this License, you have permission to link or combine any covered work with a work licensed under version 3 of the GNU Affero General Public License into a single combined work, and to convey the resulting work. The terms of this License will continue to apply to the part which is the covered work, but the special requirements of the GNU Affero General Public License, section 13, concerning interaction through a network will apply to the combination as such. 14. Revised Versions of this License. The Free Software Foundation may publish revised and/or new versions of the GNU General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies that a certain numbered version of the GNU General Public License "or any later version" applies to it, you have the option of following the terms and conditions either of that numbered version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of the GNU General Public License, you may choose any version ever published by the Free Software Foundation. If the Program specifies that a proxy can decide which future versions of the GNU General Public License can be used, that proxy's public statement of acceptance of a version permanently authorizes you to choose that version for the Program. Later license versions may give you additional or different permissions. However, no additional obligations are imposed on any author or copyright holder as a result of your choosing to follow a later version. 15. Disclaimer of Warranty. THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 16. Limitation of Liability. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. 17. Interpretation of Sections 15 and 16. If the disclaimer of warranty and limitation of liability provided above cannot be given local legal effect according to their terms, reviewing courts shall apply local law that most closely approximates an absolute waiver of all civil liability in connection with the Program, unless a warranty or assumption of liability accompanies a copy of the Program in return for a fee. END OF TERMS AND CONDITIONS How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively state the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . Also add information on how to contact you by electronic and paper mail. If the program does terminal interaction, make it output a short notice like this when it starts in an interactive mode: Copyright (C) This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, your program's commands might be different; for a GUI interface, you would use an "about box". You should also get your employer (if you work as a programmer) or school, if any, to sign a "copyright disclaimer" for the program, if necessary. For more information on this, and how to apply and follow the GNU GPL, see . The GNU General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Lesser General Public License instead of this License. But first, please read . dumb-jump-0.5.3/Cask0000644000175000017500000000025713536354050014065 0ustar dogslegdogsleg(source gnu) (source melpa) (package-file "dumb-jump.el") (development (depends-on "el-mock") (depends-on "noflet") (depends-on "ert-runner") (depends-on "undercover")) dumb-jump-0.5.3/Makefile0000644000175000017500000000103013536354050014707 0ustar dogslegdogslegCASK ?= cask EMACS ?= emacs all: test test: unit unit: ${CASK} exec ert-runner install: ${CASK} install test-concurrent: cask @go run test/ert_runner.go -p ".*-ag-.*" -p ".*-rg-.*" test/dumb-jump-test.el test-go: @go test ./... -v docker-build-test-runner: docker build . -t jacktasia/dumb-jump-test-runner:v3 -f test/Dockerfile docker-push-test-runner: docker push jacktasia/dumb-jump-test-runner:v3 test-all-in-docker: @bash test/run-local-in-docker.sh all test-in-docker: @bash test/run-local-in-docker.sh current dumb-jump-0.5.3/README.md0000644000175000017500000003102613536354050014536 0ustar dogslegdogsleg# dumb-jump [![Join the chat at https://gitter.im/jacktasia/dumb-jump](https://badges.gitter.im/jacktasia/dumb-jump.svg)](https://gitter.im/jacktasia/dumb-jump?utm_source=badge&utm_medium=badge&utm_campaign=pr-badge&utm_content=badge) [![CircleCI](https://circleci.com/gh/jacktasia/dumb-jump/tree/master.svg?style=svg)](https://circleci.com/gh/jacktasia/dumb-jump/tree/master) [![Coverage Status](https://coveralls.io/repos/jacktasia/dumb-jump/badge.svg?branch=master&service=github&x=1)](https://coveralls.io/github/jacktasia/dumb-jump?branch=master) [![MELPA](http://melpa.org/packages/dumb-jump-badge.svg?x=6)](http://melpa.org/#/dumb-jump) [![MELPA Stable](https://stable.melpa.org/packages/dumb-jump-badge.svg?x=1)](https://stable.melpa.org/#/dumb-jump) ![Dumb Jump GIF](media/dumb-jump-example-v2.gif?raw=true) ## About **Dumb Jump** is an Emacs "jump to definition" package with support for 40+ programming languages that favors "just working". This means minimal -- and ideally zero -- configuration with absolutely no stored indexes (TAGS) or persistent background processes. Dumb Jump requires at least GNU Emacs `24.3`. #### How it works Dumb Jump uses [The Silver Searcher](https://github.com/ggreer/the_silver_searcher) `ag`, [ripgrep](https://github.com/BurntSushi/ripgrep) `rg`, or `grep` to find potential definitions of a function or variable under point. It uses a set of regular expressions based on the file extension, or `major-mode`, of the current buffer. The matches are run through a shared set of heuristic methods to find the best candidate to jump to. If it can't decide it will present the user with a list in a pop-menu, helm, or ivy (see `dumb-jump-selector`). #### Success Rate For the currently [supported languages](#supported-languages) it seems to do a good job of finding what you want. If you find a case where it does not work as expected do not hesitate to [open an issue](https://github.com/jacktasia/dumb-jump/issues). It can be slow if it needs to use `grep` and/or a project is large. Although it can be sped up by [installing `ag`](https://github.com/ggreer/the_silver_searcher#installing) or [installing `rg`](https://github.com/BurntSushi/ripgrep#installation) and/or creating a `.dumbjump` file in your project's root directory with paths that should be excluded ([see configuration](#configuration)). ## Supported Languages There is currently basic support for the following languages: * Bash * C/C++ * C# * Clojure * CoffeeScript * Common Lisp * Coq * Crystal * Elixir * Emacs Lisp * Erlang * F# * Faust * Fortran * Go * Groovy * Haskell * Java * JavaScript * Julia * LaTeX * Lua * Matlab * Nim * Nix * Objective-C * OCaml * Pascal * Perl * PHP * Python * R * Ruby * Rust * SML * Scala * Scheme * SQL * Swift * SystemVerilog * Vala * VHDL If you have any issues with the existing languages, or you want support for another one, then please [open an issue](https://github.com/jacktasia/dumb-jump/issues). PRs are also welcome. If you'd like to add a language these PRs for [lua](https://github.com/jacktasia/dumb-jump/pull/33) and [rust](https://github.com/jacktasia/dumb-jump/pull/57) are good examples. ## Installing The recommended way to install Dumb Jump is via `package.el`. It's available on [MELPA](http://melpa.org/#/dumb-jump): M-x `package-install dumb-jump` #### Spacemacs If you're using an up-to-date Spacemacs, then you already have Dumb Jump by default just make sure you install `ag` or `rg` (see below) to ensure you have the best experience. #### Installing `ag` or `rg` Dumb Jump performs best with The Silver Searcher `ag` ([ag install instructions](https://github.com/ggreer/the_silver_searcher#installing)) or ripgrep `rg` ([rg install instructions](https://github.com/BurntSushi/ripgrep#installation)) installed on your system. ## Usage #### Basic Adding `(dumb-jump-mode)` to your `.emacs` will enable the key bindings for two interactive Dumb Jump functions: * `dumb-jump-go` C-M-g core functionality. Attempts to jump to the definition for the thing under point * `dumb-jump-back` C-M-p jumps back to where you were when you jumped. These are chained so if you go down a rabbit hole you can get back out or where you want to be. * `dumb-jump-quick-look` C-M-q like `dumb-jump-go` but **only** shows tooltip with `file`, `line`, and `context` it does not jump. * `dumb-jump-go-other-window` exactly like `dumb-jump-go` but uses `find-file-other-window` instead of `find-file` * `dumb-jump-go-prefer-external` like `dumb-jump-go` but will prefer definitions not in the current buffer * `dumb-jump-go-prefer-external-other-window` expected combination of `dumb-jump-go-prefer-external` and `dumb-jump-go-other-window` * `dumb-jump-go-prompt` exactly like `dumb-jump-go` but prompts user for function to jump to instead of using symbol at point ## Configuration ##### Excluding project directories Dumb Jump will automatically look for a project root. If it's not finding one then either put a `.dumbjump` file in your project root and optionally add excluded directories to make it faster. Project root directory denoters: `.dumbjump` `.projectile` `.git` `.hg` `.fslckout` `.bzr` `_darcs` `.svn` `Makefile` `PkgInfo` `-pkg.el`. If you want to stop a directory from registering as the project root (and have Dumb Jump keep looking) add an empty `.dumbjumpignore` file in that directory. ##### Example `.dumbjump` -tests -node_modules -build -images +../some-lib/src +/usr/lib/src *NOTE* When adding paths outside of the project (using `+`) ensure you use `dumb-jump-force-searcher` of either `'ag` or `'rg` (see below). This is required because the default searcher (`git-grep`) won't be able to search outside of the project root. This edge case will be fixed in a future release. That is, `git-grep` will NOT be set as the default searcher if a `.dumbjump` is present with a `+` path outside of the repo. ##### `.emacs` options * `(setq dumb-jump-default-project "~/code")` to change default project if one is not found (defaults to `~`) * `(setq dumb-jump-quiet t)` if Dumb Jump is too chatty. * `(setq dumb-jump-confirm-jump-to-modified-file nil)` to avoid being prompted for confirmation if you attempt to jump to a file that has been modified and not saved. This defaults to `t` because jumping to modified files results in you jumping to a location that may no longer be current. * To support more languages and/or definition types customize `dumb-jump-find-rules` variable. * `(add-hook 'dumb-jump-after-jump-hook 'some-function)` to execute code after you jump * `(setq dumb-jump-selector 'ivy)` to use [ivy](https://github.com/abo-abo/swiper#ivy) instead of the default popup for multiple options. * `(setq dumb-jump-selector 'helm)` to use [helm](https://github.com/emacs-helm/helm) instead of the default popup for multiple options. * `(setq dumb-jump-force-searcher 'rg)` to force the search program Dumb Jump should use. It will _always_ use this searcher. If not set (`nil`) Dumb Jump will use `git-grep` if it's a git project and if not will try searchers in the following order `ag`, `rg`, `grep` (first installed wins). This is necessary if you want full control over the searcher Dumb Jump uses. * `(setq dumb-jump-aggressive nil)` to only automatically jump if there's only one match and otherwise present you with a list. This defaults to `t`, which means it will try its best to guess where you want to jump and only if it can't then give you a list of matches. * `(setq dumb-jump-use-visible-window nil)` if `t` (the default) when you're using multiple windows/panes and the file to jump to is already open in one of those windows then dumb jump will focus that window and jump there instead of within your current window. * `(setq dumb-jump-prefer-searcher 'rg)` to let Dumb Jump know your searcher preference. If set this will still use `git-grep` if it's a git project (because it's the fastest), but will you use whatever you set here in any other situation. If not set Dumb Jump will follow the same order as mentioned in the `dumb-jump-force-searcher` description. At this time setting this value is only necessary if you prefer `rg` but have `ag` installed too. * `(setq dumb-jump-git-grep-search-args "")` to set additional command line arguments when using git-grep for searching (defaults to `""`). * `(setq dumb-jump-ag-search-args "")` to set additional command line arguments when using ag for searching (defaults to `""`). * `(setq dumb-jump-rg-search-args "")` to set additional command line arguments when using rg for searching (defaults to `"--pcre2"`). #### If your project has multi-line method signatures [you should use `ag`](https://github.com/jacktasia/dumb-jump/issues/129) or [`rg` with a version higher than `0.10`](https://github.com/jacktasia/dumb-jump/issues/255). To learn more about how Dumb Jump picks a searcher see [this issue](https://github.com/jacktasia/dumb-jump/issues/109) and this [pull request](https://github.com/jacktasia/dumb-jump/pull/111). ##### `use-package` example configuration. I personally no longer use the `dumb-jump-mode` keybindings that were inspired by IntelliJ's emacs bindings. I use `use-package` like so: ```el (use-package dumb-jump :bind (("M-g o" . dumb-jump-go-other-window) ("M-g j" . dumb-jump-go) ("M-g i" . dumb-jump-go-prompt) ("M-g x" . dumb-jump-go-prefer-external) ("M-g z" . dumb-jump-go-prefer-external-other-window)) :config (setq dumb-jump-selector 'ivy) ;; (setq dumb-jump-selector 'helm) :ensure) ``` ##### Hydra for effieciency If you have [Hydra](https://github.com/abo-abo/hydra) installed, the following is an example hydra for easily using Dumb-Jump and not needing to remember the bindings or function names: ```el (defhydra dumb-jump-hydra (:color blue :columns 3) "Dumb Jump" ("j" dumb-jump-go "Go") ("o" dumb-jump-go-other-window "Other window") ("e" dumb-jump-go-prefer-external "Go external") ("x" dumb-jump-go-prefer-external-other-window "Go external other window") ("i" dumb-jump-go-prompt "Prompt") ("l" dumb-jump-quick-look "Quick look") ("b" dumb-jump-back "Back")) ``` It can be explicitly bound or used inside another hydra (if you already use something like [Avy](https://github.com/abo-abo/avy)/[Ace](https://github.com/winterTTr/ace-jump-mode) or similar for general "jumping"). #### Debugging a jump 1. M-x `set-variable dumb-jump-debug t` 1. try to jump 1. go to buffer `*Messages*` More details [here](http://p.cweiske.de/506). Thanks to @cweiske and @Glumanda99 ## Why? I wanted "jump to definition" functionality to "just work" in emacs. I use IntelliJ for Java and this functionality is basically the only thing I miss when I switch back to emacs for work in other languages. There are certainly other packages that offer this type of functionality, but they all require significantly more configuration and are often limited to a particular language. An alternative may be worth setting up if you are in a specific project or language often (see [alternatives](#alternatives)). ## Contributing Feedback is very welcome via GitHub issues. I will consider supporting other languages either via issue request or PR. If submitting a PR then please add tests as well. ## Running Tests Opening a PR will use CircleCI to run all the tests against all the supported emacs versions and search programs. ### Running tests locally There are a lot of options for running the tests locally: #### Basic/Classic requires [Cask](https://github.com/cask/cask) using your local emacs ```sh cd /path/to/dumb-jump cask make test ``` #### Concurrent requires golang and [Cask](https://github.com/cask/cask) using your local emacs ```sh cd /path/to/dumb-jump cask make test-concurrent ``` #### Docker (latest emacs) only requires docker and runs tests against emacs 26.1 ```sh cd /path/to/dumb-jump cask make test-in-docker ``` #### Docker (all supported emacs versions) only requires docker and runs tests against all supported emacs versions ```sh cd /path/to/dumb-jump cask make test-all-in-docker ``` ## Alternatives Here is a list of potential alternative packages for emacs: * [Tags](https://www.gnu.org/software/emacs/manual/html_node/emacs/Tags-Tables.html) supports multiple languages * [GNU Global](http://www.gnu.org/software/global/) supports multiple languages * [Tern](http://ternjs.net/) for JavaScript * [elpy](https://github.com/jorgenschaefer/elpy) for Python * [robe](https://github.com/dgutov/robe) for Ruby Most of these were sourced from this [emacs StackExchange answer](http://emacs.stackexchange.com/questions/10125/can-emacs-support-go-to-declaration-of-function-in-an-entire-project). dumb-jump-0.5.3/.ert-runner0000644000175000017500000000002413536354050015353 0ustar dogslegdogsleg--reporter ert -L . dumb-jump-0.5.3/media/0000755000175000017500000000000013536354050014334 5ustar dogslegdogslegdumb-jump-0.5.3/media/dumb-jump-example-v2.gif0000644000175000017500000026276413536354050020722 0ustar dogslegdogslegGIF89adw! NETSCAPE2.0!<,d ' )7/- (*6N/[.n()G')V+3H*9V4*F5,T79G5;T'1kC+r!AN'KI&J]&W\9DZ9WJ&Jb+B|&Wdw;: (;~<nRɀ$%r!(HT @#V@ :X! (W%?$:ʹd $Ӓ?ԍ>>⋃E O>t5-Ӈ?0*`<,!()5h MJO’.tҋKC^XԼ5Dd(CZ<4^ZI+^€pC߀: .F8' 4#f2J$- g0k+ 8`p`aDƩBa;h4$l$+#SfE9a Ȩ͑do{@׉{g:ipBh\(l[IC*RT@"dh*R_2,wI2t'਄С 51Q=*5%2 TE=-XJV`7)@ @eVp&498MT$H6"{;c;puY;("AF egOӟ$= u,dw R+?+x$pH\\e_A4 .{;oo栖-*'_x"\O WiiO]nsu^79n+[\J[a&y9TpHUj*_L|=G΅߄[+[kY'L äZ#v̶.b\ r@)-XlXzSjhl$qY v,sB*_#|0˸-dd! E2ʀŏt \5`%d#>*jpe%4W.rg\+~rUN9uBUԥyuȥhRhnxֆXpb2ݺ@b >S͉!a0` ɶl+C0كhbqa&"X҇!9@ԊpXG6$zm:B6 lo:u [waəC O/6ٿ&H01R|6*4Dg}<'?'P]t\;]fQGOe"-ɞ>`  \lB "5?i5C^JL☐HdW|jLA5A&_3d MRE-t5^A|85'֬?9B% &{(Q:Qry,^F{< =pۭaGF>-gq*TR0OFa[uU~c_RVˆF P/W`r r'R~;aW|!J#R v8W0q) f$5P2$h#X501B pÁ*H84H)X6 4[0QEA 4PDhRQX @40NXQU4VхcUY(qAdXr8tXxMuH8)A7a~@ 1H|؈qeCCX4>607؉8Xx؊8XxTqNj8Ęj. #wŸ،X8Xaghڸ؍xV8K嘎긎x؎80qHw踏9Yy ِ9YyH aM"y(IZ/`48 .NM w@1:yHɐYDYF@F9Q9ERIZL9@IHedih1pؒ @X9EMrٗ~IVaj {Lyxv9NCgyy1SCO ) =QoY9ˆ9 řʹٜɑ )9 `H/A P&i)0aĘ#!k!U0))AQyjI0ɟ* I ZY6YA:0١6ib":$*+):'ɒ/`9-٘ҝ;@FH $ɣ5GНAMPLIhEN `[ڑaѤVJpӦ=ect!v KRTq:hH:EJ@tfʥPӨ rG}zeb٧WJQj.Ii)Zڥjy:)p* xV jWisaJ7/@!nYzyJ/`$1gتDiպQI M 剗 :{qJzݺ*ej zѬe+ JjʬzA)'P* Kʱ 7;ϺNIpk1ޙK9$D˞`/5$$$/ʬ6*G[gkZzٶIuUHd;j1Iw;YAۢ`@CZ˵j+~۹OA9~OkKY Z UBink$oKꚳA);ey@ztKJ`y|i P⻖˫!񚵭ƾ;ٲMвLYkyٿ˱.eZỸ{O9hcIīzپkq> y[z6 Ѥs )>NݸZ:aAaEαM\5ވ0Q.@B>D^F~HJh.ڼLB.pF)Z.U9ʽb-y>\U+cɈr~TVZsAɖ,zy`,芮Tћ>^~阞难頎MʔMqPNfmYzy뭾(L; (%rXѕX Z,b3Ƶnо"zUɑ[ K{Y:; RԻV+ ?a˖i;NKw?c+^ |(ojXAM\,0`{՛"L5n+/0e BFK)Lӝ 1O v|껥1˗Kϰ$d?o 3:]lv|ۭj;E>j@̽U~׼eS`OƋ$pAki LAJ?WJa[ }x=E ~{ɗOMkMӲ"qI!_Xqno?俕yAڝTz011;ʍm0t $X` i&;N! 5nh ZI)UdK1eΤYM9uO  }Qr%=DJ@ z$ aⴀ& K*КcF pQIZm?B5 2kԱeZaĉ/fcȑ3xH hV)W$GH܌:እr q|r.TasygׅJZ.z&,"hh}gzkGl͜JɓB1}zmvm`6XX{1o|p 7pW\l0ڻDXr3׼&n( N:6%5!&&75tF ^Lbg5&EǕK ~sT!c?EoNθֈKT`77 w~&9]ʧzo?Hsv=_B&=qTR~@}\Hp&n3ZRN_ [669(ң%d *Wd` ^Vhh/:$JA !)5MbXbC#zI CbR,gZE-HdURE 2qe2sȉx*FQCJӴdqqP jk!t9ϑbp`G;٩BԪ蓡|(cJvZvHIE݋ D;sIYƥ5%%KUbǗ-Ef&_vY+i>y&.jOL\pO%șzKR*z:Q?7ȰO%$J-\bϕ)f.OҕlЏޣ vzG-eQcIH,fvɦT,`;ʕO~[F׹ł.`';Q]Tqf!sw-mb@Ge RdF YRm˚S!. D ^fd.O%,]=mUҕX׊%oUBK•TH٦ReƂ^W8E~34ap%ڌ{ 652P1)YXPL퇿wF_r6ݕ )=3U%H 0ZL$XeDr9%L~#/ E9#YI0`iBf9L xJ*#ᄃTkcfBR6|X[b}]>!nuςVTM G3 ]2Hbh@Ũa n=L2(-jIS4 mַJ$No)fB0iQ236 -r\;[J9йft']Kgzӝt%`y~ug}'CL:=K[\#0\g <7*Z7Gv'ޛ/soNCgn 0vȫPǥ>%T}uK@ x= J,EKr&q&g*t@q$f&3&xbkʟ@sD1@>"a  l$VTn e CY&HL3Nr "B;cP&tS"A2_B4!@.< ~b'fz*L)Cy) I*320js̗44y3D +SL t) ,35T vLEȊM:]!b8\Cn3ɐ_ $5ۈϑOO]5b1MQT I(t uPc Qd;)A 7}S@::H;!>]T0G}THTcgxTAeTMTTO}TJԌMM_}JYUTWUGH-|bG KJx(_ˊ: <˪=?6q`\ǭu#ϕܓ=%׵Ǎ]EH #?h]\ ](-SC?Mѭ2u\%xb _xw5&K_![f B"xapEpm@KZ(L 5R.'5^ Ԏ͘RC6?~GT ai  5L.Y6F 5^*?fڸFDIddH1}*E,VWG%a! hgCvEpopgĂ=t\.pvNZ迕g#eƖ~v"eWh f-.@GI8HId䪦Zt LG* 2jɰTˆ׈jI6k6 H`Nnj&YI>>9Fi5.u0@0!T1^K%MhX "M=dHm[KH^m5W:X7A6))H%nd|"h #nA&6dhnnb2nv "Ƶ~.+ob@=Z@aٲVlNTlNN l NB4wo+ƭFgY5f\zjn0GlF M1q~~16M$L^@&$0¤$!B b"Ȑ"G,i$ʔ*Wl%̘2gҬi&Μ:w'РBa&xAdѣ/"dIƐ $/A 6-`B&!-բƨ_k.޼z/L  #V2A\ HF4ؤ IMXf h:x5BX  gلw7‡/ W%ɾ(Da/>+Mb'Lk͜C>q;ӯo>7I%-JSY`JJ8!Zxaq@O b!!8"%h`MSIw"18#5x#9#=#A 9$Ey$I*$M:$QJ9N.$[sAuTz%aR.X=K &q$r#C9'}i .yT(:}w2')K)j_EL z*5%u01SQ:+Xb5 QYg+ h,E7,:,J;-Z{-j-z-;bXgF ,nD9K_]&Qt/Hޭ;0_DXpT{U2y8QpkZBL\]Epa4L5LSgJl%%]f04I?!S.vJ/ _T?g24z64wHS!5i6{=VY7wKKy2T.ef[5AhmvTXfeS3!ie@GgmEnLsJ/p>'ꐏ;I:S>{T  =`(:n8UnǕnqp5W&yUHcoP&%">Y=us~T?WHoE2X|гM[.VYF<G6FX7ӑR=u-_)aE<($_ܗTv|\HQ9Pk"Y,0QGbAYo ) ֒$1<ɻ:-b [">Lo+)4џ M?fM*@_HqYGDQ ÂA~gϐk[iE%up2U-̞&C,q1AD؈7lׁ&5b1vZzKˬF-sqkcK %O*A&(9b`cJ5òE/=%Gk ؆,(؄ف=9ZϞw Vq$ Ѕ>Ab\E<Ћ8(%+Ё~ؾTAIH@jщZ-CSҖ1f1̈TҙҴm)P*u-|̰fK@x׋J4(MEnC*X4'2h#W;/$^ +^31~!Ə-2w"UVbK\-|kS<}= uylrf|lʆ–q^3}3cz("I5-fQ$5SUծ~5c-YӺֶ53׿}sKn5Y0'ULe^enoiUyrK+МR#4F4JQQDRMMʙTב-U|ViU N:E{ܹ#6 ZfUMi"fm`b;:dgK( abѓ~=EPʤ@IF5!#9aIi5wVVFlWeiFng(q-y#{!rcs%GtetU]&&҅LM:cyx$7{5>}M؄ ?ZU>`8%\SŘàQY0uT\VN!Љ}%8-׹wiQZB:$XP&4[SYy %4Y `I$MAmfu4[_\h$˵Y̰ +Y ff3h* 3慢9$zgIh!FXnR'z..'|Ʃ[ħ}'~~''h]\Me GGbI^.(FNjuDdvoPqy(dKPho]J$ (vgu߸`(-Gc&P7^LFN)V^)fHn}AgF6X0ʁ)L. VJ\$ c<Ϲi6]f %PD ]ML'g>BX%O.Lj}+~шhԤۉG؈DNٍݵ߸j@n*囱Ej J*piaDQ\H^FpJ% 驎CN sα*H^j niJh[W_Uq3~ kMHR VYbue'M劐^FT> e_=ZZ" e,&[[mMff=Rz)eRўfY ~ȵjڛi+[`^DT(&ӥkE|'>mG T*@+f!-š=l01ߪ˥4aٔJӫᄶDmZAB!"!@1mEbAɓ?Qb>Ъ&^?!>D2"M-X)B)c**,"R<R,BGFD{~uPuDI! pes FXC*VWEESMI,iVzp~\Q$+1-rۭ*t %{%s!%,[4eʮvTgJR4G'jvHp_~[[0Ϛ1b 0L e#%k`B"VrDmJب-X؋EsX+) ai b2k&\l,Rl1֮` ^ g:&L!r*vk9gE'\q8/ &4Ew2ڢݨc LZ.mEm>7CG|bQ}VFo4GwG4B0H4EL t21H6VK/(('WnM' t8tO9KLtQ濱+y6~,_^R5zFPa5W_>ړJG󖵖5[+E\5]׵]I2_u3\3 `D@5C=CL"b3`?BC:f5?cuOX6ftJK\%T ?܃>fK,mn6`Xv,2r7O"Xh prgqDvChC>v_y$5v>A?68#{Szr> {;JP<@l%X_Bv{!|7Il?T<ȂƒvË#A˃_?9 g(s~ =l8'z:T}to??> yL/~ P<|$ +"f.LPE( YròK)W6Yd|l`f,Y3?90ys5i4!g?D >D2K *UZeƍrub BJ{ k` 6|qbŋ7vrdɓa&xK˘Gt)#*Q\B:@ TKYFצݛ?'R.0-F~smoΌ?6irXwrܾw]|8ʪϸ`⨕ܮ6 j(2,;poS@TL|8e&3("<$\R.ˬ!'9f#4TS@"h*"dH,/OJN8U7'avH1'H68z3.Jj-:Y <ɢ -tDO/&O 3+)7`.M 3Rk9 uR9 Н\}T>,,@ms6!VS4.RYi cgV䴡ˊ C'ĨF{ax块z-I"7W3?:JNز 1Ic1Hj1M2^o+~}-:`zgRFK}\v⤬TJѢ T<"ՌS b{iXp~H>YM:Y}I}< lS$;ƴ!c9.ܚe^be<5ߜ.6N 4QKZgJ&_#īPQ Z~DrF.0_NRN.iE_yr&!og,~S~Gya9}@R<\?v׻]DhQk&K4H/|[;!0`p3[I5b!$U"A[^A/1<B0Kb$WE/~Eܓ0) .!u S9^wJD| 0 ~{Э+$ 9DFf |$v\~On2y>ɸl)dZɸQ8~|\."V]W&"6wݒ ݰCp}^+2ƜVr-Wy4E9<.KhKt(>) ) RE$Uv $ D% TT0 A4ц0 ;E:0hIҞ`0 A!3})Nц4p")c)4>m*eU)GU~agDFV'9"jj~5W\9y^j>:%!ABaX>d)[Y^gBW$%C4' C!v&mhEYα%uli[[*i R)i#d }Tn0pW\Bƹ3.چ^@5X]ir#UomC1"A ʈV41*>DLW0 ർMJ|c8H=+&^9”I > #MJ8yCT5JzJ!BP9/0>ѡ_PÄRW:qXf>f5 qy/яde06(Q# 1we'\f%F\nsNcIjE%0sr#k~!]6BacXcy0yJEhզ\_)9P䲰Jay85@!v[D;c |)kF0l[EqT{h"7LyCݘH^b} n$*O#%L&2OI2 ޘu,$kZ\WBZ{;e֔De*vJ7]7D} |j?BՊ9s'Q"xlKGbʬW"A.TY=w:A=VfT; S;GJFT"|(BΦLi~ԟ6)?An& BCBCjGN ˎNl%NXXT/02. b?4Z%X %ocx @7eGZoVF8@7D%oTMZpToDO@6p'0PXN# p&0)*0nhel+*Xz Qonpj GkaqC 8^LFn1 1n{f\p&>Pgno" Oc4cdhF$R!A W9g۾İ #'{{JNhCRhÅ$oA'a `4z0‰Lc^(ÊЌh(!>pH>q~&>P~~'@hAzxHy;DhoQ["#^$,0W铚ɒ2-٪ qɒ֩942=")"Hq2j&J20j `Bz%$JΚXlIT r`%]BI:~O"R,%먒*W^ 'kҧ-/KQ2 02xnjlʧJ)4|,gQl,1'ۊ*b^|173;32?4K4O5SS5WSId5_6cS6 g6o7s^4L7{77Al' 895 h^'M9:1:;Ў,p0x>1ʬ0>@4h:MTAA1`&s0A+B/I(&:@;l>1DCTD$.GDOED2SE[E_FcTFgFkFoGsTGwG{GHTJF'>I332\`QIJI3$JTKR< IN`KTL= CTM״IN&TNO/AB4OP"4MPQUQQQR#UR'R+R/B`0Z(L>0!Lj%4S3'r0U6&?CT"P' #`#WbUs$V>SRP$P׆_X846."Pw aXZY/z'tXh7F wɗ'vpuEbp?F%HX" 縟H,t UY4b(A wj$4X$Wic16 vpWsрG!/y8 W!IhW_4K1ب ޠ`<9y&Ngm_xk6Th#wI2I 5r8D鑸rϹd0 nRJ[ 㝷Cg❇-/ /y 0+ Ӣzz׋2k'39B7;ڣ?CZGKڤOSZW[ڥ_cZgkڦosZw{ڧZڨZکZڪZګZǚڬZךڭZ皮ڮZگ[ ۰[۱#['+۲/3[7;۳?C[GK۴OS[mZ۵_c[gk۶os[w{۷[۸[۹{ۺۺ tۻ[; [כ۽[X{ƛ8\  ſ]DW@@A;;Ê(OS\W[_cans\{_ \ȇ {c=kɓ"ŸI|_\>G2ܷ_ v ٮ̃Q_9!"eY0BG]] ]]l\"].AAA7]/?C}D_Ơmq]K}B\) `!rt)׫{I8!˥wOx|Ŝ}=t]u{8]]𼻗@2:+_;֝]}ԡ/].]9]sD~πLnvd UG"~j;>Cb);k#[] 恛CG%ýb_;U!IEW@!5}}{^>Ol=2ܾ/P+&}&]>f&Qߏ~BP`\`B )c[\A_SυA":'6e|W d?-KN?tfk%j[u~S΋rXO ΃0?@lDZxe,sdp ]xǑ.l<2ʕ,[| 3M\v4'ɡD=4ҥL:2ꎩTZ5֭\rmmElҢ1ҌgBM>M&zFnkwp Z&]y\XsMÞߒeʖx|S s|%_342$HL"5T4#F&@JCuP܈c:c>dBꈉ@`B@MsN$O==EeV^ U^~ fW["[e[fQf[4@@]%UJReEƙgjO? ٣ 4Y,$/Lxfvfz1Z/:Fmm3.j*jGju*M`#j&?(HV{WTInպ*q6+jrC΂ /Dh [Q) ̴(ĐP "3)SXLr&r*r. /PdN8!":?j> tKfFH[1fwG~*]D ; XqT*jRdڢ]|s[2m?feH/|^o zWnb8Fksmvwnyܹ=η?~ӥ vstNsk}݀x7w#=~IC a YbDd(c\@3 3eEOߏ?SLr$|:1Am lJKJ\yLN?B# 1}5Tl))^CS-25" &k>›=:MA˼FBz#ZFPhb J(ƒ 4KˋCq(ؑ] JkI.jAxcwacGx$.QMM4M6<$4CW_\P'(aTBZ@ aC "&lH#E#pr.b(\a/ ` s,1I &6QblZ,72& K3aSrs"IYPDDa gOe(JA*9FuNpjFul`Gr=<EU < T.h\ x\/8Y$eHl-jŨB[ :a[yԝf: DVSԥj,(]*R*yhI,>Q.C!:&#QA`#>(^_ v-aR&L3O<'< .AgrɣpУb{e)zQYI(AuP>Y"urt6PL=H1nfhn B G=Ţ!ݰ%kIBq1=(-ZH=r_sE zTLrNy!UE!zH YckVU\7(4 J@WJ&.nH yD.$+yGf"=@ ctT\r0{DAB4c4;XdʉXkX'eV G>{"=62EVLtu.6A9IHSuB\>@^q̓ҖGH5/7Ԙ#J bZ0N޺3]z: Y*ݚ~'P5vbqB=q&Knb~'jDbLGB0f 9C"ܡT=){ |/8`l(|`JizyZHČn{(uKEZXk> ћ'fl1o >ԇD+z(1fs0!#ϓ2@\Z:ICBe*b%Ig=zQASMZ՛BuK| npwA) Ľ#G ~/+~/@O"MD.+̏5㜗4)ݻɄs)p4_µL/p`ê>}ZÞJ5鏏 KԯS+ozoL7}Uz6O#o09_G%(WA~RAȀ \~h48= Wȁ!(#hh')+Ȃ-/1(3H5h79;H!-,a ' )-/*!",(*6-3:4+5679P E2j,0L'1kC+r!ANC}'KI&K^&W\7GC9DZ=SI3Fp8bW*fkRW1G*6D77W*6X:5gm.5I4JG9jg2Uu8y\HPE:|LvI6HIPQUhLmT\bphLPqHiopRfgh):Yi3N0L3g,o?^OO93?cr?%ty¡; # S? |LŽ hF8s4`M:0H7&@/x+ /ܰ @DE9C |iXKىTsh''$uU`<@MG,-NȄ-6r6wjJ&褺uau'XkmTq8 Tk--ݭ%[iʵ9d KN%6 uCݝ\CMBEM'םHٳ@?n&5 W]JBǐ@ mDFsR$Dq~8^eB5kB/8<S@*WW秿 40;YARp@$2f#J1 |A{.:kv^9R֠(P[yJhV\ \W$rR@TD;x6J oÁ9 @[%, .šZlE f# @]Q\$M6gν"1@ u8* 0J>ĝ8xcCP9`"^ϸ7ꭡ DxyH% e>@'ec_(E~a0y g+7FcW*(rT.ˁxr ,@,c#Pƞ1kNqvƲ ]pNٜ5+Zmeg; NhY|'_F2,*AyRcxqV6(MJ2HĐě"H0r$ @mE$D̂\ T3`{RT2u$^K -d\n5090V#0fR: *t]*MUw5 RPj EHUpџ1 &;z&d@ v]7J2pf;ǮJAPH[lP>}m+ pB(WNKY"$Yl,u&.v}GY2M"eF8 0/$@SJ"0r5Stb)z5 aM:}q]/9&.ڒa%/i7أJca"Uiu@ < 9qn[26'k[-ָ"r؄NfAhPЃSxp:Gx;&X`b8dXfxhjl؆npr8tXvx*u|؇~s{x(H]8DHxx 8i(Hw,@~8;R, .ՋXx.c،8Xxؘڸ؍8XxHØh,=@xq!vu5X ďqDЎ3xyY]4@0C )h(] 9DC /3YD'>舧H4I~ I MDN$]M 6?K9ZɕPb9;PQ, @jɖ4c9tx/ )3u9٘I =9ٙ ?"먚U1)|qih=-$2Yx @;xAXCkC |і )I˩X9hyّ99Yɏ )WɛeH49Iϙv-1lQY' % :iX1ɟJY1Cq 1:M1!HJ9 ~Dژ9A1Y Vz=饇az!m!*ʑqʟk2jhJZ*EjnjFz:8 .9DiX.Ֆ.u?m91HَjCYٖZ'K)L[HMѩZ !븕uF2929ꐂ:F^Iz.6 ڪqyʩNꭱ )l:9hثx1 %AϡW9RԭJªJ j 8I *Aʤ# zRyD1!i8Y)iH݉?K);-(-p -@U;yiQ+bM *:A+O&3 =P IDR4ɐsKs I[++̉d[U˵1ʧ)N[PSRKNXۤLjrJعt#z Y6:@f+hKuBW 봋rKb$ڎ#+꺿h;HYI )٤Q} 2>+%ڸ+ۘ$@8;ɌɜykڢdY;9-1 ~:툧K9+;ȩzK<Jܤ `<%S 0Lf,HG7W-{ZY +,]K0s̩㰢,LrH ;  .h"<Ο.4l 4LFuQH!Ip3'|!S&#K;q*O𺴈:Pk.Xku(`0R\suW^y(/SȆm;4̬W*<ۆh!!釬Y܅pY⸎(! Tk^ǣ(oZu& إJnXQ(FU Q"Dؑ`:yJT+fB[]$S KY'H™yϗxӰfE4c#h`ZٺRyMl,1{#dE% `K2,b89٩Cg˔u#z4b#yfSXIH*3$LI he"VhGv35er HcΪ`mz&hK]:$f;p ҕ/iO}SU/΂bJ! To)dCjUSf" F2ઌ"%_*׸MGbT䦬V%*&VE1u*BM ]"b۰yDl&*f!Y#ˑ&}%mʺ#Ɓ_J/+>ilb6'=H#!d:$niK$^Y^r(' 3kٵZf, ]{l]3aeL2֔ ̋]EnQ{1J૾ûuY\ykƤ7k<ih:QXVX[f0ѩC0v\5q3b1yґFLL43M(ua }_ů{l$mMO|ZX~[&flQ f4ys=*Ï2WΝ)nY bn͆ gZ2$`e}g]!+!x uk:)N)iJxR5t=B!׭ƚ0V!U6=KqB6"d_ "%ڝ)*-$66_e\ye9$dZ7ɻя=&&{Py=G{x#m=R"C=eV6ͦHəg`"}):j=y#6͋;_&ޙtvBgUWx1$eE~ǣ̉ND_=+exu/RW퓕(O{oѦnkEz B}}?v[T~O! <~]n8BE}Wb'W_@ #".?[-jQK#i &xJkcG g@iA>.9;%n=gD4a*l9C{<v@ۥNS +"~A('CPY1(LB'ԧX5bڬ=&'BrB03u˜$''C*<+6(|' 'CѾBS5{AH(7pG-Z BkS")Đ`DODA(HėR4DX\ * F Z2ċ2EK$),tE` ]XLH))€^FeFkFlF)K59 Fr+hԄ2!3"*LN%?4ԬդD4NMG%j1A2()DlX! dt<3Lđ172xãwߜv;l;3"*5KHD;Iw$ODl Es˸$< N-b{ݽluKQ(A JxO$Bj6̮mM}Dc;s4>"iɟ];"XiАKZ9\Id,͙[A!K9\Ġ]93ܶ\O/,9nl[*2DLHWT"pYY*EEKvb<,X-= ޔ❨Ndu%O]rEԕ p \\EYF"B=FTj)x_M^l[ jT_^ ~` qfER$` `ްKx_ ](2ޓK,s p&a&T6 YHEzDgJ~Y@aGkc3ŔQD( ٔ d0-+\¨MHT@:հ/c,6r}pT a@ ,a.(/&DۦcD ICOddEƏ1FL` T^ ǽ8L0C6ќNI*p]Ѕ^W֓,J KLY FS)yBҴ>9 M456in0k4VTNΣΞƈMXjܴL,jQ[ڟͲk%:v .I۲Nj4X<]AcDVRL"9 k;dLː%`@]@=bȽІcZ~|;Ǿb[ۓ kSmbƈMq~dG@˾{l(vWO HێYݓ yܻSYTI#N/QhHWʻiAZUu$ -{<[u#f?Ua@՘vWi7v{E]Va?nvhvq'=b'dž6LwUi+X7`^,$4RIw@T}=PEsdG>T! }#>)"5zH g? B']BIR$MDr5bF1d-z%aZ tA )ܖCH]Dq䞂%G iE,iX@(:W3$iQa#H)PԕM)vi9U Ul@X z+(♔uqjJQB(R% }$]tl-[ߋrkQ qP VYYA Hn{*C:%5{0 +l`At.CF`*$HB-$)l~v8mCףV 205|3_/'yLT?l}>GnN%i8k5]`oEbJ<5m6aQamS}7y`Mށ >8~8+8;8K>A`J9knkx3|Rm>:+j:^ۋN6BgekJt<͟ERu[Z V=v mς=+h ؟3*~Rw+ 2| #( R]n'4-(BYB{jі@,ԃGi kH=p_$!B$ YRFz/TJib A:734I1(_,R 2HE9ȆAQc(ɡ| O}# C]ЉJ"9{ HeB]mjUZZ,YF0 z"4$~PHZhe#*WI'}<ݍh{Y%H B`(y.) aly"\jID<-i*QS[afTsqU&AǕRE)jA#3-L i*E-6C5A%>)Qy@ڃ0j*J#D*HGe!5d ő$MBIO4}8q40'*Tn<$=HƉwlŔu=!&!Z,:)J>B =HF :md-NR8qPnJeҎRmCW9Y;4\< өiD) Tϲ&eM+lj#[ mmDQRa #5 0C,&>1>h `L5BQ!Fx,ȏǢ%X(P Qv%MQ蓠fu'Q؈P^C%OXdHHΙ<'"QJG_u<ڢ(E$ee|TVXX0 Z= A59$eH,Q!EYp]0m6%O&jPB%ZЃTN;kaMR Ow.WZ5ŭ?ykJ^R͊~5d8}JvZřb r}̮t*.^._ҡ,5'̾8Bk~8Za=[7I)xr16}Pr.kmq\WRQ> Etc;rXBS+&4n (5^BEtW'm >!2f_y6;ϒS`^Pڟ_Q\_} AK5P(J liRp@Rŗ(9٤^ǹRs.RU,$8}ZWS2Y5`OT7aڦGWi{`<ᠩ E㵚}=IV|Se6n @%CDUٮEACLcC!"EdWm˥ӄԯѡAzzJi' LEW\a۵@*j ipl*ba$~Y.)D` PU\UIᛈxU0UM Dl#77vベNNQ7f@`LMHfi9z;>b]Q]_Q2A"a]S VgM@ FE\L,?U=mmsk$pl L%MmYI 1F\ʕMsj]fd -wGxS)RTSW6JI}NJ B-e;> e9aZ( M_HI<%V`Y`t}^%``Aa&a&WeܚWsF *[aV YBVib]e"HCBUP|&j oedTqy B`ҝU =n*Ɉgpi{d2 ~maziVqO@a;ZBf%%B|c E &C[q'mF\[,"DTxҶdWCHef轡3e%9n+Zٛ@nUō(=螁 _Md%5\>d@hEޟƝyV^n-,MG)l !(O c Q5Ea+?" za !iB#Bٯ`]ƊOi4kW /JbU~S5i$BxHvUD%njߺ* L̗.v)SJ?͡IѭRnE?nSG5"Eˇ+SHO r6U&n&.ʕ(Ty>E['|6cW6lNo̷yc!#IJ2r5Bn4hWX5#6nm ʢIVb".>>@#B`)~3oeRDKnVI)tGt%Ɔp@G0N]MH~HIJLmdKo$#YWwљV?! Q^eܿHR)I^%:QzUb+m0q~QLU岐ϾqtND[6ٰq6bF[J(L%%e.Tج2-O,xl+G^0g/0G12/sk_833gcQbdoZPfk4/gZ3}߅Jm7X E$SY:mE%:]mj$na,' :''A !?\gr')g2I zfzgZX8Ds a((!O)4&KoXsnV@S)Nu-RQᖇSrt¨U$ϩ8ʛ֛3fmrSSX7=Ù/>i+Ȕ)\k$q8Q guSirEʝ1[6űF:1[)W֗ziѱOr5Q{šk=6oo6pMpg~g7fs;sBݲr?tott (5rwf7f.A7tF2x'f0*u.ZwxS\޳2| \Ϸ 5i߷Y"&N ȡe\bjnG8Wgox02|8882888׸8W88S99'/97yOGO9WKydo9w9k99999ǹ9y繞999:[:'/:7[FO:K]:gcpg:+C:z8:::׺CC>dB㺭__y;{9'94 ,; @>Do{Ww:0tAo `^4@ O:5?3=>؃3/82xBT>=0w=s;kO_=Ow}+0 K0@LB$L;/3܃2C?~?<AWC?>z4|W~'K|A{͗ |ϳгyG<8}|*G9>`=xCsC A0BA^$@^w5<|4?>?Cŋ'C>9=C? 8aB FI~.rcF9vB柫PH4yeI+reL3g:DgN8ӳLC5ziQ K6uSVzkVtlXȖ5{mYkٶun\sֵ{o^y  2 q5$JqHC`#ē,8ҟʔIw_:e&Wu>~ΑZi9#_>ߺIk9dmW~3ɚL{|ҿ/*Ў_}>U1:B~ i=G 0 GAqA}ِih|D.*gVl hL0 AȚyb!,o>*h 3p&N0|09E(%GpHz3.҅lƅ&YIvbj?c'AJ DFzHJӺӽ4ݔN=#^zˇI\XgU"Y4GkǞٜ1MM)ֻdm~XݔAXd6{Yc;q;9{ ֟OʝUg|A6Zu+~g\zfa͇LmfNLqE 5=qCJy 4>, 9;qY|r q1䄈T zYy2Ay.zM/7  -35nf6M^\q|i4CnZI ~ 7$saPO~2t'E5GΝбt0=,PU_]ok0j 0"lDW?d dIp匱:"%D"BB:b)@COG0vCl!ؑEimbGܠq \\@4Wla2h]@8N&pdcN3IM2xA/(ȩؒ#t9G.s$'Y:K&u<8IO~v} `TqIҪHҋ d=-\Q8F:ʹ>K:$_3>8< cKJ6cq:v*Lx@| @s~7 zP\) }0d La8*"3)JSl #"#* !^(ȑmB?ˇD8v1 FfE-)/[>>k+H)G8h&zdLEMRsH V#uiuXɪ)Q@U F'nWrz%-g+V:1at9eR[ɇ:qsSB&gh}߳%:ðycy,ñHk'8P1u$e 8 6[/4c= PhAMHЛy.vyQ^^ d`axtHG HI.\@`/R7)N٦2pj.˜i'}Dֆ!G/L;t .GU\ՑYWY+i\ccTZohz%03ƫk-`kqeyth}$fo[|8S[ڪHMk9-nBgjާRmAu[vG f;Ol5b CPA)??"IW[awbix:?Q8"eaB6, ؇:TץȢTKcR64!YJ.Phqr(1AqU{R/T3ecw6̠1A.srW\VЌ_6&[i"VXaA- 67a[qP3-rtEN3sՆsX2C7TAg!ZF'n:c J袧j;0I %ŻvRS>A"i\OH f48DVR@h|zHF ۞Hᰱ/Kl0$1`> ^n!n11jO`<ۆ ǭr犺Km|/߶ `2WA&y P1y[vL%3[^V%F7䱍2~4k:q?VpnC:?CЖ?B5m  b9AMA bQB\roQ @k!n!*G #8%f*## `%^ &ž.a  P ?' m â 0bqR / ! !"b b"#/#;r#C1è] $yLl1bSsє(Q (U+!2)#!#)*#"1!<+;3b$I2%,%9'&b&ϭ&m&B'-.R.../R//R.0// 01S1-R!2f  ā@AV-$1O5SS5W5=%1Y!2A6a!@h@c5UX9uXٓhSYٳTF˓-FXQ\E~Za.@Mcu.LӞԠ-FS> `^]@t_=V `aKwUȲTzM֞SQS-b`U/ B`b+Si35L6.nS<-^_EvY8|#=!5xs#ApBEC-P `ajd3KHcF֊ ِ9}_22a`2pS .,.2`2e`>5T-@-zi[ٕ_ۢdC9osYw{ٗYvo 0vVYWg?i0rٚ.,rl&1uynUA!4?+3碛Wy7EUUy6'}orHV6us{xS$C|b VwV/uL6>W<9@5Oi 8cZesy3^zw˦<ZSւJxd.\S3;eų>;ߴKZ?taj"*4 3t%42#jE2zzL@2>2GSUI6tM`~A^AySKA1ITAE~1,IBeut` ;.&#$44Bt~Aj7ׂİ -c;Da8kA!LGBMtm9v_EAmCMSղ{-t?~]feܠയWUV4V5SUNծXey P.=;D5MeSSZ.@BwI!T.vĉp|- TEuӵŗնMU1cRtLImO4bš.F33v˔Q;k~1Iڧ|Vƽϻys37H%;z' Kgy#^n^3w4-Ӟ9r%6Q)~g<+] }xh9pn啞lUm _py6i+0q->y>83vܕފ聘*w|"|ߴ'~ɕ']eevi9T\iC 0.>Wy7VV֓ww7kys?yez}S7}xߔViwVxx/W ?S}zb$H (0I1`R$5 4`⤇;D#+uaʂV ~|1iİ]{IT7t:y?$MTـڿJ$i:RH+:Z0˪wԪWuyJ~W3bXղ{ lEٓ)w>ߺ6d[ B+VgEj(ʏ)ԫ~ k o߿[=ܻ{>˛?zY4`߂;.l`D"P$A$ueo5Xhb@UbSP9C?$aHI(p2 p]VX*C=4Ԇx  PVp au^\`*fXLdQb~",F6aA&nX \ AVxXdŤuChrfi*Oh.h> i$`5iCG 0*H]zi:bEƵrwyjS`ɦ mNKm^mV׀ ے'z:n oK$[oo pLpp +>U4 ;-Lq_qo,XecrLr&r*WGHQ7QաߗNz뜹Xw^|zN;7@z4V{O=4 -oV3K^|OO=<V}TŠ.柏~~OߏϿG paɫTࣼ*p Wp<e6s?`$ OBLP],[ _X oV$>.ġ( ؿQHl(JqT,jq\v5d, c`V1?DSD"d @c'LCH A"M7ycv2!j, &PM ?TWp0Ua#\)qA%$T)%+Euڂ@ Ň1@9Ʀ'@B$"!D%xD$![Z?ͬMB@D~҃%ddg9H p5 Mr.= DǍ%B'YI@++A7=:(h0?;!N>a%hC#4ě/E!Φ4!2EUMqZ"w#7,[ 7>#D QZ|Bѐ 23 +, |䣑Ȏ*ywQ$CxoxBʷ@4WBF@fH6oF^13CcY!QA|:'.5CGz 1a2H|ɦaX}?"Mۈ2AAW&q,l6N-{<ΒudR Xf|^j$R̎\jNb2L*M|$Qe|&!JetӒ9S o)qNk=K϶9mP}N^Ӳt)=oH75)Cr$Dʖɗ,ΡcƑ4%FEv\S, 88~챎UiWY}@00i~@^9Z@qIZ),VwP }t F&Gz ߗX(}/؎14` vڇgIiSJɔpd 8)IXy}x4-Pzp~j-H'VS suHGrpP , 9ќ b瘫I[y,k}[bҟ Za:rXIؐ>!} d%F9q y86wO``w@`6ZУ5ڣ6V=Š7:}ߙ}Y[ʥ]_ a*cJejg`ښ00@ozw:XL 䠹h}AӪW^Ū"ơ"<81䀁h1jZI+`Z $] A:0A @C PD MZޅޗ陮.Nn6 Hp }nbԭ`%w 0pŃާ.1-Y|ᴪ .%~׀ۇqKh:l@_)F'$w>cQ"xY.=\,ۉ팷݇, 4q.H=y^y~GJIޣtP歽}I?A/COEoGIKMD( SOؐ3YoչV9J^2_':j r) "s u!ɧjyd *G*~}G/~doGt@*bĕXN~/ ?1y@3wńAG/Oop0}ȟ}3\/_2:6;LcH* 3؝`_~/ 2`㿊l>8ϩC@ DPB >x@8$`QRH%MD) -]SL5męS)}P,ETRM>=ZJTUN%5V]>:^Ͳ/mW\L}W^}r`… >ݡu?^!,JNv(*6-3:1;=7GC=SIB[M@YeHfQNrVYdPRyZJjjHg{NpRyiT{vmZKmoUivj?iJvIzW^[bZv^e]rv[kbchduwbx|wg|xhnlqot|m{stwz|OZT^\IJTQZR\kvigoovpvtgdmhrpV[`eluz~́}̖~Е}Χxɴѧ~Ҳx̍lOiR~YjHrI|`sG]hmuwnwvWdfpsgwlr{{ÔQ˨jȭsϴlƺwѩhҬrԴlӶx}ʢӉʁ˓օטɇŘև֘ǹح۹Χijסٸ΀ʛ؇֕‚փԭ⪂̇׉̉ӓ•חɝوɋ֗ɔӦɯ֧ɦ׶ǰһȸץժīŶƴ־ڼοɆʖډחŃǖԊٔǦ̿ب׸ʥ˱֨ԴɋΚ՚֝ڢڷۣ H6YȰÇ SHHŋQhȱǏ Cn,A$I(S\2列0cʜ ͛8sg@ pѣH*=jӧP:U@իXZEׯKٳhӎ-۷p%@ݻx˷߿ <@È+>ǐ#;@˘3kysϠBME^ZI-c˦Iv=K S7.~/H]\WJ襁%.w˒yӫ{wO~ 'M8> ii5ؑI:آtb66\rI_?e܎PA\t]QO6\]$ו$wE سLeyz\v{`&ߘgf槦@t IN#-gjY?LÜ#1%J?f4iHG:45?w>:C$iu4I눳]ZRoxia&+f洹HBXC{B}ޢ-I(~x (h9N=ݤ/-j*1jT a; AjzU]XjXCZD?XKlǦa6Kf0G QH+u7"ӟ\)9cBN3#8D#.FE,_=c ˌh5à@t3L&$Ps?@3 N@8ل@.0z67-kwA\,;E Q+_4` 7\;q5ippS,S,FUWP:fE$0\-p Xi3hdXhE.GBV## &;YyTFB° L.SVx&clP.qsGЎl?юEz>:46v\=jˤn(RHԁFY&?q%,ː8*9 Urؠ!3хY`Sj@*ucA#Ud]^B"BHiBs,STLRp山J-XCZ*/%(`N‡ ?&G$pE?2Q-N= $"͈iDe4!inhHdƥ#P k0ZD@ |d+(09$dptDi4TDtUx Łm8ä=a %9 |xoDF+or0H R8jL]x ) Glt)z+ 0046A *81U0W鸇 W,C`$l7j1+ Mi?,zQh|h{<ѐX3+-H+|F,GiF6?8Nb '[jAn% \*[@_ A(Gaqjy{bmY7]f92i)L˃0&2G 4(-5->ACGbbn=u[r]=b( 3|tA9ZQRZ9֤0|wtaנ UtS*MCnV% )6ȃڻ Gd1zby73c_D)-1kZ1 l p@PRe3{+Ba'? )`bo3Zn 7$.zO6vd1qXG?}#:< WEnGʰbH4 FbSEJb YpL3`prx %H BJ@ s2p`5# >et}@ q TJ*'~s8)p&s?$ PP* * dW@R@FDC*;r 1pN8'e0NWG 0T>S?DbP uDPpO yqd0O%U`A#x%4XB6x88:x`k$5Cl/4@\F3SO4#ޒUs`/I9VE{V3#u:U(@'$c4 $ sTd`G9/!H"6"8e$B4C"6Pfr:rksD?plp4#P5`pE:3BMM;Bcp aP hEaB18teL24$ P8Q7@25]۵ Ar$ 6Yq! `a  O Q@E<ٓSM↪A!}`%|`!G}>$_ /Ƞ:z2Jtybz ?Qj#zM@0hSA6`# p4&UQ1_ ``0Pr1_ĩ2y,ʹr-rA.^:!qB!/@9'0#':p,jp9Ա1uH vXҤtXPSJUBXZ'\ _b.g rqsJ~Ma]*+z2 R!,JN>(*6-3:1;=7FC4BY=SH=SZ:Mm?`UFFBB[MWJCXSHCXiIhRNrVRyZIiiGdtNrcRzjPurkQFmqVwybs~v:[;gc>e=YEsTxdyGxb[VmmuxkuvU[JORXNZeycdxhkuhxnv|xGʝbʦiȩt˴uЦkӬqӶxyǎԖĜǟ͕҄᩻ƒȸ˘ʥƶ֩ҶǨǻֻLj؆ɆҜʔՕɚ׎ϦէɦָǿѷŶפ٩ëǹƼֺٷȺɊ֖̓ƄŘՋ؞ѭƈ͖ފԙϚԚۥڸܤqHA7*\ȰÇҘHq⌋3j܈QǏ CȢɓ(S\y҄˗0c A͛8sϟ@{BJѣH>XʴJJիX*ʵׯ`Kٳd]˶۷p ݻx ߿LÈ+^̸F$EJQ˘Vȱ瑠CMz/u^}3YR="FLPӬ qh+WۂУ%*>3pjwËo8oB(Kg*=Ȓ-\RCi, L>C&k$:֓pSۇ=zK\p,ȅ?hcYYӈrhc#m]5yPF)cӞBVÞ>c_DYߙ)CIR3MiIxO>a2XAd!OsOZ*C%ZȔ`͍e gu@;$ lȈ\K*0嬴2VeBꑓP)Ҍ Q4% 7%],):u1aO=(·hLR[\b@~ jYkE?eꪒ:YzU-`48{O57Gb QO a>$2$P/$Fsjd;ٓGz1A+㣉 Wf?3 -@4,ĉ(!Ả#2' #,kk| %  $$Ӄ754{t ː,t# OO#kO=mP09{ U]Ās9SZC,~$S}4O R(Ls֋VO>l1^h=0 >Ԍ<ڬE$R,a N8(2 `l<{ghHƫ]abb1q niD!\oBXִ68t 4<, PBcy cYP Fj`k>!O{#'H4舢gP@26"EdbՈE{TRc'4Gve} "tU4T7hh9E z% :#~P#6 >Es@^,GH&e1KY B/B$L؇9JoopvmqzLߠɈ&1U`h? '/z 0"HC (`)!URZ$ RC?2֨xNTBnDVhL4@P8ٱ|24 xx`G?̷pfH._dxD=H2a{Ԃb T>t!zHv^^f@zdF=d |px\|I|n(/Rk6@ >Tp$;L"QT `R*B+Z6em#/OmA3m?S6⥺Ů]xAנ2,$-$+i IQzF|]π Fp!/Alb{,j( oˆ+bƊ*8/ZcPCqh"!E S mQc s| iFsٴU8#AxjPB+@k Wx`ge0-%t$H?iP??(AZ t,<}R ʠ͕%HHRD\ w _ ~#$r Φd J[;5 7ð,P9\Bo`pajV8$dlkFTIp~Q!`n=tX$4ɳ ?sT q^^0E#*k\6f@A}soDT whW )0 @ l)K#Ϥ E qm U"@L^fQ! 1:p p:wZMHt7ycq0J~!OP\ŀ[G^C"5Ű_rpE1pHH1,A 28E"X|M 2P_a,P_W  %A ;uF쁑[8b!xޥb%0 3A%~nT $)Wz8d67 3$bd3@0:v`Yz@ !'^1Dg^,Z#^;hc c!Np6 *9 Gt(+u8 ` ۵q !P@h3 @ ᙗ5Al#Op qM$1( qS&'`1.A%p 0'U74'#@zD^CbCmGvRyGwnvW^[bXv^e^tq]mbf{cidvwcuwyhx|hnlqot{myqsvXU^]JGMUZU^pfhfnovwufbngswHW]`hki|ty{Η[9^8o;Q@aIxV}OyWse{O~`]kowwpuTeeptgvoryvCɚ^Ȝcyϥ_̩lʭr˴tУjҫqҰnӶx{DŽÇՕěƛЃᬼ̗ŕǹ¦ɳЧǗɲLJԆחʗ֗əۍϦӤȧֶŶҺȸإߩĪƸŹع׼ȸᾃǍɑъҖƃƕшԛ͢ɱҤոɦ̳Ԩطȋ̕։ӚΘәڥٷۣHYp!#Jŋ3jǏ Cɓ(SҐ˗0cA͛8k^ɳϟ@{VJ *]ʴӧPBJիX"ʵׯ\ KٳhӪ5 ۷p @ݻx˷߿MH+W6lH㍐#Ly'ej2AC\e.OҦ&)Z^m`s^{mpzKO˼Пnؿ) B׾z9/1ӓaG&WO5Os?G?;lKr?s, 0m^%? pUo`p(Y%"r"Yŵ?$@s4ݍ8@ݎaQ ;)T<9% yLޓ e$asd~\vgI`PÇOeyYTR/Re'>n ~3"o%>X "q%V㥂i/AD/)(I^AjQ#I9I^,2|Sa#> =$,:ŲyIR,a_ܮhl4(1i4b_\]4Db?,CD`W?4#.:C0VO>{0ʽ<3K*Y[s=t =\g:h2qq&9x쓏&\ WcJ2u" <"S K32# 1N#2ROT;i)&ׁ9D6l*C!L@s,FA 8`>@2nF!l$\6rgtTG:PAHJ Y8t~\?_5)u1>!G:FX aؘ<8DmWp&؈8(+< Uh&5&?ġ uCȢ(P;%%ss2B.R6TPc ZPUMkv-*f8HP#1DkZ>8CMt]8%rf{>\!/yO < ^H64:H4&$Gx]| ΝRG^hUIOCoXib!4:;1<ݢ9kpeM4YK7Ph?9ֶ2N«RI€ۘJAʹR?Jm`Q(D \n)1۸ PۼS%;QQHC> \fcxs<H@t,H%^!чbʇ K8'Ѝ@!ws`k̳ӎR'o[1oC|.pm vba#Nq\6Ó~4=x6=0'Kq$0cͨud>gZHE*}.B1 Ss a?cG1ie bPj* #~=P 8~@Gp p^p Dlgk6H#X'%/@%l>+Pv`shr@yICamDD C f)ȰNF%bK`yp U*P'2 Q@$|pzS1eG >-SvX` mVgbL~xK$H 0 f2s r|l@['7}8bNZ1gNq}l @?\@RFы@  PUPp ĕ>h3G@`\ HD 2nD[E?dJ.`@ .?lXUPH@?r Iq HJqv2'{c&Qz”>x T! >Fl(/c&RJr`+y9Z|zcX {X=oQ"=g[Dp y0W0 W9Yi ThahW` f1ʈ h xR Qw@'QC5`+VE `/m+1 +v;1PBFΆhl2<C<6@-IA?!#@[A?o@"`@ d(JeXO)}Q)R۱A`**qE?y,ᚲbi-{ Ds' m t1a։p*1q aY))@Qġ !,JN(*6-39;*61:=,3T09i7FB8IX=RH>T^:NpU6:m48PNZTZJHMTXUZaifbu}tieowgg}{IV[ly΅D8Q7K3W2a1m8SAiLhPxYjJa]qGwYsKw\aqiuuitTgkwhqnw?ɗZПYΜdtПg˥jȩxɱiɳvҥjҭsӲjԸy~xzʁ†ՒÚЗȁ᪹ˑ°“ǶȈݛ˗חۋéӥصƽиǷ٥¦ĵָչϺἁËȘƂǙ҅ů˶ֹʧδԩִȊ˕ԙΔ՛٥ٹܦߺH*\Ç#JH"3jaǏ CXɓ(S˗0c@͛(ɳϟ@t@ѣHEӧPJիXjj`ׯ`ÊٳhӚ۷pʝKwn=8߆ 0ƑTɸǐ_\S埧ąy3P>@hӨ^װ՚=mus%J_4ŋw^at!_ 4DÆkG\F&Oz^Sܓ?F BC7+?9D1 f`k!Ru?LX mTa?$@wq m ;5<8vmb5<$ᕔ8NzHJNI|>=IIePe%,S+5ȕiH8W &rmCHY.- 0h#( %9$A7%yLb$:4P<\*beRzԃyY!`@+Uove?rkg\bƳ >*W?,#g.BZ<Ѷݎ/UP* afQ$w B.s +gLGb!6xfG gL 2IxL`ŵC# 3O<’t#BG|LN0#_1;"+ A?D< R+Q4H 78;uDAqȡkS(IU's+T2vlt6x;sTC:Oɛ >ǔ>ؘ!$U< \Gmnճ? !L>B.!e3<˃ [hB. <7+ǡh$DQ(GM.DG#s)7 0ߔPs/XGX(!A?gz@Q $YEG4eoB1ǧcd ZxNk{lLDЃiHV"R Qt1"pyl#q6dH`;G= ސ#%]KZ.{><.e fS <}{B|\S" l胐amh0GBnI+ja ?aP?¡laF1Pm,!60:4rTC#@SEfI&%1 0G_FԡڍHcRQ :Šq"IM -J4Mf#:W,(N^QkCh)mrs#o ݵ;΅_>^ Yh(>jpPD2>rDD V5VZr44ePtb8${:g(2 F5܇|R`;1d4B-wDcEoCM`s{qKZ,}W]E|Ȱ/|`nC͘G ‚$Fp60L g@̅e%1]A"R2Lr,_I ! M8 ;ݣ=K#[ud%`7b?eR{{Z]Fė^PxufJUy{eCDpr%hǔNApS"ãzCf` ײAޏv:9t׮'NbnTկ։)ѡubQN/r ޡ?eKEr"a;ذR=\W u'@KE,)UsM(G6gW"9MQvxG3{W3Zq~F.1Pc9=p5p{0ѳ&@6=wLbEB6pa5GZ9g7:PPեs"i^% #~P ut8Q` 0wAp &u:D5;A&jYGPH[$6p 2S ג`D,4 La0 P rr aD DȀ m{g `ŀx92p P6BVtɑā/B4%f `p-jPzq( YpdapOEY4QuMZ`\q<@`}6` 0@qH!gi#=Ui3sY!\I@=eiYGp 5CQZà> uC1~@HQh_t\3%B8 TwUq Џ~Z Wf! YRs;g5װ! ǐoC E0Y 5(6iYpg\ AC[s}q\= A9p @AW(WTp:lb/A ,A@2?>qy T"D?`Ff@"Ҏ@&\&q&@V`wd&B&b!r p(ou(“rQ#)ېrzp9+ivQ.2,\фj&ډ'!RzD@-钳)"ٞ⤛$ YŹPҜi RB!x+& ٠m!,JN(*6-3:;*60:<)+F)*U,2Z2;W*-m+BG7GC9JW=SI=U\+@5Bg6E|B[M\C@YWHB[aHgRNrV]bOVbXRyZHgiIgyMqlKszRxjSuuhVIimUoto';,F)K/T)R2J6P5Y5Z$j3b:c(g/q3i8w7zBZJmFtVzIxfXW^[bYx^e^so]lbi}chdvtbuxwizygmg{tnrw?Qu xg|Qjt wƺ柤Zw4V(fPئ?gpe܆mO'=z3a֥8vl-2gލ  ;1u?'$TC ~YǏ6}U%;Z%([.7ьehfrh._t2'hw:N='w7-? (SVQ5Hbdi 0)WE?},ԖO)Hj[= Iެ% )O$]z A.!sFNm,Q-R=ms#O!?|Ѓ<g9b1L&1ЯlB0ݜ02q=ؖLL;#!1բ; +qAs'>Ͳr l&CEpm\@0d /K p$ ` $(d,c..n; WCO:sBI*U$3 `CVX*ճ? 1L>k#t3<˃KڥPnmCM,|DQ->(]F+tQz"y&sO4+8M4T=g? F?6~A1Aoh}Nहq,I{ByXP%pt䰇 "? HJcb ͙&  hHcE#F Ʒ??`$.pG$AHbJYV$Ԡw?@!'$!v3Dpi& 3n@~!'XGtFЧY8n\52  BLtd \%WlI`}ˆI|p?#fί` x#&^6  40@jN!;p1M0;>i?yN i4c E>PӅ4aEIbH ` @R~"fg)?FUJ&vEK[8)'@\!)hPDN-r8P: $-HhjO#>NT~n6]j# 25,6,' D !sU>,!@ iF[~UG#Yubc%܆2q|~? l8K(&` \H@=O<TGkS IHo(@? 6 ,IUn$*ZK%$<ɵe~ G3*[Wz|j>QYco~Yԅ!\{?RT3;Dt[/"#01lZU(v˾dqpDX:#6X&˟fȏM|vŎ2ĠP b<)exr0\r14XX| [,-X'\3RtfRW )'>@=5k,ljP [6l*$q}/-w;T uy|Cl 1J pGM^?!d3&)AQbrɌnnX!{FL$f&P Ox^36C-K((ZTv(6UF:jg<+ +?]4#?} , Rk]x>{ P?kpA6lXU))K`-!uxcoMN/gV)FA!A1 R#:ߖ $X`5BawagUS߆ QDH pleGv<eTfV} R< <;iZyDȇa/{|IT%27 Е2DA2P>}^*`Q ma T"$Z\h<jj;E*W`61~# ;(Qa#d:w8S׀Tt jLHL"`RWu _ C3C` UP g@*˃=l9T78rUT9gZK 11ӴT;x dDTU0BHOz?QTZVo<0 0VW88F 3eݧ?e:e>p3sBZFiClDuTxEuaHlvV]Zbm]ro;6WT_IJKSZV\xrnu{GW^agfkhtqrxחY8]7e:l2VMxWgJzN|mwI|TcOyAqYdvv`l|NZ\LT_c~bit|M͕NȕZҟ^͙auӝgХ_˥jȦvʹoͳuУiӫqԵmԵvxzyɅדȔǖЅᣯʫǨӳȿٖ֛ڌոƾдخǪĴϲدӵָӲὁęɳǪ˷ѫַƊ˓ӗ͓ԙι֧ٺۤHA'M*\ȰB#JH3jXǏ CIG(S\ɲJ0cʜI38sɳϟJѡ*]ʴRPJJիXjzA @ ųh/r\Ѥ۷p=Kweͻx~AjsPDr41哈[乧?@n|`"U00U_ꚐN=0϶l3,o2%hV:p0L <<<1?R+?0NC.|:p6^sE{CC}VlVM*xQfS[w]%$,|B/L}45<<,mM-|Q?T] 1#/*s GR5n@fR5p07u9 :$F`sRu$)؃c He2*tqR 8b/Ir΁ Q_Cʣ-4$`@юAMĜoG(Hl X^ @)P %3lD6+ꑎ*V"rс#$FGv#q& w(@?QfIG,{ec81oo6a/m܄m n܄98!D=9:)^`( h>I9[ @ǔaj= *Qw6aPQ_c62X$h;tI apfCB"}!+ֹάPB4ԩOFHÉFR ׄĆ6A鉏|qcF=2z2uTɎqtx' yW6`2nD[,gIL&MA^{H͉QaRm<r-21\&\

XְQkJ C 6w8# dZO@;C=@f@VI؄h 0t5 f~Ff@$ X?nwwjP?q{{Do3?+$`# D$dPry!`yԙ 0Obxp3Fzgz^dINB >~Ifސ{C֡jPWn1c'AOqj $zr@k NڑgX-4)P P" ];NЂ.8cwz$cqoP PpqBH)!]!c!t! P(!&2P0G6)3ssbh lgV-0D8R,dSчgRTAk(R*5"9#XD2T va$yQ%>8X%Wr%aWwq]1Xq؋ .!|/w!!Ցv%x!,JN7(*6-39;*61:=(*F()W+5T1;K2c09r-DT7GC6FZ=SI<06!lN#sadD:|x,eBS,jALJOJeTI֌ M1P.@z򙏵t N'C2c?ؠ0=C"rO;>7 =ˉBMV<'/. q9@oE{G` +QO!B/& +,E.ț34,-x+ˍb6Fsc*5#H1:h@R34ɚW 7Ћ(?w`%=ݓm]G}*gP0DԾ+p+; ~" Z(r#?PEX?\: #HDåW<4߼4"|$#`pD;ِdZvDhH܋mJBwRP?z/@סFQcGpCyc19?ѷ-{;?-!t H<b4# C4DYÍP |x1q0 x7%^$EXc>5||# 4+b1hPɷ4vA %B0|̀m i$B@Ə&0TO8i3 bh%%O 5\'s8a?AE+ TG>RX0p㵌3⛊ȝ oqH&8g.硃oO1&)!tChn T3(9EAql׶FI~Ldvr|31iу-ć*gĦ;\D> ܹ):31" ?brlLn1vK@?X Qq2`!Dd*:ύ ceFBI A?!a(’+SI"QBEK0IPeIV&c3&rڛqI~bM;amRS`ZJ EZ`DR>pb0? wTc G*uͯހRENQZT]ygdkw{l|rGJU[[aedyq|<=<=K=V8a1^8f;B@WDgMiRtVhGiRqRrjCxKvPzC|ls|aLXMWN[hsŋXʔWКR͚buѝeС]ˣgǩyѥiիq׵q`{̆Lj֔ǖсᣯʧ̰Ļ½ٙՌѽζޯ·ϱدԳ׷ʾ®ıǨ˼ӮкĊ̓ЈјˎՇӘʼӦ׹ڤIHÇ#:|@ŋ+6ȱǏ C@ɓ(S<˗0c@͛8sYSO+V)ч*%ɴӏ+JI*O]u՛? ?@SWڡp*{)IPD44=! NYpK3"}/)@*֝$޿{K)vG)Ϡq <ˆ'M޾wlfyEYNN2?IL{ۈڂod@?$78ïK$ƄÏ?}qAW=041I# h&rIgLF|KY-n~6p>O>{lY4Z>vx@1eHUx΀p<%3IG&"CO:f5RUnb%5 @?ܴg6ىgsPV= .&?߼431 Z$08}h4 PK:DϯBRFL,@rdj$ 4zl0}?g[Q=>HsݎqQÀvȘ1܀3 `OMK07 o+8ˀ AC4 Q;,0-Ļ3h*xs>ABTGABi9IH,DQ5tE-0HC~k N؂s`u:7&)Dn| n4<@sdσf@ᕚ dk%-f<2A g<.CyqR V%rJ 6f`R~+XU1ea#ź_Gar %GV#MHux6M:@Ds#rd.q-i=%J҄`gYP* S#rB*_4L8:D PXupiEDo. ^B"ܣTl_7:){.(jj!拙Tœ&HaxWe> T!σv#`.:QTu^ 5Y%갾VYe d@64QeY^xAg ,hM'lpӚRjΉ#w0K \č!EͳX~E'ddMU R@ Q` *( ,(J 3x pF-p:AG(8"p`q8Fvh8pAJ`7px `̄&(bɚ099I hB*:0Fe.ӸaC'f|,gY천Bcdd6b !,JN7(*6-39;*61:=()F()W+9G)7S3=M1:W'(j'&x,3g*7w2;s7FC8HW=SI=VY6Ei:Ku:Vi:crK+6M78W*6V<9d)5b=5u*5z:5W(\YE9jD={J9HIDJKQB[M@XVZDAYYJB\nXhZNlpjNFcVGcXT|]MhgWrur)6&:'G'I)U)T0G9V6W%\$jǏ ;Iɓ$\ɲ˗0cʜI͛8s"s` *>PѣH+\ӧ9JJ[UNI[o{0B}aXax MJEL4!)]oq}ƅgBo 14DfI̩]ݾyYk]Kw% ӨU,#i|8oƾFxheSXkYߢ'_)e5 xw]`_?|Y E>1RH S 8#I &B$%,uFC 5"<0A/)3axyDĊ6%Ș#Y< =eO=k`+= I V=zTHs>uK6ѐ!hCNZǨTҎ?SIK>ZJ Ңr JK6ϓT:$:ǠO8TSB.0sJy6:>#^>5k2O)g%EjϹpsEAE-;D>퀣iSJ 0mP /ȦB/bYsұ3 J a 7(;FZ<+ Qo.1ѳެ{58C̺}8Dg'D:̭YapTy- ؀wyјT6#94^suiBtl̮ЬLU(y=wQlѨ#uS'9aOzR[.q̛/%d>/(Hٰ |Xq>+*Zޱ 9<0=( <=B :58#.|&(;ƌ<ȝd @=\>113$gfD t3*B(>ps%cҨd&A(#!E FAR.:(C|":.{U>b;ԝ4A 0 lX&FҨhQ5M /+~|5**Q#ie%΁ Zo'4z5&YCV*% m1ghZ 2}4F N b MXQ QDW9,Ƃ-6:,fi#Th9B$ ub)>P anˉ:K0 JMkjK {R̰ݏ@MּlCXxǬ-Y.9~c g6w)zջZpY7g r_GϕpA~4ϊg=`J܌8ÓBr'" |0Qc"g@VԦOX 0$"'c.ɵG*$vIk֑  LF6 %J0ӂ`.Ig&^j\{*#TU;EwD3$sx0zުַ}[|Pk7[ !,JN(*6+/8-391;=+.G(*R()\/6J-2T1;K1:V'(f))w.4q0:d5CA6EO:KE9KV=SI9RV+Qg9Im6Ds;\ihpK*6H8Hŋ+ȱǏIɑRL ˗0cHPM$`"O ѓH\)S4ޜ0­qh!sJ6ѳ&ECʥ,,2wBim8d?vA" [xFoL}65ZYرcȑ%Qodcֲ"0Ê.4~K4*Y5]Z8wofI< #VY~p 8l45Mvt$p v"xXS#?0`|00- Ve#!`w6<3-#8!?ф2#U儢! R,X3 (۠@#!r<`O5?49#9iSn)Na+S(ih!A$S/RR?k|?B Iʈ ?qҎ\GdFnXGEDzDhcƔ -Q!O"%z jI&"mC=lKRR,E?g>44Aaϧ 3w" D3e`eN1J?XQxӎҎy L2 /QϺ.LK:3ofA; ^d# tGGCCLIQ32 <: {αp3 929`>4݉Q,5O0ݏR BRPR3V܄?TP3d73ĺҏJ^) &E,S㐇+,ldMKE>U?8 %`Gk ~c@"HDCt, h ЊiP"h@5F;6_PkH |Uup#( / C@RfD5(Z4b9*#R A|!0~!hV-C`@5V̑~Ȉ~F6Yohq@) 1`CK GAGB_&P$L@;AhZ˂*'; @" tYp(" f@ @Q4g6K^p< MnN$,Aldn)茊:N[&I&I.S)S2J4W$_9`2a;k*i]Z\mr}};EZWiuCRQWX[[RYsz|~I;W2U:V1Z>a1c>_9h8GAGAY@tUlCrp@{{JS~ciΌ?͒KʔTʔYΙV͜]ќZ̚bsxР^ϡb}ѢfܱfTƉςӂӃ݉ӊՖϘϙЃᣯʎߔ؄Яܼ΢ϬدԴزļϺӽǜǧ˷ǼͿʉ̓ЖЁՕԚٛϷ̼СٻݫH *\0!#JQŋ3jǎBIɓ# ذe"BqA G=x_FĕJx}Ψ'zFq?snZ~v4(֮F͵y~*85;r reBfR橵 46o_fxJ)5N4:J=5O:tTC: Ѐ~(1?t;ɦ\3D@UZ[c_1mxi[!?ci A[w4Ƒ1SyKclU F O~`Oc=h@HYZ>JT_3FE=ܣ`G\D̉'"GEd E7:f|E9E8C7G]-%`!^jpR g,?̐ĝ60t(*6;*6()F()R'=R''o'(f'&~&Je:We9avJ*6J=5V)5b)6r)5|)5V'Q`K4|K4JKEJKQVanaKDaWQja[jkdjkmjkujs|{sc{sm{{|';':&I&I%UUHT_76FT_hhrFSRoyx)4=4=4)4=3<3K3K3W2a1kOr,{{{MzaƍLΒKʒVΙVΟ_ř`͘`sߪH۪^y{{Ɓ݈Ӗϖׁሿ׉߀ϮܻΫدӰĺɿѹŚĥɶĻͶʌ̔ΟӓәؘɻۿܪH*\Ȱ@*PpHb7dATH"u6 qIV(TJmdJE2RLY* #VP&(<F3&hNFX}X(r@ Uqd%@`e`ܹu8#+HȒ"pxȀuc+lD`h D,A Cs*AW 1c ~/EVM_EMACS.txt - restore_cache: keys: - v1-dj-cache-evm-{{ checksum "~/EVM_EMACS.txt" }} - run: evm install $EVM_EMACS --use --skip - save_cache: key: v1-dj-cache-evm-{{ checksum "~/EVM_EMACS.txt" }} paths: - /home/travis/.evm/ # cask - restore_cache: keys: - v1-dj-cache-{{ checksum "~/EVM_EMACS.txt" }} - run: cask - save_cache: key: v1-dj-cache-{{ checksum "~/EVM_EMACS.txt" }} paths: - .cask/ - run: name: Run Tests command: bash test/circleci-runner.sh jobs: "emacs-24.3-travis": environment: EVM_EMACS: "emacs-24.3-travis" <<: *job_config "emacs-24.4-travis": environment: EVM_EMACS: "emacs-24.4-travis" <<: *job_config "emacs-24.5-travis": environment: EVM_EMACS: "emacs-24.5-travis" <<: *job_config "emacs-25.1-travis": environment: EVM_EMACS: "emacs-25.1-travis" <<: *job_config "emacs-25.2-travis": environment: EVM_EMACS: "emacs-25.2-travis" <<: *job_config "emacs-26.1-travis": environment: EVM_EMACS: "emacs-26.1-travis" <<: *job_config workflows: version: 2 build: jobs: - "emacs-24.3-travis" - "emacs-24.4-travis" - "emacs-24.5-travis" - "emacs-25.1-travis" - "emacs-25.2-travis" - "emacs-26.1-travis"