Merge pull request #82 from tonini/kernel-function-goto-fix

support Kernel and Kernel.SpecialForms function jump to defintions

CHANGELOG.md

@@ -4,6 +4,7 @@
 
 ### Enhancements
 
+  * [Goto] Support jumping to `Kernel` and `Kernel.Specialforms` functions
   * [Project] `alchemist-project-open-tests-for-current-file` needs to be an interactive function
     and `alchemist--project-open-tests-for-current-file` not (it's a private function)
   * [Keybindings] Add customizable keybinding prefix (default: `C-c a`)

alchemist-goto.el

@@ -97,7 +97,7 @@
 (defun alchemist-goto--open-definition (expr)
   (let* ((module (alchemist-goto--extract-module expr))
          (module (alchemist-goto--get-full-path-of-alias module))
-         (module (if module module "AlchemistGoto"))
+         (module (if module module "nil"))
          (function (alchemist-goto--extract-function expr))
          (function (if function function "\"\""))
          (file (alchemist-goto--get-module-source module function)))
@@ -182,12 +182,26 @@
 (defun alchemist-goto--get-module-source-code (module function)
   (format "
 defmodule Source do
+
+  def find(nil, function) do
+    cond do
+      List.keymember?(get_module_funs(Kernel), function, 0) ->
+        IO.puts source(Kernel)
+      List.keymember?(get_module_funs(Kernel.SpecialForms), function, 0) ->
+        IO.puts source(Kernel.SpecialForms)
+      true ->
+        IO.puts \"\"
+    end
+  end
+
   def find(module, function) do
     cond do
       Code.ensure_loaded?(module) ->
         IO.puts source(module)
       List.keymember?(Kernel.module_info[:exports], function, 0) ->
         IO.puts source(Kernel)
+      List.keymember?(Kernel.SpecialForms.module_info[:exports], function, 0) ->
+        IO.puts source(Kernel.SpecialForms)
       true ->
         IO.puts \"\"
     end
@@ -201,6 +215,18 @@ defmodule Source do
       source -> \"source-file-path:\" <> List.to_string(source)
     end
   end
+
+  defp get_module_funs(mod) do
+    if function_exported?(mod, :__info__, 1) do
+      if docs = Code.get_docs(mod, :docs) do
+        for {tuple, _line, _kind, _sign, doc} <- docs, doc != false, do: tuple
+      else
+        (mod.__info__(:functions) -- [__info__: 1]) ++ mod.__info__(:macros)
+      end
+    else
+      mod.module_info(:exports)
+    end
+  end
 end
 
 Source.find(%s, :%s)" module function))