antoinette 0.1.0 → 0.1.1

data/lib/generators/antoinette/templates/Sankey.elm

@@ -0,0 +1,364 @@
+module Sankey exposing
+    ( Diagram
+    , Edge
+    , Model
+    , Node
+    , RenderEvents
+    , defaults
+    , layout
+    , render
+    )
+
+import Dict exposing (Dict)
+import Svg exposing (Svg, g, path, rect, svg, text, text_)
+import Svg.Attributes
+    exposing
+        ( cursor
+        , d
+        , fill
+        , fillOpacity
+        , fontFamily
+        , fontSize
+        , height
+        , rx
+        , stroke
+        , strokeOpacity
+        , strokeWidth
+        , textAnchor
+        , viewBox
+        , width
+        , x
+        , y
+        )
+import Svg.Events exposing (onClick, onMouseOut, onMouseOver)
+
+
+type alias Model =
+    { svgWidth : Float
+    , svgHeight : Float
+    , columnWidths : Dict Int Float
+    , nodePadding : Float
+    , columnSpacing : Float
+    , edgeColor : String
+    , edgeOpacity : Float
+    , fontSize : Float
+    , highlightedNodeIds : List String
+    , lockedNodeIds : List String
+    }
+
+
+defaults : Model
+defaults =
+    { svgWidth = 1100
+    , svgHeight = 800
+    , columnWidths = Dict.empty
+    , nodePadding = 10
+    , columnSpacing = 300
+    , edgeColor = "#999"
+    , edgeOpacity = 0.4
+    , fontSize = 12
+    , highlightedNodeIds = []
+    , lockedNodeIds = []
+    }
+
+
+type alias Node =
+    { id : String
+    , label : String
+    , x : Float
+    , y : Float
+    , height : Float
+    }
+
+
+type alias Edge =
+    { fromId : String
+    , toId : String
+    , fromX : Float
+    , fromY : Float
+    , toX : Float
+    , toY : Float
+    , thickness : Float
+    }
+
+
+type alias Diagram =
+    { columns : Dict Int (List Node)
+    , edges : List Edge
+    }
+
+
+type alias InputNode =
+    { id : String
+    , label : String
+    , column : Int
+    }
+
+
+type alias InputEdge =
+    { fromId : String
+    , toId : String
+    }
+
+
+layout : Model -> List InputNode -> List InputEdge -> Diagram
+layout model inputNodes inputEdges =
+    let
+        inputNodesByColumn =
+            [ List.filter (\n -> n.column == 0) inputNodes
+            , List.filter (\n -> n.column == 1) inputNodes
+            , List.filter (\n -> n.column == 2) inputNodes
+            ]
+
+        nodeHeight =
+            model.fontSize + 8
+
+        columnWidth colIndex =
+            Dict.get colIndex model.columnWidths |> Maybe.withDefault 100
+
+        width0 =
+            columnWidth 0
+
+        width1 =
+            columnWidth 1
+
+        width2 =
+            columnWidth 2
+
+        gap =
+            model.columnSpacing - (width0 + width1) / 2
+
+        columnX col =
+            case col of
+                0 ->
+                    0
+
+                1 ->
+                    width0 + gap
+
+                _ ->
+                    width0 + gap + width1 + gap
+
+        breathingRoom =
+            5
+
+        positionColumn : Int -> List InputNode -> List Node
+        positionColumn colIndex colNodes =
+            List.indexedMap
+                (\rowIndex inputNode ->
+                    { id = inputNode.id
+                    , label = inputNode.label
+                    , x = columnX colIndex
+                    , y = breathingRoom + (toFloat rowIndex * (nodeHeight + model.nodePadding))
+                    , height = nodeHeight
+                    }
+                )
+                colNodes
+
+        columns =
+            inputNodesByColumn
+                |> List.indexedMap positionColumn
+                |> List.indexedMap Tuple.pair
+                |> Dict.fromList
+
+        allNodes =
+            Dict.values columns |> List.concat
+
+        nodeDict =
+            List.map (\n -> ( n.id, n )) allNodes
+
+        findNode nodeId =
+            List.head (List.filter (\( id, _ ) -> id == nodeId) nodeDict)
+                |> Maybe.map Tuple.second
+
+        nodeToColumn =
+            inputNodes
+                |> List.map (\n -> ( n.id, n.column ))
+                |> Dict.fromList
+
+        edgeThickness =
+            4
+
+        positionEdge : InputEdge -> Maybe Edge
+        positionEdge inputEdge =
+            Maybe.map2
+                (\fromNode toNode ->
+                    let
+                        fromColIndex =
+                            Dict.get inputEdge.fromId nodeToColumn |> Maybe.withDefault 0
+
+                        fromWidth =
+                            columnWidth fromColIndex
+                    in
+                    { fromId = inputEdge.fromId
+                    , toId = inputEdge.toId
+                    , fromX = fromNode.x + fromWidth
+                    , fromY = fromNode.y + (fromNode.height / 2)
+                    , toX = toNode.x
+                    , toY = toNode.y + (toNode.height / 2)
+                    , thickness = edgeThickness
+                    }
+                )
+                (findNode inputEdge.fromId)
+                (findNode inputEdge.toId)
+
+        positionedEdges =
+            List.filterMap positionEdge inputEdges
+    in
+    { columns = columns
+    , edges = positionedEdges
+    }
+
+
+type alias RenderEvents msg =
+    { onSelectNode : String -> msg
+    , onDeselectNode : msg
+    , onLockNode : String -> msg
+    }
+
+
+render : Model -> RenderEvents msg -> Diagram -> Svg msg
+render model events diagram =
+    let
+        renderColumn colIndex nodes =
+            let
+                colWidth =
+                    Dict.get colIndex model.columnWidths |> Maybe.withDefault 100
+            in
+            List.map (renderNode model events colWidth) nodes
+
+        renderedNodes =
+            diagram.columns
+                |> Dict.toList
+                |> List.concatMap (\( colIndex, nodes ) -> renderColumn colIndex nodes)
+    in
+    svg
+        [ width (String.fromFloat model.svgWidth)
+        , height (String.fromFloat model.svgHeight)
+        , viewBox
+            ("0 0 "
+                ++ String.fromFloat model.svgWidth
+                ++ " "
+                ++ String.fromFloat model.svgHeight
+            )
+        ]
+        [ g [] (List.map (renderEdge model) diagram.edges)
+        , g [] renderedNodes
+        ]
+
+
+renderNode : Model -> RenderEvents msg -> Float -> Node -> Svg msg
+renderNode model events nodeWidth node =
+    let
+        thisNodeLocked =
+            List.member node.id model.lockedNodeIds
+
+        anyNodesLocked =
+            not (List.isEmpty model.lockedNodeIds)
+
+        interactionEvents =
+            if thisNodeLocked then
+                [ onClick (events.onLockNode node.id)
+                , cursor "pointer"
+                ]
+
+            else if anyNodesLocked then
+                []
+
+            else
+                [ onClick (events.onLockNode node.id)
+                , onMouseOver (events.onSelectNode node.id)
+                , onMouseOut events.onDeselectNode
+                , cursor "pointer"
+                ]
+
+        nodeAttrs =
+            interactionEvents
+
+        isHighlighted =
+            List.member node.id model.highlightedNodeIds
+
+        borderColor =
+            if isHighlighted then
+                "hotpink"
+
+            else
+                "#60A5FA"
+    in
+    g nodeAttrs
+        [ rect
+            [ x (String.fromFloat node.x)
+            , y (String.fromFloat node.y)
+            , width (String.fromFloat nodeWidth)
+            , height (String.fromFloat node.height)
+            , fill "white"
+            , fillOpacity "0.5"
+            , stroke borderColor
+            , strokeWidth "1"
+            , rx "3"
+            ]
+            []
+        , text_
+            [ x (String.fromFloat (node.x + 5))
+            , y (String.fromFloat (node.y + node.height / 2 + 4))
+            , fontSize (String.fromFloat model.fontSize)
+            , fontFamily "system-ui, sans-serif"
+            , textAnchor "start"
+            , fill "#374151"
+            ]
+            [ text node.label ]
+        ]
+
+
+renderEdge : Model -> Edge -> Svg msg
+renderEdge model edge =
+    let
+        midX =
+            (edge.fromX + edge.toX) / 2
+
+        controlX1 =
+            edge.fromX + (midX - edge.fromX) * 0.5
+
+        controlX2 =
+            edge.toX - (edge.toX - midX) * 0.5
+
+        pathD =
+            String.join " "
+                [ "M"
+                , String.fromFloat edge.fromX
+                , String.fromFloat edge.fromY
+                , "C"
+                , String.fromFloat controlX1
+                , String.fromFloat edge.fromY
+                , String.fromFloat controlX2
+                , String.fromFloat edge.toY
+                , String.fromFloat edge.toX
+                , String.fromFloat edge.toY
+                ]
+
+        isHighlighted =
+            List.member edge.fromId model.highlightedNodeIds
+                || List.member edge.toId model.highlightedNodeIds
+
+        strokeColor =
+            if isHighlighted then
+                "hotpink"
+
+            else
+                model.edgeColor
+
+        opacity =
+            if isHighlighted then
+                1.0
+
+            else
+                model.edgeOpacity
+    in
+    path
+        [ d pathD
+        , stroke strokeColor
+        , strokeWidth (String.fromFloat edge.thickness)
+        , strokeOpacity (String.fromFloat opacity)
+        , fill "none"
+        ]
+        []

