agumonkey

(defun filter-char (f) (car f))
(defun filter-fn (f) (cdr f))

(mapcar (lambda (f) (cons (char-to-string (filter-char f)) (filter-fn f))) eshell-modifier-alist)
;; ->
;; (("E" function (lambda (lst) (mapcar (function (lambda (str) (eshell-stringify (car (eshell-parse-argument str))))) lst)))
;; ("L" function (lambda (lst) (mapcar (quote downcase) lst)))
;; ("U" function (lambda (lst) (mapcar (quote upcase) lst)))
;; ("C" function (lambda (lst) (mapcar (quote capitalize) lst)))
;; ("h" function (lambda (lst) (mapcar (quote file-name-directory) lst)))

agumonkey

;;; parscope.el --- Minor mode for showing the current scope in Lisp-like languages.

;; Copyright (C) 2013 Nick Pascucci

;; Author: Nick Pascucci <npascut1@gmail.com>
;; Created: 22 Jun 2013
;; Keywords: tools
;; Version: 0.1.0
;; URL: https://gist.github.com/nickpascucci/5842987

agumonkey

(defvar versions '("2.2" "2.0.4.1" "3.4.5.1" "4.3.2" "0.4.1-b" "2.2.3" "4.2.3" "1.0.4" "0.1a" "1.9.3" "3.1.1" "2.5.5" "2.2.6"))

(defun parse-version (v)
  (mapcar #'string-to-int (split-string (replace-regexp-in-string "[^[:digit:]]" " " v) " ")))

(defun take-until (l p)
  (if (or (null l)
          (funcall p (car l)))
      '()
    (cons (car l) (take-until (cdr l) p))))

agumonkey

I like LYAH as a reference and cheat-sheet but I found it a little slow for learning Haskell.

Here's my recommended order for just learning Haskell:

http://yannesposito.com/Scratch/en/blog/Haskell-the-Hard-Way/ 80% completion here is fine if you feel your attention waning, the next thing will address hammering in things like functors and monads via typeclasses.

https://github.com/NICTA/course/ this will hammer in the lessons in a very direct form by forcing you to confront the challenges and lessons learned by the creators and community of Haskell itself. Doing the exercises here is critical for being fluent.

Real World Haskell is available online. I recommend it as a reference only.

agumonkey

ForwardToConsole=yes
TTYPath=/dev/tty12
MaxLevelConsole=info

agumonkey

(fn rev (l)
    "[a] -> [a]"
    (fn aux (l a)
	(if (empty? l)
	    a
	  (aux (rest l) (cons (first l) a))))
    (aux l []))

;; (rev [])
;; (rev [1 2 3])

agumonkey

import sh

from operator import itemgetter

ids = [0,3,4,-1]

fns = [fn.strip().split(' ') for fn in sh.ls("-lahrtX",_iter=True)][1:]

[itemgetter(*ids)(fn) for fn in fns]

agumonkey

import json
import requests

json.decoder.JSONDecoder().decode(requests.get('http://ifconfig.me/all.json').content.decode('utf-8'))

agumonkey

(defun insert-xsel ()
  (interactive)
  (with-current-buffer (current-buffer)
    ;; (insert (shell-command-to-string "xsel")))) ;; also hangs some times
    (insert (shell-command-to-string "xsel -o -t 10 -p"))))

agumonkey

(defun templicate ()
  "duplicate the current line as a temporary
snippet to be filled on the fly.
"
  (interactive)
  (let ((line (current-line))
	(placeholders (select-many "word:"))
	(template (mk-yasnippet-from-string line placeholders)))
    (progn
      (open-line)