bdionne

~/emacs/api-tests/hacks:master$ curl -X DELETE http://127.0.0.1:15984/foo
{"ok":true}

~/emacs/api-tests/hacks:master$ curl -X PUT http://127.0.0.1:15984/foo
{"ok":true}

~/emacs/api-tests/hacks:master$ curl -X PUT http://127.0.0.1:15984/foo/doc1 -d '{"foo":1}'
{"ok":true,"id":"doc1","rev":"1-4a7e4ae49c4366eaed8edeaea8f784ad"}

~/emacs/api-tests/hacks:master$ curl -X PUT 'http://127.0.0.1:15984/foo/doc1' -d '{"_rev":"1-4a7e4ae49c4366eaed8edeaea8f784ad","foo":2}'

bdionne

<148>1 2013-02-28T14:35:29.513200Z erlang.local twig <0.115.0> supervisor_report - {local,couch_primary_services} start_error ({undef,
                                             [{config,listen_for_change,
                                               [couch_server,nil],
                                               []},
                                              {couch_server,init,1,
                                               [{file,"src/couch_server.erl"},
                                                {line,143}]},
                                              {gen_server,init_it,6,
                                               [{file,"gen_server.erl"},
                                                {line,297}]},

bdionne

<chewbranca> bitdiddle: davisp: to clarify, kocolosk changed the lb config so
             that only load balancers with the chef role
             load_balancer_webbystuff are aware of cloudant.com stuff   [12:15]
<chewbranca> I added in a backend so that we could redirect to web03 for
             hosting static assets on user subdomains:
             https://github.com/cloudant/chef-repo/blob/master/cookbooks/haproxy/templates/default/backends2.erb#L24-L27
<davisp> chewbranca: ah                                                 [12:16]
<davisp> chewbranca: why did it fail so much last night then?
<chewbranca> nfc
<chewbranca> I can curl the nodes from those lbs

bdionne

             (case format
               ((wordpress) (wordpress->sxml raw))
               (else `(pre ,raw))))
           (lambda args
             `(pre ,(bad-user-submitted-xhtml? raw))))))

(define (post-readable-date post)
  (let ((date (time-utc->date
               (make-time time-utc 0 (post-timestamp post)))))
    (date->string date "~e ~B ~Y ~l:~M ~p")))

bdionne

continuous_changes(DataFun, UserFun) ->
    json_stream_parse:events(
        DataFun,
        fun(Ev) -> parse_changes_line(Ev, UserFun) end).

is_doc(#doc_info{}=_Doc) ->
    true;
is_doc(_Else) ->
    false.

bdionne

;; (add-hook 'erc-text-matched-hook
;;           (lambda (match-type nickuserhost message)
;;             (when (and
;;                    (boundp 'nick)
;;                    (not (string= nick "ChanServ"))
;;                    (not (string= nick "services.")))
;;               (cond
;;                ((eq match-type 'current-nick)
;;                 (growl-chat-sticky (format "%s said %s" nick (erc-current-nick)) message))
;;                ((eq match-type 'keyword)

bdionne

make
Making all in .
make[1]: Nothing to be done for `all-am'.
Making all in elisp
if test "emacs" != "no"; then \
	  am__subdir_includes=''; \
	  case geiser-autodoc.elc in */*) \
	    am__dir=`echo 'geiser-autodoc.elc' | sed 's,/[^/]*$,,'`; \
	    am__subdir_includes="-L $am__dir -L ../../elisp/$am__dir"; \
	  esac; \

bdionne

clojure-mode.el
  -rw-r--r--  1 bitdiddle bitdiddle  3718 Nov 23 06:15 clojurescript-mode.el
  -rw-r--r--  1 bitdiddle bitdiddle 17768 Nov 23 06:15 clojure-test-mode.el
  -rw-r--r--  1 bitdiddle bitdiddle 10250 Nov 22 15:13 gh-api.el
  -rw-r--r--  1 bitdiddle bitdiddle  4500 Nov 22 15:13 gh-auth.el
  -rw-r--r--  1 bitdiddle bitdiddle  1949 Nov 22 15:13 gh-cache.el
  -rw-r--r--  1 bitdiddle bitdiddle  2866 Nov 22 15:13 gh-common.el
  -rw-r--r--  1 bitdiddle bitdiddle  1033 Nov 22 15:13 gh.el
  -rw-r--r--  1 bitdiddle bitdiddle  6458 Nov 22 15:13 gh-gist.el
  -rw-r--r--  1 bitdiddle bitdiddle 11865 Nov 22 15:13 gh-issues.el

bdionne

(live)bitdiddle@monoid:~/emacs/guile$ ./autogen.sh

autoconf (GNU Autoconf) 2.67
Copyright (C) 2010 Free Software Foundation, Inc.
License GPLv3+/Autoconf: GNU GPL version 3 or later
<http://gnu.org/licenses/gpl.html>, <http://gnu.org/licenses/exceptions.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.

Written by David J. MacKenzie and Akim Demaille.

bdionne

(define-macro (define-record/keywords name-form . slots)
  (let* ((name (if (pair? name-form) (car name-form) name-form))
         (printer (and (pair? name-form) (cadr name-form)))
         (slot-names (map (lambda (slot) (if (pair? slot) (car slot) slot))
                          slots))
         (stem (trim-brackets name)))
    `(begin
       (define ,name (make-record-type ,(symbol->string name) ',slot-names
                                       ,@(if printer (list printer) '())))
       (define ,(symbol-append 'make- stem)