baris

site '*://mail.google.com/*' {
unmap ?
unmap j
unmap k
unmap n
unmap p
unmap x
unmap e
unmap r
unmap c

baris

package main

import (
	"log"
	"math/rand"
	"time"

	"github.com/miekg/dns"
)

baris

Keybase proof

I hereby claim:

• I am baris on github.
• I am barismetin (https://keybase.io/barismetin) on keybase.
• I have a public key whose fingerprint is A9BD 3454 E5C5 3C1B 73B3 38E5 0BE2 EA81 27E1 9432

To claim this, I am signing this object:

baris

@define-color bg-grey #333;
@define-color active-grey #000;
@define-color border-grey #555;


TerminalWindow .notebook {
  border: 0;
  padding: 0;
  color: #eee;
  background-color: shade(@active-grey, 1);

baris

object TestProgram {

  def compress1[T](lst: Seq[T]) = {
    lst.foldRight(Seq[T]()) {
      (n: T, compressed: Seq[T]) => if (compressed.headOption == Option(n)) compressed else n +: compressed
    }
  }

  def compress2[T](lst: Seq[T]): Seq[T] = lst match {
    case first :: second :: rest if (first == second) => compress2(second +: rest)

baris

var to_the_left = true;
previous_active_client_id = null;

function resize_client(client) {
  geo = client.geometry;
  geo.width = workspace.workspaceWidth / 2;
  geo.height = workspace.workspaceHeight - 30;
  client.geometry = geo;
}

baris

##
## Put me in ~/.irssi/scripts, and then execute the following in irssi:
##
##       /load perl
##       /script load notify
##

use strict;
use Irssi;
use vars qw($VERSION %IRSSI);

baris

let string_strip_dir s lst ~right =
  let rec strip s lst' =
    match lst' with 
      [] -> s
    | hd::tail -> 
        let len = String.length s in
        let index = if right then (len - 1) else 0 in
        if (String.get s index) = hd then
          let cropped = if right then String.sub s 0 index else String.sub s 1 (len-1) in

baris

(* ocamlopt -I +glMLite GL.cmxa Glut.cmxa testgl.ml *)

open GL;;
open Glu;;
open Glut;;

let start_show () =
  glClear [GL_COLOR_BUFFER_BIT];

  glBegin GL_TRIANGLES;

baris

all: get

get: get.ml
	ocamlfind ocamlopt -package json-wheel -linkpkg get.ml -o get

clean:
	rm get.cm[xi] get.o get