data/lib/generators/antoinette/templates/graph_controller.rb

@@ -0,0 +1,9 @@
+# frozen_string_literal: true
+
+module Antoinette
+  class GraphController < ::ApplicationController
+    def show
+      @bundle_graph = File.read(Rails.root.join("config/antoinette.json"))
+    end
+  end
+end

data/lib/generators/antoinette/templates/show.html.erb

@@ -0,0 +1,11 @@
+<div id="bundle-graph"></div>
+
+<script>
+  document.addEventListener('DOMContentLoaded', function() {
+    var container = document.getElementById('bundle-graph');
+    Elm.BundleGraph.init({
+      node: container,
+      flags: <%= raw @bundle_graph %>
+    });
+  });
+</script>

data/lib/tasks/antoinette.rake

@@ -0,0 +1,10 @@
+# frozen_string_literal: true
+
+namespace :antoinette do
+  desc "Build JavaScript bundles from Elm apps"
+  task build: :environment do
+    Antoinette::CLI::Commands::Build.new.call
+  end
+end
+
+Rake::Task["assets:precompile"].enhance(["antoinette:build"])

metadata

@@ -1,31 +1,126 @@
 --- !ruby/object:Gem::Specification
 name: antoinette
 version: !ruby/object:Gem::Version
-  version: 0.1.0
+  version: 0.1.1
 platform: ruby
 authors:
 - Giles Bowkett
