jmazon

;; I'm not quite sure why this isn't in by default :-/
;; Possibly the ambiguous list-head modifying specification?
(gv-define-simple-setter plist-get plist-put)

(defun my-format-drawer (name contents &rest args?)
  (if (string= name "TRANSCRIPTION")
      (let ((h (format "%x" (sxhash contents))))
        (concat
         "<a id=\"show-" h "\" "
         "onclick='"

jmazon

import Data.IORef
import Control.Arrow ((***))
import Control.Monad (when,void)
import Graphics.UI.Gtk hiding (rectangle)
import Graphics.Rendering.Cairo

type SR = IORef (Maybe Surface)

clearSurface :: Surface -> IO ()
clearSurface surface =

jmazon

Шла Саша по шосссе
И сосала сушку.

Ехал Грека через реку
Видит Грека в реке рак
Сунул в реку руку Грека
Рак за руку Грека — цап

Тридцать три корабля́ лави́ровали, лавировали, лавировали.
Да не вы́лавировали.