elfenlaid

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RankNTypes #-}
module Bencoding where

import Control.Applicative
import Crypto.Hash.SHA1
import Data.Attoparsec.ByteString.Char8 (Parser)
import qualified Data.Attoparsec.ByteString.Char8 as P
import Data.ByteString as B
import Data.ByteString.Char8 as BC

elfenlaid

######################
# Options
######################

REVEAL_ARCHIVE_IN_FINDER=false

FRAMEWORK_NAME="${PROJECT_NAME}"

SIMULATOR_LIBRARY_PATH="${BUILD_DIR}/${CONFIGURATION}-iphonesimulator/${FRAMEWORK_NAME}.framework"

elfenlaid

--------------------------------------------------------------------------------
{-# LANGUAGE OverloadedStrings #-}
module Main
    ( main
    ) where


--------------------------------------------------------------------------------
import           Control.Concurrent  (forkIO)
import           Control.Applicative ((<$>))

elfenlaid

+ (UIImage *)generatedBackground {
    static NSArray *colors = nil;
    if (!colors) {
        colors = @[
                [UIColor colorWithRed:0.957 green:0.138 blue:0.287 alpha:1.000],
                ...
                [UIColor colorWithRed:0.972 green:0.207 blue:0.225 alpha:1.000],

        ];
    }

elfenlaid

@interface MyAsyncOperation ()
@property (nonatomic) BOOL isExecuting;
@property (nonatomic) BOOL isFinished;
@end

@implementation MyAsyncOperation 

- (void)start {
    self.isFinished = NO;
    self.isExecuting = YES;

elfenlaid

(ns translate.core
  (:use clojure-csv.core))

(defonce store (parse-csv (slurp "resources/trans.csv")))

(def lang-shortcuts { "Russian"              "ru"
                      "French"               "fr"
                      "Italian"              "it"
                      "German"               "de"
                      "Spanish"              "es"

elfenlaid

;;; Move region

(defun selected-text ()
  (let ((text (if (region-active-p)
                  (vector (buffer-substring-no-properties (region-beginning) (region-end))
                          (region-beginning) (region-end))
                nil)))
    (if (null text) (unit-at-cursor 'line) text)))

(defun move-line (start end n)

elfenlaid

(defn lazy-open [file]
  (letfn [(helper [rdr]
            (lazy-seq
             (if-let [line (.readLine rdr)]
               (cons line (helper rdr))
               (do (.close rdr) (println "closed") nil))))]
    (do (println "opening")
        (helper (clojure.java.io/reader file)))))

(defn parse-cvs [seq]

elfenlaid

(defn lazy-open [file]
  (letfn [(helper [rdr]
            (lazy-seq
             (if-let [line (.readLine rdr)]
               (cons line (helper rdr))
               (do (.close rdr) (println "closed") nil))))])
  (do (println "opening")
      (helper (clojure.java.io/reader file))))

elfenlaid

(ns hcache.core
  (:require [clj-http.lite.client :as client]
            [clojure.string :as string]
            [clojure.core.async :as async :refer [>! <! >!! <!! go chan]])
  (:import (java.io File)))

(def h {"User-Agent" "Mozilla/5.0 (Windows NT 6.1;) Gecko/20100101 Firefox/13.0.1"})

(defn page [url]
  (:body (client/get url {:headers h})))