qwe2

namespace SimpleLogin

open WebSharper
open WebSharper.Sitelets
open WebSharper.UI.Next
open WebSharper.UI.Next.Server

type EndPoint =
    | [<EndPoint "POST /login">] DoLogin of credentials: Credentials
    | [<EndPoint "/login">] Login

qwe2

module Lambda where

import Control.Monad.Trans.Maybe
import Control.Applicative
import Control.Monad.State
import Data.Set (Set)
import qualified Data.Set as Set
import qualified Data.List as List

newtype LambdaVar = LV Char

qwe2

namespace SimpleTextBox

open WebSharper
open WebSharper.UI.Next
open WebSharper.UI.Next.Html

[<JavaScript>]
module Client =

    // Note that Main here is not a function. This is very important as top-level

qwe2

#I "../packages/Owin.1.0/lib/net40"
#I "../packages/Microsoft.Owin.3.0.1/lib/net45"
#I "../packages/Microsoft.Owin.Host.HttpListener.3.0.1/lib/net45"
#I "../packages/Microsoft.Owin.Hosting.3.0.1/lib/net45"
#I "../packages/Microsoft.Owin.FileSystems.3.0.1/lib/net45"
#I "../packages/Microsoft.Owin.StaticFiles.3.0.1/lib/net45"
#I "../packages/WebSharper.3.2.8.170/lib/net40"
#I "../packages/WebSharper.Compiler.3.2.4.170/lib/net40"
#I "../packages/WebSharper.Owin.3.2.6.83/lib/net45"
#load "../packages/WebSharper.Warp.3.2.10.13/tools/reference.fsx"

qwe2

• Run the .reg replacing the path of lc_manifest.json
• Put mainfest.json and cs_local_component.js in the same folder
• Make a Chrome extension out of that folder
• Configure lc_manifest.json with the right path to the local component
• Replace %EXTENSION_ID% with the real id of the Chrome extension in lc_manifest.json

qwe2

namespace ClipboardEventExtension

open IntelliFactory.WebSharper
open IntelliFactory.WebSharper.InterfaceGenerator

module Definition =

    let ClipboardEventType =
        Pattern.EnumStrings "ClipboardEventType" [ "copy"; "cut"; "paste" ]

qwe2

namespace RPCTest

open IntelliFactory.WebSharper
open IntelliFactory.WebSharper.JavaScript
open IntelliFactory.WebSharper.Html.Client

[<JavaScript>]
type RpcResult<'T> =
    | Success of 'T
    | Error of string