-autorequire: 
 bindir: bin
 cert_chain: []
-date: 2026-01-05 00:00:00.000000000 Z
-dependencies: []
-description: 
-email: 
+date: 1980-01-02 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rails
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '7.0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '7.0'
+- !ruby/object:Gem::Dependency
+  name: csv
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.0'
+- !ruby/object:Gem::Dependency
+  name: dry-cli
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.0'
+- !ruby/object:Gem::Dependency
+  name: haikunator
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.1'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.1'
+- !ruby/object:Gem::Dependency
+  name: uglifier
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '4.2'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '4.2'
+description: Antoinette analyzes which Elm apps are used in Rails views, bundles them
+  together, and injects script tags into templates. Minimizes HTTP requests while
+  ensuring each page only loads the Elm apps it needs.
+email:
+- gilesb@gmail.com
 executables: []
 extensions: []
 extra_rdoc_files: []
 files:
-- CODE_OF_CONDUCT.md
+- CHANGELOG.md
 - LICENSE.txt
 - README.md
 - lib/antoinette.rb
+- lib/antoinette/cli/commands.rb
+- lib/antoinette/engine.rb
+- lib/antoinette/services/clear_script_tag.rb
+- lib/antoinette/services/compile_elm.rb
+- lib/antoinette/services/concat_bundle.rb
+- lib/antoinette/services/elm_app_usage_analyzer.rb
+- lib/antoinette/services/inject_script_tag.rb
+- lib/antoinette/services/partial_resolver.rb
+- lib/antoinette/services/weaver.rb
 - lib/antoinette/version.rb
