dhh

module Entry::TrackerBlocking
  extend ActiveSupport::Concern

  included do
    has_many :blocked_trackers
  end

  email_service_blockers = {
    "ActiveCampaign" =>  /lt\.php(.*)?l\=open/,
    "AWeber" => "openrate.aweber.com",

alphapapa

# Please see the script's new home: https://github.com/alphapapa/magit.sh

lilactown

/**
 * Making promises
 */
let okPromise = Js.Promise.make((~resolve, ~reject as _) => [@bs] resolve("ok"));

/* Simpler promise creation for static values */
Js.Promise.resolve("easy");

Js.Promise.reject(Invalid_argument("too easy"));

Drup

(* Code extracted from:
   SAT-MICRO: petit mais costaud !
   by Sylvain Conchon, Johannes Kanig, Stéphane Lescuyer
*)

module type VARIABLES = sig
  type t
  val compare : t -> t -> int
end

ebautistabar

Recovering deleted files in Ubuntu with ext4 filesystem

Recently, I deleted some files by mistake in a Ubuntu machine with an ext4 fs. These notes document the steps I took to get them back.

Important

• this procedure assumes that the partition that contained the deleted files is different from the root partition, as that was the scenario with which I had to deal (deleted files were in my home dir). The procedure needs that the partition that contained the files is unmounted, so if the deleted files were in the root partition, the process would be a bit different (e.g. storing the fs journal in a USB stick, using a live CD/USB to boot and issue the commands, etc.)
• if something is not clear, you need more information, etc. check the sources below

With that out the way, let's begin.

keleshev

#require "lambda-term";;
let prompt = LTerm_text.(eval [B_fg (LTerm_style.green); S "# "]);;
UTop.prompt := fst (React.S.create prompt);;

levelsio

<?
/////////////////////
// slack2html
// by @levelsio
/////////////////////
//
/////////////////////
// WHAT DOES THIS DO?
/////////////////////
//

takscape

#!/usr/bin/env ocamlscript
Ocaml.ocamlflags := ["-g"; "-thread"];
Ocaml.use_camlp4 := false;
Ocaml.packs := ["batteries"; "sedlex"]
--
open Batteries

(* Sedlex lexer definitions *)
type token =
  | Number of int

sakalajuraj

# Content of the file /etc/logstash/conf.d/squid.conf
# Squid logs MAC address of the source host
# Logs are sending by syslog-ng raw without standard log headers

input {
  tcp {
        host => "xxx.xxx.xxx.xxx"
        port => xxxx
        type => SQUID
        tags => [SQUID]

NicolasT

type z
type 'a s

(* Sadly enough, without kind restrictions, this still allows nonsense types like *)
type nonsense = int s
(* GHC 7.6 supports this (lifting types to kinds & kind constraints) ;-) *)

type (_, _) llist =
  | Nil : (z, 'a) llist
  | Cons : ('a * ('l, 'a) llist) -> ('l s, 'a) llist