Skip to content

Instantly share code, notes, and snippets.

@Slesa
Slesa / RestServer.fs
Last active Aug 20, 2021
Return F# list as web result
View RestServer.fs
type KeyValues = Map<string,string>
type DataList = {
Articles: KeyValues list option
}
let dataList : DataList = {
Articles = Option.None
}
View Compiles.fs
open FsUnit
[<TestFixture>]
type ``When using apply in List`` ()=
let (<*>) = List.apply
[<Test>] member x.
``it should call apply to each member``() =
[add] <*> [1; 2] <*> [10;20]
|> should equal [11;21;12;22]
View ConfigureXfce.py
import os
import subprocess
# https://docs.xfce.org/xfce/xfconf/xfconf-query
#region Output
Colors = [
('<red>', '\033[0;31m'),
('<green>', '\033[0;32m'),
@Slesa
Slesa / Main.scala
Created Dec 5, 2020
Scala Hello World
View Main.scala
package hello_scala
import akka.actor.Actor
import akka.actor.ActorSystem
import akka.actor.Props
class HelloActor extends Actor {
def receive = {
case "hello" => println("hello back to you")
case _ => println("huh?")
}
View Create Zips of apps with data and config
(* Special directory syntax:
bin\Program
bin\Application
...
bin\Config
let deployDir = "bin\deploy\"
let createZip is64bit (dirInfo: DirectoryInfo) =
let dirName = dirInfo.Name
if not (System.String.Equals(dirName, "config", System.StringComparison.CurrentCultureIgnoreCase)) then
View gist:88dd9b4483d02d6df03c
### Keybase proof
I hereby claim:
* I am slesa on github.
* I am slesa (https://keybase.io/slesa) on keybase.
* I have a public key whose fingerprint is 0313 2654 990B FB6A EFF2 6514 AC0E 80D9 FDB6 A2A1
To claim this, I am signing this object:
View gist:b0d51727d056f09766e3
// seq<int64> -> #seq<int64>
let req findAllPrimes values =
let sequence = seq {
for value in values do
if isPrime value then
yield value
else
let divisors = findDivisors value
yield! findAllPrimes divisors }
sequence
@Slesa
Slesa / gist:8094334
Created Dec 23, 2013
Compile error in XFCE 4.10
View gist:8094334
Build Configuration:
* Debug Support: full
* GNU Visibility: yes
Now type "make" to compile.
(CDPATH="${ZSH_VERSION+.}:" && cd . && /bin/bash /home/jpreiss/work/xfce/libxfce4util/missing autoheader)
configure.ac:140: warning: AC_LANG_CONFTEST: no AC_LANG_SOURCE call detected in body
../../lib/autoconf/lang.m4:193: AC_LANG_CONFTEST is expanded from...
../../lib/autoconf/general.m4:2729: _AC_RUN_IFELSE is expanded from...
@Slesa
Slesa / FakeMage.fs
Created Jul 9, 2013
Suggestion to support the MAGE tool in FAKE
View FakeMage.fs
type MageProcessor = MSIL | X86
type MageCall = NewApp | UpdateApp | Sign | Deploy | UpdateDeploy | SignDeploy
type MageTrustLevels = Internet | LocalIntranet | FullTrust
type MageParams =
{ ToolsPath : string
ProjectFiles : seq<string>
Name : string
IconPath : string
IconFile : string
Processor : MageProcessor
@Slesa
Slesa / gist:5899421
Created Jul 1, 2013
A FAKE target for a click once application
View gist:5899421
#I @"Tools\Fake"
#r "FakeLib.dll"
open Fake
let buildNumber =
if hasBuildParam "version" then getBuildParam "version" else
if isLocalBuild then "0" else
buildVersion
let version =