-homepage: 
+- lib/generators/antoinette/install_generator.rb
+- lib/generators/antoinette/templates/BundleGraph.elm
+- lib/generators/antoinette/templates/Sankey.elm
+- lib/generators/antoinette/templates/graph_controller.rb
+- lib/generators/antoinette/templates/show.html.erb
+- lib/tasks/antoinette.rake
+homepage: https://github.com/gilesbowkett/antoinette
 licenses:
 - MIT
-metadata: {}
-post_install_message: 
+metadata:
+  changelog_uri: https://github.com/gilesbowkett/antoinette/blob/main/CHANGELOG.md
+post_install_message: |2+
+
+  Thanks for installing Antoinette!
+
+  To complete setup, run:
+
+    bin/rails generate antoinette:install
+
 rdoc_options: []
 require_paths:
 - lib
@@ -33,15 +128,15 @@ required_ruby_version: !ruby/object:Gem::Requirement
   requirements:
   - - ">="
     - !ruby/object:Gem::Version
-      version: '0'
+      version: 3.1.0
 required_rubygems_version: !ruby/object:Gem::Requirement
   requirements:
   - - ">="
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
-rubygems_version: 3.0.3.1
-signing_key: 
+rubygems_version: 4.0.3
 specification_version: 4
-summary: Weave Elm
+summary: Weaves Elm apps into JavaScript bundles for Rails templates
 test_files: []
+...

data/CODE_OF_CONDUCT.md

@@ -1,74 +0,0 @@
-# Contributor Covenant Code of Conduct
-
-## Our Pledge
-
-In the interest of fostering an open and welcoming environment, we as
-contributors and maintainers pledge to making participation in our project and
-our community a harassment-free experience for everyone, regardless of age, body
-size, disability, ethnicity, gender identity and expression, level of experience,
-nationality, personal appearance, race, religion, or sexual identity and
-orientation.
-
-## Our Standards
-
-Examples of behavior that contributes to creating a positive environment
-include:
-
-* Using welcoming and inclusive language
-* Being respectful of differing viewpoints and experiences
-* Gracefully accepting constructive criticism
-* Focusing on what is best for the community
-* Showing empathy towards other community members
-
-Examples of unacceptable behavior by participants include:
-
-* The use of sexualized language or imagery and unwelcome sexual attention or
-advances
-* Trolling, insulting/derogatory comments, and personal or political attacks
-* Public or private harassment
-* Publishing others' private information, such as a physical or electronic
-  address, without explicit permission
-* Other conduct which could reasonably be considered inappropriate in a
-  professional setting
-
-## Our Responsibilities
-
-Project maintainers are responsible for clarifying the standards of acceptable
-behavior and are expected to take appropriate and fair corrective action in
-response to any instances of unacceptable behavior.
-
-Project maintainers have the right and responsibility to remove, edit, or
-reject comments, commits, code, wiki edits, issues, and other contributions
-that are not aligned to this Code of Conduct, or to ban temporarily or
-permanently any contributor for other behaviors that they deem inappropriate,
-threatening, offensive, or harmful.
-
-## Scope
-
-This Code of Conduct applies both within project spaces and in public spaces
-when an individual is representing the project or its community. Examples of
-representing a project or community include using an official project e-mail
-address, posting via an official social media account, or acting as an appointed
-representative at an online or offline event. Representation of a project may be
-further defined and clarified by project maintainers.
-
-## Enforcement
-
-Instances of abusive, harassing, or otherwise unacceptable behavior may be
-reported by contacting the project team at gilesb@gmail.com. All
-complaints will be reviewed and investigated and will result in a response that
-is deemed necessary and appropriate to the circumstances. The project team is
-obligated to maintain confidentiality with regard to the reporter of an incident.
-Further details of specific enforcement policies may be posted separately.
-
-Project maintainers who do not follow or enforce the Code of Conduct in good
-faith may face temporary or permanent repercussions as determined by other
-members of the project's leadership.
-
-## Attribution
-
-This Code of Conduct is adapted from the [Contributor Covenant][homepage], version 1.4,
-available at [http://contributor-covenant.org/version/1/4][version]
-
-[homepage]: http://contributor-covenant.org
-[version]: http://contributor-covenant.org/version/1/4/