From 25cd29dca4319f7d592e244743e453dfb3d46771 Mon Sep 17 00:00:00 2001
From: Alex Leferry 2 <alexherbo2@gmail.com>
Date: Thu, 3 Mar 2016 18:52:54 +0100
Subject: [PATCH] =?UTF-8?q?add=20:alt=20command=20to=20jump=20to=20the=20a?=
 =?UTF-8?q?lternate=20file=20(implementation=20=E2=86=94=20test)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 rc/extra/moon.kak | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/rc/extra/moon.kak b/rc/extra/moon.kak
index 90f5d59c..fd745b4d 100644
--- a/rc/extra/moon.kak
+++ b/rc/extra/moon.kak
@@ -36,6 +36,31 @@ addhl -group /moon/code regex \<(and|break|catch|class|continue|do|else(if)?|exp
 # Commands
 # ‾‾‾‾‾‾‾‾
 
+def moon-alternative-file -docstring 'Jump to the alternate file (implementation ↔ test)' %{ %sh{
+    case $kak_buffile in
+        *spec/*_spec.moon)
+            altfile=$(eval echo $(echo $kak_buffile | sed -e s+spec/+'*'/+';'s/_spec//))
+            [ ! -f $altfile ] && echo "echo -color Error 'implementation file not found'" && exit
+        ;;
+        *.moon)
+            path=$kak_buffile
+            dirs=$(while [ $path ]; do echo $path; path=${path%/*}; done | tail -n +2)
+            for dir in $dirs; do
+                altdir=$dir/spec
+                if [ -d $altdir ]; then
+                    altfile=$altdir/$(realpath $kak_buffile --relative-to $dir | sed -e s+[^/]'*'/++';'s/.moon$/_spec.moon/)
+                    break
+                fi
+            done
+            [ ! -d $altdir ] && echo "echo -color Error 'spec/ not found'" && exit
+        ;;
+        *)
+            echo "echo -color Error 'alternative file not found'" && exit
+        ;;
+    esac
+    echo "edit $altfile"
+}}
+
 def -hidden _moon_filter_around_selections %{
     eval -draft -itersel %{
         exec <a-x>
@@ -80,6 +105,8 @@ hook global WinSetOption filetype=moon %{
     hook window InsertChar .* -group moon-indent _moon_indent_on_char
     hook window InsertChar \n -group moon-indent _moon_indent_on_new_line
 
+    alias window alt moon-alternative-file
+
     set window comment_line_chars '--'
     set window comment_selection_chars ''
 }
@@ -88,4 +115,6 @@ hook global WinSetOption filetype=(?!moon).* %{
     rmhl moon
     rmhooks window moon-indent
     rmhooks window moon-hooks
+
+    unalias window alt moon-alternative-file
 }