Mike Wright wrightmikea

## dmenu.el
(setq dmenu-cfg " | dmenu -i -l 20 -p .")

(defun dmenu-ag ()
  (interactive)

  (setq my_shell_output (shell-command-to-string (concat "ag . " dmenu-cfg)))
  (setq splitted (split-string my_shell_output ":"))

  (when (> (length splitted) 1)
    (find-file (car splitted))

## StateMachine.fs
module StateMachine =
    type State<'Event> =
        | Next of ('Event -> State<'Event>)
        | Stop

    let feed state event =
        match state with
        | Stop -> failwith "Terminal state reached"
        | Next handler -> event |> handler

## fabric.js part6
<html>
<head>
<script src="jquery.min.js"></script>
<script src="fabric.min.js"></script>
<script src="FileSaver.min.js"></script>
<script src="canvas-toBlob.js"></script>
</head>
<body>
<canvas id="c" width="800" height="600"></canvas>
<input id="b" type="button" value="Save as Image" />
	(setq dmenu-cfg " \| dmenu -i -l 20 -p .")

	(defun dmenu-ag ()
	(interactive)

	(setq my_shell_output (shell-command-to-string (concat "ag . " dmenu-cfg)))
	(setq splitted (split-string my_shell_output ":"))

	(when (> (length splitted) 1)
	(find-file (car splitted))
	module StateMachine =
	type State<'Event> =
	\| Next of ('Event -> State<'Event>)
	\| Stop

	let feed state event =
	match state with
	\| Stop -> failwith "Terminal state reached"
	\| Next handler -> event \|> handler
	<html>
	<head>
	<script src="jquery.min.js"></script>
	<script src="fabric.min.js"></script>
	<script src="FileSaver.min.js"></script>
	<script src="canvas-toBlob.js"></script>
	</head>
	<body>
	<canvas id="c" width="800" height="600"></canvas>
	<input id="b" type="button" value="Save as Image" />