zkat

[].__proto__.subsets=function f(s,c,t)[]+(t=this)?(c=Array.concat)((s=f.call(t.slice(1))).map(s=>c([t[0]],s)),s):[[]];

zkat

"loadplugins '\.(js|penta)$'
noremap <A-x> :
noremap <C-j> <Return>
noremap <C-f> <C-n>
noremap <C-b> <C-p>
noremap <C-a> 0
noremap <C-e> $
noremap <C-p> <Up>
noremap <C-n> <Down>
noremap <C-v> <PageDown>

zkat

Array.prototype.find_if = function(test, opts) {
  opts = opts || {};
  var key = opts.key || identity;
  var start = opts.start || 0;
  var end = opts.end || this.length;
  for (var i = 0; i < this.length; i++) {
    if (test(key(this[i]))) {
      return this[i];
    }
  }

zkat

/*
 * Some quick hand-translations of code found in http://coffeescript.org/
 * I know they're trying to show off random features, but going through these
 * makes me wonder how much convenience CS actually adds.
 */

// # Assignment:
// number   = 42
// opposite = true
var number = 42;

zkat

    cowboy:start_http(
      ?MODULE, 100,
      [{port, Port}],
      [{dispatch,
        [{'_',
          [{[<<"static">>, '...'],
            cowboy_static,
            [{directory,
              {priv_dir, mymod,
               [<<"www">>, <<"static">>]}},

zkat

;; Somewhat similar to mouse-copy functionality, but no rat involved

(defun save-current-point ()
 (interactive)
 (point-to-register 'p)
 (message "Current point saved"))

(defun load-last-point ()
 (interactive)
 (jump-to-register 'p))

zkat

(global-set-key (kbd "C-M-s") 'save-current-point)
;; (global-set-key (kbd "C-c p") 'load-last-point)
(global-set-key (kbd "C-M-y") 'yank-to-last-point-and-indent)

(defun save-current-point ()
 (interactive)
 (point-to-register 'p)
 (message "Current point saved"))

(defun load-last-point ()

zkat

(defmacro with-fdefinition ((name lambda-list &body tmp-body) &body body)
  (let ((old-fdef-var (gensym "OLD-FDEF"))
        (name-var (gensym "NAME")))
   `(let* ((,name-var ',name)
           (,old-fdef-var (fdefinition ,name-var)))
      (unwind-protect
           (progn
             (setf (fdefinition ,name-var)
                   (lambda ,lambda-list ,@tmp-body))
             ,@body)

zkat

// Paste this into a console on the Facebook poke page, challenge a friend.
setInterval(function () {
    var iterator = document.evaluate("//a[contains(@ajaxify, 'poke_inline.php')]", document, null, XPathResult.UNORDERED_NODE_ITERATOR_TYPE, null);
    try {
        var thisNode = iterator.iterateNext();
        while (thisNode) {
            console.log('poking');
            thisNode.click();
            thisNode = iterator.iterateNext();
        }

zkat

WebDriverException - Element is not clickable at point (81.5, 218). Other element would receive the click:  (WARNING: The server did not provide any stacktrace information); duration or timeout: 65 milliseconds
Build info: version: '2.11.0', revision: '14431', time: '2011-10-28 16:27:42'
System info: os.name: 'Linux', os.arch: 'amd64', os.version: '2.6.32-33-server', java.version: '1.6.0_20'
Driver info: driver.version: RemoteWebDriver' ; Screenshot: available via screen ; Stacktrace: Method newInstance threw an error in None