| ;; nano.el -- A very minimal emacs | |
| ;; Usage: emacs -q -l nano.el | |
| ;; | |
| ;; Copyright (C) 2020 Nicolas .P Rougier | |
| ;; | |
| ;; Author: Nicolas P. Rougier <[email protected]> | |
| ;; | |
| ;; This program is free software; you can redistribute it and/or modify | |
| ;; it under the terms of the GNU General Public License as published by | |
| ;; the Free Software Foundation, either version 3 of the License, or |
There have been a few times in the last several months at $DAY_JOB during which the following query, or some slight variation of it, has been used to identify long-running and potentially problematic queries:
select pid,
now() - query_start as duration,
query,
| Okay, so I'll try and walk through the reader monad as best as I can. And | |
| because I think it helps to de-mystify things a bit, I'll also go through | |
| all of the "super classes" of monad: functor and applicative (because every | |
| monad should also be an applicative and every applicative functor should be | |
| a functor). This file is literate Haskell so you should just be able to | |
| load it in the REPL or run it. It's also kinda/sorta markdown, so it should | |
| render that way as well (but the code is formatted wrong). | |
| > module Reader where |
| module Main where | |
| import Data.Maybe (fromMaybe) | |
| import Control.Applicative | |
| import Control.Arrow (first) | |
| import Control.Monad (ap) | |
| import Debug.Trace | |
| This is my short-ish tutorial on how to implement closures in | |
| a simple functional language: Foo. | |
| First, some boilerplate. | |
| > {-# LANGUAGE DeriveFunctor, TypeFamilies #-} | |
| > import Control.Applicative | |
| > import Control.Monad.Gen | |
| > import Control.Monad.Writer | |
| > import Data.Functor.Foldable |
| (defun g-blame () | |
| "Which commits last affected this line?" | |
| (interactive) | |
| (shell-command | |
| (format "git show $(git blame '%s' -L %s,%s | awk '{print $1}')" | |
| (buffer-file-name) | |
| (line-number-at-pos) | |
| (line-number-at-pos)))) | |
| (defun g-churn () |
Find it here: https://github.com/bitemyapp/learnhaskell
| def get_request(): | |
| """ | |
| blindly walks up the stack looking for | |
| request.user | |
| """ | |
| for i in itertools.count(): | |
| try: | |
| frame = sys._getframe(i) | |
| except ValueError: | |
| frame = None |
| (ns react-cljs.core | |
| (:require React)) | |
| (declare render) | |
| (defn handle-change [e] | |
| (render {:text (.. e -target -value)})) | |
| (defn render [{:keys [text]}] | |
| (React/renderComponent |
