hyper-operation 0.5.0

data/examples/chat-app/app/controllers/home_controller.rb

@@ -0,0 +1,5 @@
+class HomeController < ApplicationController
+  def app
+    render_component
+  end
+end

data/examples/chat-app/app/helpers/application_helper.rb

@@ -0,0 +1,2 @@
+module ApplicationHelper
+end

data/examples/chat-app/app/hyperloop/components/app.rb

@@ -0,0 +1,11 @@
+class App < Hyperloop::Component
+  def render
+    div do
+      Nav()
+      if MessageStore.online?
+        Messages()
+        InputBox()
+      end
+    end
+  end
+end

data/examples/chat-app/app/hyperloop/components/formatted_div.rb

@@ -0,0 +1,13 @@
+class FormattedDiv < Hyperloop::Component
+  param :markdown, type: String
+  collect_other_params_as :attributes
+
+  def render
+    div(params.attributes) do # send other attributes on to the outer div
+      div(
+        dangerously_set_inner_HTML:
+          { __html: `marked(#{params.markdown}, {sanitize: true })` }
+      )
+    end
+  end
+end

data/examples/chat-app/app/hyperloop/components/input_box.rb

@@ -0,0 +1,29 @@
+class InputBox < Hyperloop::Component
+  before_mount { mutate.composition '' }
+
+  def render
+    div.row.form_group.input_box.navbar.navbar_inverse.navbar_fixed_bottom do
+      div.col_sm_1.white { 'Say: ' }
+      textarea.col_sm_5(rows: rows, value: state.composition)
+      .on(:change) do |e|
+        mutate.composition e.target.value
+      end
+      .on(:key_down) do |e|
+        send! if send_key?(e)
+      end
+      FormattedDiv class: 'col-sm-5 white', markdown: state.composition
+    end
+  end
+
+  def rows
+    [state.composition.count("\n") + 1, 20].min
+  end
+
+  def send_key?(e)
+    (e.char_code == 13 || e.key_code == 13) && (e.meta_key || e.ctrl_key)
+  end
+
+  def send!
+    Operations::Send message: mutate.composition(''), user_name: MessageStore.user_name
+  end
+end

data/examples/chat-app/app/hyperloop/components/message.rb

@@ -0,0 +1,29 @@
+class Message < Hyperloop::Component
+  param :message, type: Hash
+
+  after_mount :scroll_to_bottom
+  after_update :scroll_to_bottom
+
+  def render
+   div.row.alternating.message do
+     div.col_sm_2 { params.message[:from] }
+     FormattedDiv class: 'col-sm-8', markdown: params.message[:message]
+     div.col_sm_2 { formatted_time }
+   end
+  end
+
+  def scroll_to_bottom
+    Element['html, body'].animate({ scrollTop: Element[Document].height }, :slow)
+  end
+
+  def formatted_time
+    time = params.message[:time]
+    if Time.now < time + 1.day
+      time.strftime '%I:%M %p'
+    elsif Time.now < time + 7.days
+      time.strftime '%A'
+    else
+      time.strftime '%D %I:%M %p'
+    end
+  end
+end

data/examples/chat-app/app/hyperloop/components/messages.rb

@@ -0,0 +1,9 @@
+class Messages < Hyperloop::Component
+  def render
+    div.container do # add the bootstrap .container class here.
+      MessageStore.all.each do |message|
+        Message message: message
+      end
+    end
+  end
+end

data/examples/chat-app/app/hyperloop/components/nav.rb

@@ -0,0 +1,30 @@
+class Nav < Hyperloop::Component
+
+  before_mount do
+    mutate.user_name_input ''
+  end
+
+  render do
+    div.navbar.navbar_inverse.navbar_fixed_top do
+      div.container do
+        div.collapse.navbar_collapse(id: 'navbar') do
+          form.navbar_form.navbar_left(role: :search) do
+            div.form_group do
+              input.form_control(type: :text, value: state.user_name_input, placeholder: "Enter Your Handle"
+              ).on(:change) do |e|
+                mutate.user_name_input e.target.value
+              end
+              button.btn.btn_default(type: :button) { "login!" }.on(:click) do
+                Operations::Join(user_name: state.user_name_input)
+              end if valid_new_input?
+            end
+          end
+        end
+      end
+    end
+  end
+
+  def valid_new_input?
+    state.user_name_input.present? && state.user_name_input != MessageStore.user_name
+  end
+end

data/examples/chat-app/app/hyperloop/operations/operations.rb

