This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" | |
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"> | |
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en"> | |
<head> | |
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> | |
<meta name="generator" content="AsciiDoc 8.3.1" /> | |
<title>My Dhamma Friend Program Experience</title> | |
<style type="text/css"> | |
/* Debug borders */ | |
p, li, dt, dd, div, pre, h1, h2, h3, h4, h5, h6 { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#---------------------------------------------------------------------- | |
package DBIx::DataModel::Schema::Generator; | |
#---------------------------------------------------------------------- | |
# see POD doc at end of file | |
# version : see DBIx::DataModel | |
use strict; | |
use warnings; | |
no warnings 'uninitialized'; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
$|++; | |
$VER="5.8.0"; | |
# --- download src | |
$URL="http://www.swi-prolog.org/download/stable/src/pl-$VER.tar.gz"; | |
$SRC="pl-$VER"; | |
$TGZ="$SRC.tar.gz"; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Is there a way to retrieve more then one keys value from a hash? | |
(let [a {:one 1 :two 2}] (a :one :two)) | |
[21:40] fanatico: ,(let [a {:one 1 :two 2}] (map a [:one :two])) | |
[21:40] clojurebot: (1 2) | |
[21:41] hiredman: ,(let [{:keys [a b]} {:a 1 :b 2}] [a b]) | |
[21:41] clojurebot: [1 2] | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
atem sequi nesciunt. Neque dolorem ipsum quia dolor sit amet, consectetur, adipisci velit, sed quia non numquam eius modi tempora incidunt ut labore et dolore magnam aliquam quaerat voluptatem. Ut enim ad minima veniam, quis nostrum exercitationem ullam corporis Nemo enim ipsam voluptatem quia voluptas sit suscipit laboriosam, nisi ut aliquid ex ea commodi consequatur? Quis autem vel eum iure reprehenderit qui in ea voluptate velit esse quam nihil molestiae et iusto odio dignissimos ducimus qui blanditiis praesentium laudantium, totam rem voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, Sed ut perspiciatis unde omnis iste natus error similique sunt in culpa qui officia deserunt mollitia animi, id est laborum et dolorum fuga. Et harum quidem rerum facilis est et expedita distinctio. Nam libero tempore, cum soluta nobis est eligendi optio cumque nihil impedit quo porro quisquam est, qui minus id quod maxime placeat facere possimus, omnis volup |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
\ http://www.complang.tuwien.ac.at/forth/gforth/Docs-html/General-Loops-Tutorial.html | |
: halve-n ( n -- n/2 ) 2/ ; | |
: init-counter-for-number-of-halves-needed ( -- 0 ) 0 ; | |
: insure-n-is-greater-than-or-equal-to-0 ( n counter -- n counter flag ) | |
over 0> ; | |
: halve-n-and-increment-counter { n counter -- n/2 counter+1 } |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; gist.el --- Emacs integration for gist.github.com | |
;; Author: Christian Neukirchen <purl.org/net/chneukirchen> | |
;; Maintainer: Chris Wanstrath <chris@ozmm.org> | |
;; Contributors: | |
;; Will Farrington <wcfarrington@gmail.com> | |
;; Michael Ivey | |
;; Phil Hagelberg | |
;; Dan McKinley | |
;; Version: 0.4 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
.%* *Backtrace* 1191 Debugger | |
* *scratch* 23 Lisp Interaction | |
% emacs 3346 Dired by name ~/emacs/ | |
init.el 6509 Emacs-Lisp ~/emacs/init.el | |
gist.el 13023 Emacs-Lisp ~/emacs-contrib/gist.el | |
* *emacs-contrib-shell* 550 Shell:run ~/emacs-contrib/ | |
% emacs-contrib 1548 Dired by name ~/emacs-contrib/ | |
% *Help* 211 Help | |
% *Completions* 275 Completion List | |
xml-rpc.el 34069 Emacs-Lisp ~/emacs-contrib/xml-rpc.el |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
git-add :: (New|Modified)+ -> Index -> Index' | |
git-commit :: Index -> Repo -> Repo' | |
git-commit-a :: Modified -> Index -> Repo -> Repo' | |
git-diff :: Modified -> Repo -> Diff | |
git-diff-cached :: Index -> (Commit)? -> Diff |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; | |
(add-to-list 'load-path "~/emacs-contrib/gist.el") | |
(require 'gist) | |
;;; asciidoc | |
(add-to-list 'load-path "~/emacs-contrib/asciidoc-el") | |
(autoload 'doc-mode "doc-mode" nil t) |