Deraen

(ns frontend.access
  (:require [reagent.ratom :refer-macros [reaction]]
            [frontend.app :refer [app]]
            [common.domain :as domain]))

(def admin #{:domain/admin})
(def user  #{:domain/user})

(defn role []
  (reaction app [:session :user :role]))

Deraen

    fun.uploadImage = function($files, $event, status) {
            var def = $q.defer();

            if (!$files) return def.promise;

            status.error = null;
            status.active = true;
            status.perc = 0;
            var req;

Deraen

  // Use
  // ko.bindingHandlers.fooSearch = createAutocomplete({load: ...});
  // viewModel.idHere = "123";
  // viewModel.objHere = {_id: "123", name: "foo"};
  // viewModel.objHere.subscribe(function(val) { ... selected obj! ... });
  //
  // <input type="text" data-bind="value: idHere, fooSearch: objHere"/>

  function createAutocomplete(override) {
    return {

Deraen

angular.module('fooApp')
  .factory('Util', function() {
    var utils = {};

    // Would be passed by value if $scope.foo was given directly.
    // As scope is object it is passed by reference.
    utils.Pending = function(scope, target) {
      scope[target] = false;

      this.start = function() {

Deraen

/* jshint camelcase: false */
/* global $ */

// TODO: multiple items
angular.module('fooApp')
  .factory('autocompleteFactory', function() {
    var factory = function(overwrites) {
      return {
        restrict: 'E',
        replace: true,

Deraen

(ns seitti.server
  (:require [org.httpkit.server :refer [run-server]]
            [clojure.tools.namespace.repl :as ns-tools]
            [seitti.env :as env]
            [seitti.handler :as handler]))

(def http-app (atom nil))

(defn -main [& args]
  (reset! http-app (run-server handler/app {:port env/port})))

Deraen

(defmethod restructure-param :path-params
  [_ {:keys [lets letks parameters] :as acc}]
  "restructures path-params by plumbing letk notation. generates
   synthetic defs for the models. example:
   :path-params [id :- long name :- string]"
  (if-let [path-params (:path-params parameters)]
    (let [schema (fnk-schema path-params)
          model-name (gensym "path-params-")
          _ (eval `(def ~model-name ~schema))
          coerced-model (gensym)]

Deraen

(ns foobar.core
  (:require [clojure.core.async :as async :refer [chan go timeout >! alts! alts!! <! <!! close!]]))

(defn -main []
  (let [running (atom true)
        num-cars 20
        ferry-queue (chan)
        ferry (chan)
        intersection (chan)
        msgs (chan)

Deraen

(ns foobar.daemon
  (:require [foobar.main :as main])
  (:import [org.apache.commons.daemon Daemon DaemonContext])
  (:gen-class
    :implements [org.apache.commons.daemon.Daemon]))

(def state (atom nil))

;; Daemon implementation
(defn -init [this ^DaemonContext context])

Deraen

(ns working-with-data
  (:require [metosin.dataset.pizzas :refer [pizzas]]))

(conj pizzas {:name "Speciale"})

; v1
(filter (fn [pizza]
          (if (< (get pizza :price) 8)
            true))
        pizzas)