@@ -0,0 +1,56 @@
+module Operations
+  # encapsulates our "messages store" server side
+  # the params and dispatcher will be inherited
+  class ServerBase < Hyperloop::ServerOp
+    param :acting_user, nils: true
+    param :user_name
+    dispatch_to { Hyperloop::Application }
+
+    def messages
+      Rails.cache.fetch('messages') { [] }
+    end
+
+    def add_message
+      params.message = {
+        message: params.message,
+        time: Time.now,
+        from: params.user_name
+      }
+      Rails.cache.write('messages', messages << params.message)
+    end
+  end
+
+  # get all the messages
+  class GetMessages < ServerBase
+    outbound :messages
+
+    step { params.messages = messages }
+
+    def self.deserialize_dispatch(messages)
+      # convert the time string back to time
+      messages[:messages].each do |message|
+        message[:time] = Time.parse(message[:time])
+      end
+      messages
+    end
+  end
+
+  # send a message to everybody
+  class Send < ServerBase
+    param :message
+
+    step :add_message
+
+    def self.deserialize_dispatch(message)
+      # convert time strings back to time
+      message[:message][:time] = Time.parse(message[:message][:time])
+      message
+    end
+  end
+
+  # client side only: registers user_name and then gets the messages
+  class Join < Hyperloop::Operation
+    param :user_name
+    step GetMessages
+  end
+end

data/examples/chat-app/app/hyperloop/stores/message_store.rb

@@ -0,0 +1,23 @@
+class MessageStore < Hyperloop::Store
+  state :messages, scope: :class, reader: :all
+  state :user_name, scope: :class, reader: true
+
+  def self.online?
+    state.messages
+  end
+
+  receives Operations::Join do |params|
+    puts "receiving Operations::Join(#{params})"
+    mutate.user_name params.user_name
+  end
+
+  receives Operations::GetMessages do |params|
+    puts "receiving Operations::GetMessages(#{params})"
+    mutate.messages params.messages
+  end
+
+  receives Operations::Send do |params|
+    puts "receiving Operations::Send(#{params})"
+    mutate.messages << params.message
+  end
+end

data/examples/chat-app/app/models/application_record.rb

@@ -0,0 +1,3 @@
+class ApplicationRecord < ActiveRecord::Base
+  self.abstract_class = true
+end

data/examples/chat-app/app/models/models.rb

@@ -0,0 +1,2 @@
+# app/models/models.rb
+require_tree './public' if RUBY_ENGINE == 'opal'

data/examples/chat-app/app/models/public/announcement.rb

@@ -0,0 +1,8 @@
+class Announcement < Hyperloop::ServerOp
+  # should be able to say always_allow_connection HERE... instead its in the policy file...
+  # and setting a connection for a ServerOp should automatically dispatch to that connection..
+  # a few bugs to fix...
+  param :acting_user, nils: true
+  param :message
+  dispatch_to { Application }
+end

data/examples/chat-app/app/policies/application_policy.rb

@@ -0,0 +1,5 @@
+# app/policies/application_policy
+class Hyperloop::ApplicationPolicy
+  # Allow any session to connect:
+  always_allow_connection
+end if Rails.env.development?

data/examples/chat-app/app/views/layouts/application.html.erb

@@ -0,0 +1,51 @@
+<!DOCTYPE html>
+<html>
+  <head>
+    <title>ChatApp</title>
+    <%= csrf_meta_tags %>
+
+    <%= stylesheet_link_tag    'application', media: 'all', 'data-turbolinks-track': 'reload' %>
+    <%= javascript_include_tag 'application', 'data-turbolinks-track': 'reload' %>
+
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/marked/0.3.5/marked.min.js"></script>
+    <link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.6/css/bootstrap.min.css" integrity="sha384-1q8mTJOASx8j1Au+a5WDVnPi2lkFfwwEAa8hDDdjZlpLegxhjVME1fgjWPGmkzs7" crossorigin="anonymous">
+    <link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.6/css/bootstrap-theme.min.css" integrity="sha384-fLW2N01lMqjakBkx3l/M9EahuwpSfeNvV63J5ezn3uZzapT0u7EYsXMjQV+0En5r" crossorigin="anonymous">
+    <script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.6/js/bootstrap.min.js" integrity="sha384-0mSbJDEHialfmuBBQP6A4Qrprq5OVfW37PRR3j5ELqxss1yVqOtnepnHVP9aJ7xS" crossorigin="anonymous"></script>
+    <style type="text/css">
+    body {
+      padding-top: 50px;
+      padding-bottom: 60px;
+    }
+    div.alternating:nth-of-type(odd) {
+      background-color: #ddd;
+    }
+    div.alternating:nth-of-type(even) {
+      background-color: #ccc;
+    }
+    .input-box {
+      padding: 10px;
+    }
+    .white {
+      color: white;
+    }
+    .message {
+      padding-top: 10px;
+    }
+    textarea {
+      width: 100%;;
+    }
+    div.reactrb-icon {
+      float: left;
+      width: 50px;
+      height: 50px;
+      margin-right: 8px;
+      background-size: contain;
+      background-image: url("http://ruby-hyperloop.io/images/hyperloop_white.svg");
+  }
+      </style>
+  </head>
+
+  <body>
+    <%= yield %>
+  </body>
+</html>

