diff --git a/pkgs/kak-tree-grepper/rc/kak-tree-grepper.kak b/pkgs/kak-tree-grepper/rc/kak-tree-grepper.kak index 712d46e..2998d3d 100644 --- a/pkgs/kak-tree-grepper/rc/kak-tree-grepper.kak +++ b/pkgs/kak-tree-grepper/rc/kak-tree-grepper.kak @@ -18,7 +18,7 @@ define-command -override -docstring "jump somewhere in an Elm file's definition SESSION=$6 # do the magic! - QUERY="(function_declaration_left (lower_case_identifier)@function) (type_declaration (type) (upper_case_identifier)@type) (type_alias_declaration (type) (alias) (upper_case_identifier)@alias) (union_variant (upper_case_identifier)@constructor) (field_type (lower_case_identifier)@field) (lower_pattern)@pattern (exposed_type)@exposed_type (exposed_value)@exposed_value (as_clause (as) (upper_case_identifier)@module_alias)" + QUERY="(function_declaration_left (lower_case_identifier)@function) (type_declaration (type) (upper_case_identifier)@type) (type_alias_declaration (type) (alias) (upper_case_identifier)@alias) (union_variant (upper_case_identifier)@constructor) (field_type (lower_case_identifier)@field) (lower_pattern)@pattern (exposed_type)@exposed_type (exposed_value)@exposed_value (as_clause (as) (upper_case_identifier)@module_alias) (port_annotation (port) (lower_case_identifier)@port)" EDIT_LOCATION="$("$TREE_GREPPER" --language elm "$QUERY" "$FILE" | fzf --with-nth 4,5 --nth 2,1 --delimiter=: --query "$FZF_QUERY" --select-1 | cut -d : -f 1-3 | tr : ' ')" printf "evaluate-commands -client %s edit %s\n" "$CLIENT" "$EDIT_LOCATION" | indiekak -p "$SESSION" diff --git a/sample-projects/elm/src/KitchenSink.elm b/sample-projects/elm/src/KitchenSink.elm index 82d69b1..33de3dc 100644 --- a/sample-projects/elm/src/KitchenSink.elm +++ b/sample-projects/elm/src/KitchenSink.elm @@ -1,4 +1,4 @@ -module KitchenSink exposing (..) +port module KitchenSink exposing (..) type Id @@ -30,3 +30,9 @@ deconstructions = "nope" in b + + +port outgoingPort : Int -> Cmd msg + + +port incomingPort : Sub Int