lildata

(refer-clojure :exclude '[slurp spit])
(import '[java.awt.datatransfer DataFlavor StringSelection Transferable])

(defn clipboard []
  (.getSystemClipboard (java.awt.Toolkit/getDefaultToolkit)))

(defn slurp []
  (try
    (.getTransferData (.getContents (clipboard) nil) (DataFlavor/stringFlavor))
    (catch java.lang.NullPointerException e nil)))

lildata

A curated list of AWS resources to prepare for the AWS Certifications

A curated list of awesome AWS resources you need to prepare for the all 5 AWS Certifications. This gist will include: open source repos, blogs & blogposts, ebooks, PDF, whitepapers, video courses, free lecture, slides, sample test and many other resources.

For more about AWS and AWS Certifications and updates to this Gist you should follow me @leonardofed

---

lildata

#!/usr/bin/env boot
;; -*- mode: Clojure;-*-

(set-env! :dependencies '[[seesaw "1.4.5"]])

(use 'seesaw.core)

(import '(javafx.scene.web WebView)
        '(javafx.scene SceneBuilder)
        '(javafx.scene.layout VBoxBuilder))

lildata

(defn uuid [] (str (java.util.UUID/randomUUID)))

lildata

;; Generating static HTML using Clojure macros

;; It is possible to write a DSL in Clojure that generates HTML markup without the need to write a separate parser and compiler (e.g. HAML).

;; Our aim here would be to write code that converts the following Clojure code into the HTML below it

;; (html
;;  (head)
;;  (body
;;   (h1 "An example")

lildata

(ns seesaw.async
  (:use [seesaw core]))

; see http://dotnetslackers.com/articles/net/Programming-user-interfaces-using-f-sharp-workflows.aspx#1478

(defmacro async
  "Macro that executes an async call (the first form), ignores its result, and the 
  executes the body normally."
  [async-call & body]
  `(~@(apply list (first async-call) `(fn [& args#] ~@body) (rest async-call))))

lildata

(ns table-test.core
  (:use [seesaw core table swingx]))

; A predicate that decides whether a row should be highlighted
; adapter is an instance of JXTable.TableAdapter
; http://projects.joshy.org/projects/painterreview/swingx/org/jdesktop/swingx/JXTable.TableAdapter.html
(defn hl-predicate [renderer adapter]
  ; Highligh all rows where :age is over thirty
  (> (.getValueAt adapter (.row adapter) 0) 30))

lildata

(ns busy-cursor.core
  (:use seesaw.core))

(defn long-running-task
  []
  (Thread/sleep 5000)
  "The result")

(defn run-task-with-busy-cursor
  [c]

lildata

;mapdb.clj
(ns db.mapdb
	(:use
		[clojure.contrib.duck-streams :only (reader)]
		[clojure.java.io :only (writer)]
		[clojure.string :only (split)]
		[clojure.contrib.server-socket :only (create-server close-server)]))

(def database-file "/Users/hideshi/Dev/Clojure/db/dbfile")

lildata

(ns async-tut1.core
  (:require-macros [cljs.core.async.macros :refer [go]])
  (:require [goog.dom :as dom]
            [goog.events :as events]
            [cljs.core.async :refer [<! put! chan]])
  (:import [goog.net Jsonp]
           [goog Uri]))

(def wiki-search-url
  "http://en.wikipedia.org/w/api.php?action=opensearch&format=json&search=")