antoineB

#lang racket

(require racket/system
         racket/async-channel)

(provide watch-repo
         make-store)

(define git-command (make-parameter #f))
(define commit-delay (make-parameter #f))

antoineB

#lang typed/racket

(define elem : (Option (Channelof String)) #f)

;; comment this form to make the problem disapear
(define (problematic-form)
  (set! elem (ann (make-channel) (Channelof String))))

(define (test) : Void
  (when elem

antoineB

#lang typed/racket


(define-type Elem (U 'a 'b 'c))

(define (lst-ok [types : (Listof (U Elem (Listof Elem)))]) : (Listof Elem)
 (let loop ([types types]
            [result : (Listof Elem) (list)])
   (if (empty? types)
       result

antoineB

#lang racket

(require (for-syntax syntax/parse))

;; Pour faire un break point mettre faire une function breakpoint

(define current-running (make-parameter #t))

(define debug-tag (make-continuation-prompt-tag 'debug))

antoineB

;;; php-extra.el --- My extra stuff for php files  -*- lexical-binding: t; -*-

;; Copyright (C) 2014  

;; Author:  <antoineB>

;; 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
;; (at your option) any later version.

antoineB

;; quick search
;; Copyright (c) 2014, antoineB, All rights reserved.
;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
;; License as published by the Free Software Foundation; either
;; version 3.0 of the License, or (at your option) any later version.
;; This library is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Lesser General Public License for more details.

antoineB

(require 'org)
(require 'org-element)

(defun org-lt--extract-text ()
  (org-element-map
   (org-element-parse-buffer)
   '(paragraph headline)
   (lambda (element)
     (if (equalp 'headline (org-element-type element))
	 (org-lt--extract-headline element)

antoineB

#lang racket

(define (module->syntax file)
  (define in (open-input-file file))
  (port-count-lines! in)
  (read-accept-reader #t)
  (begin0
      (read-syntax (string->path file) in)
    (close-input-port in)))

antoineB

    (defn- valid-argument? [data]
      (or (symbol? data)
          (vector? data)
          (map? data)))

    (defn- insert-in-list-second-position [the-list argument]
      (let [r (rest list)]
        (concat (list (first list) argument) r)))

antoineB

(ns schema.core
  (:require [goog.graphics :as graphics]
            [goog.dom :as dom]
            [goog.events :as events]))

(def canvas (graphics/createGraphics 200 150))

(.render canvas (dom/getElement "trash"))

(def circle (.drawCircle canvas 20 20 25 nil (graphics/SolidFill. "red")))