puffnfresh

macro $do {
    case { $y:expr } => {
        $y
    }
    case { $x:ident <- $y:expr $rest ... } => { 
        λ['>=']($y, function($x) {
            return $do { $rest ... }
        });
    }
}

disnet

macro sexp {
  case () => {
    ; 
  }
  case ($p) => {
    $p
  }
  case ($x $y) => {
    $x($y);
  }

CrossEye

(function(global) {
    var types = function(obj) {
        throw new TypeError("fmap called on unregistered type: " + obj);
    };

    // inefficient as hell, but as long as there aren't too many types....
    global.Functor = function(type, defs) {
        var oldTypes = types;
        types = function(obj) {
            if (type.prototype.isPrototypeOf(obj)) {

textarcana

XWindows for Headless Selenium

How to set up a Headless Selenium Testing environment for CentOS 6.3.

On your CentOS 6.3 host

Follow these steps to set up a CentOS 6.3 host to run headless Selenium tests with Firefox.

jcouyang

还记得 Haskell Curry吗，

多巧啊, 人家姓 Curry 名 Haskell, 难怪 Haskell 语言会自动柯里化, 呵呵. 但是不奇怪吗, 为什么要柯里化呢. 为什么如此重要导致 Haskell 会默认自动柯里化所有函数, 不就是返回一个部分配置好的函数吗.

我们来看一个 Haskell 的代码.

max 3 4
(max 3) 4

sunchen115

ss=%w{JP OYJC欧阳继超 FJ冯佳 SC孙晨}.sort
pairs=[]
ss.each do |e1|
  ss.each do |e2|
    if e1 != e2
      pairs<<[e1,e2].sort unless pairs.include?([e1,e2].sort)
    end
  end
end

jcouyang

TRAVIS_TEST_RESULT=0

TRAVIS_COMMIT=e7090ffc4ef844d1a066a34037c913b429d7dc2a

TRAVIS_OS_NAME=linux

TRAVIS_LANGUAGE=node_js

TRAVIS=true

ustun

;;; runs eslint --fix on the current file after save
;;; alpha quality -- use at your own risk

(defun eslint-fix-file ()
  (interactive)
  (message "eslint --fixing the file" (buffer-file-name))
  (shell-command (concat "eslint --fix " (buffer-file-name))))

(defun eslint-fix-file-and-revert ()
  (interactive)

awesomebytes

Touchpad fix ubuntu 16.04 Alienware 15 R4

The touchpad doesn't work out of the box, do:

sudo su
echo 'blacklist i2c_hid' >> /etc/modprobe.d/blacklist.conf
depmod -a
update-initramfs -u

And reboot, and you are good to go.

jcouyang

require "httparty"
require 'json'
url = "https://hypothes.is/api/search?wildcard_uri=https://blog.oyanglul.us/*&sort=created"

HEADER = <<-EOXML
<?xml version="1.0"?>
<rss version="2.0"
     xmlns:atom="http://www.w3.org/2005/Atom"
     xmlns:dc="http://purl.org/dc/elements/1.1/">
  <channel>