Skip to content

Instantly share code, notes, and snippets.

@Kimserey
Kimserey / gist:567330d3fc9cf91d75a3
Created July 6, 2015 04:19
Simple file upload directive in angularjs
(function () {
'use strict';
angular
.module('app')
.directive('myPhoto', myPhoto);
function myPhoto() {
var directive = {
@Kimserey
Kimserey / Websharper_AjaxCallToRestApi.fs
Last active August 29, 2015 14:27
Snippet Websharper - UI.Next using Ajax call to test REST API
namespace UINextAjax
open System
open WebSharper
open WebSharper.JavaScript
open WebSharper.JQuery
open WebSharper.UI.Next
open WebSharper.UI.Next.Client
[<JavaScript>]
@Kimserey
Kimserey / Websharper_ChangeOfPages_SPA
Last active August 29, 2015 14:27
Simplistic implementation of SPA by changing page based on a Page reactive variable. Websharper blog post, Structuring Non-Linear Sites: http://websharper.com/blog-entry/3965/structuring-web-applications-with-websharper-ui-next
namespace UINextRouterTest
open WebSharper
open WebSharper.JavaScript
open WebSharper.JQuery
open WebSharper.UI.Next
open WebSharper.UI.Next.Html
open WebSharper.UI.Next.Client
[<JavaScript>]
@Kimserey
Kimserey / Client.fs
Last active August 29, 2015 14:27
Websharper Router test
namespace UINextRouterTest
open WebSharper
open WebSharper.JavaScript
open WebSharper.JQuery
open WebSharper.UI.Next
open WebSharper.UI.Next.Html
open WebSharper.UI.Next.Client
[<JavaScript>]
@Kimserey
Kimserey / Run.cmd
Last active September 30, 2015 22:09
Sqlite backup script
@echo off
cls
C:\"Program Files (x86)"\"Microsoft SDKs"\F#\4.0\Framework\v4.0\Fsi.exe .\script.fsx %1 %2 %3
@Kimserey
Kimserey / domain.fs
Last active October 1, 2015 22:14
Compile a script.fsx and get out a result from a console app fsharp. FSharp.Core.sigdata / FSharp.Core.optdata must be added to the project. Domain is in a separate library project, script.fsx and Program project reference the Domain library.
module Domain.Core
type Breed =
| Papillon
| Corgy
type Dog =
{ breed : Breed
name : string }
override x.ToString() =
@Kimserey
Kimserey / Client.fs
Created October 21, 2015 15:54
W# UI.Next routing with easy way to add new pages
namespace RouterTest
open WebSharper
open WebSharper.JavaScript
open WebSharper.JQuery
open WebSharper.UI.Next
open WebSharper.UI.Next.Client
open WebSharper.UI.Next.Html
[<JavaScript>]
@Kimserey
Kimserey / client.fs
Created October 20, 2015 08:49
Drag and drop sortable with html5 sortable
namespace DragnDropUInNext
open WebSharper
open WebSharper.JavaScript
open WebSharper.JQuery
open WebSharper.UI.Next
open WebSharper.UI.Next.Client
open WebSharper.UI.Next.Html
open WebSharper.JQueryUI
@Kimserey
Kimserey / build-instances.fsx
Last active October 25, 2015 17:08
FAKE build script to deploy W# UI.Next SPA. Defines multiple targets depending on the number of instances. Clean, build, deploy and run on IIS express website for particular instance on port 9090 by default. Can be overwritten with -ev port XXXX
// --------------------------------------------------------------------------------------
// Build instances used in build.fsx to create Targets
// --------------------------------------------------------------------------------------
module BuildInstances
// Add new instances here
//
let instances = [
"earth"
@Kimserey
Kimserey / script.fsx
Created October 28, 2015 14:01
Write to CSV
module UserTable =
open System.IO
type List =
static member Write (path:string) (data:'a list) =
use writer = new StreamWriter(path)
data |> List.iter writer.WriteLine
let makeRow (data: string) =
sprintf "id_%s_1,User %s 1,xx@gmail.com,TOKENHASH"
<| data.Replace('-', '_')