Skip to content

Instantly share code, notes, and snippets.

using System;
using clojure.clr.api;
namespace CljEmbedExample
{
class Program
{
static void Main(string[] args)
{
var evalFn = Clojure.var("clojure.core", "eval");
@laynor
laynor / gist:3052a6719c8bdb56da7f
Created July 10, 2014 14:17
Image inside grid
<Window x:Class="WpfApplication2.MainWindow"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="MainWindow" Height="350" Width="525">
<Grid>
<Grid.RowDefinitions>
<RowDefinition Height="*"/>
<RowDefinition Height="Auto"/>
</Grid.RowDefinitions>
<Grid.ColumnDefinitions>
-*- mode: compilation; default-directory: "~/src/android/mesaCare-android/" -*-
Compilation started at Mon May 19 12:14:18
./gradlew assembleNormalRelease
Parallel execution is an incubating feature.
:MesaCare:preBuild
:MesaCare:preNormalReleaseBuild
:MesaCare:checkNormalReleaseManifest
:MesaCare:prepareNormalReleaseDependencies
:MesaCare:compileNormalReleaseAidl
@laynor
laynor / anonymous-gist.
Created April 29, 2014 20:41
error-message
Starting /home/ale/src/qt/example/build-ExampleMain-Desktop-Debug/ExampleMain...
QML debugging is enabled. Only use this in a safe environment.
QQmlApplicationEngine failed to load component
qrc:///main.qml:3 module "com.example.ExampleComponents" is not installed
<Window x:Class="WPFTest.MainWindow"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="MainWindow" Height="350" Width="525">
<Window.Resources>
</Window.Resources>
<Grid>
<Grid.ColumnDefinitions>
<ColumnDefinition />
<ColumnDefinition />
<Window x:Class="WPFTest.MainWindow"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="MainWindow" Height="350" Width="525">
<Window.Resources>
</Window.Resources>
<Grid>
<Grid.ColumnDefinitions>
<ColumnDefinition />
<ColumnDefinition />
((c-mode . ((eval . (add-project-directories "include/"
"third_party/dice-pjsip/pjmedia/include"
"third_party/dice-pjsip/pjlib/include"
"third_party/dice-pjsip/pjlib-util/include"
"third_party/dice-pjsip/pjsip/include"
"third_party/dice-pjsip/pjnath/include" )))))
@laynor
laynor / gist:6521564
Last active December 22, 2015 19:39
split word at case change
(define (camlCaseSplit (str0 :: <str>))
(let ((word (<builder>))
(l (str0:length))
(pack ()))
(do ((i 0 (+ i 1)))
((>= i l))
(let ((c (string-ref str0 i)))
(if (char-upper-case? c)
(begin
(set! pack (cons (! to-string word) pack))
defwinprop {
class = "jetbrains-idea-ce",
instance = "sun-awt-X11-XWindowPeer",
transient_mode = "current",
}
defwinprop {
class = "jetbrains-idea-ce",
instance = "sun-awt-X11-XFramePeer",
name = "win(.+)",
-- acrobatic = true,
-- float=true,
transient_mode="current",
}