data/examples/chat-app/bin/bundle

@@ -0,0 +1,3 @@
+#!/usr/bin/env ruby
+ENV['BUNDLE_GEMFILE'] ||= File.expand_path('../../Gemfile', __FILE__)
+load Gem.bin_path('bundler', 'bundle')

data/examples/chat-app/bin/rails

@@ -0,0 +1,9 @@
+#!/usr/bin/env ruby
+begin
+  load File.expand_path('../spring', __FILE__)
+rescue LoadError => e
+  raise unless e.message.include?('spring')
+end
+APP_PATH = File.expand_path('../config/application', __dir__)
+require_relative '../config/boot'
+require 'rails/commands'

data/examples/chat-app/bin/rake

@@ -0,0 +1,9 @@
+#!/usr/bin/env ruby
+begin
+  load File.expand_path('../spring', __FILE__)
+rescue LoadError => e
+  raise unless e.message.include?('spring')
+end
+require_relative '../config/boot'
+require 'rake'
+Rake.application.run

data/examples/chat-app/bin/setup

@@ -0,0 +1,34 @@
+#!/usr/bin/env ruby
+require 'pathname'
+require 'fileutils'
+include FileUtils
+
+# path to your application root.
+APP_ROOT = Pathname.new File.expand_path('../../', __FILE__)
+
+def system!(*args)
+  system(*args) || abort("\n== Command #{args} failed ==")
+end
+
+chdir APP_ROOT do
+  # This script is a starting point to setup your application.
+  # Add necessary setup steps to this file.
+
+  puts '== Installing dependencies =='
+  system! 'gem install bundler --conservative'
+  system('bundle check') || system!('bundle install')
+
+  # puts "\n== Copying sample files =="
+  # unless File.exist?('config/database.yml')
+  #   cp 'config/database.yml.sample', 'config/database.yml'
+  # end
+
+  puts "\n== Preparing database =="
+  system! 'bin/rails db:setup'
+
+  puts "\n== Removing old logs and tempfiles =="
+  system! 'bin/rails log:clear tmp:clear'
+
+  puts "\n== Restarting application server =="
+  system! 'bin/rails restart'
+end

data/examples/chat-app/bin/spring

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby
+
+# This file loads spring without using Bundler, in order to be fast.
+# It gets overwritten when you run the `spring binstub` command.
+
+unless defined?(Spring)
+  require 'rubygems'
+  require 'bundler'
+
+  lockfile = Bundler::LockfileParser.new(Bundler.default_lockfile.read)
+  spring = lockfile.specs.detect { |spec| spec.name == "spring" }
+  if spring
+    Gem.use_paths Gem.dir, Bundler.bundle_path.to_s, *Gem.path
+    gem 'spring', spring.version
+    require 'spring/binstub'
+  end
+end

data/examples/chat-app/bin/update

@@ -0,0 +1,29 @@
+#!/usr/bin/env ruby
+require 'pathname'
+require 'fileutils'
+include FileUtils
+
+# path to your application root.
+APP_ROOT = Pathname.new File.expand_path('../../', __FILE__)
+
+def system!(*args)
+  system(*args) || abort("\n== Command #{args} failed ==")
+end
+
+chdir APP_ROOT do
+  # This script is a way to update your development environment automatically.
+  # Add necessary update steps to this file.
+
+  puts '== Installing dependencies =='
+  system! 'gem install bundler --conservative'
+  system('bundle check') || system!('bundle install')
+
+  puts "\n== Updating database =="
+  system! 'bin/rails db:migrate'
+
+  puts "\n== Removing old logs and tempfiles =="
+  system! 'bin/rails log:clear tmp:clear'
+
+  puts "\n== Restarting application server =="
+  system! 'bin/rails restart'
+end

data/examples/chat-app/config.ru

@@ -0,0 +1,5 @@
+# This file is used by Rack-based servers to start the application.
+
+require_relative 'config/environment'
+
+run Rails.application

data/examples/chat-app/config/application.rb

@@ -0,0 +1,13 @@
+require_relative 'boot'
+
+require 'rails/all'
+
+# Require the gems listed in Gemfile, including any gems
+# you've limited to :test, :development, or :production.
+Bundler.require(*Rails.groups)
+
+module ChatApp
+  class Application < Rails::Application
+    #ChatApp::Application.config.cache_store = :file_store, Rails.root.join('tmp', 'cache_store')
+  end
+end