Untitled - Stikked

A PHP Error was encountered

Severity: 8192

Message: Function create_function() is deprecated

Filename: geshi/geshi.php

Line Number: 4698

Backtrace:

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 4698
Function: _error_handler

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 4621
Function: _optimize_regexp_list_tokens_to_string

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 1655
Function: optimize_regexp_list

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 2029
Function: optimize_keyword_group

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 2168
Function: build_parse_cache

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/Process.php
Line: 45
Function: parse_code

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/models/Pastes.php
Line: 517
Function: syntax

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/controllers/Main.php
Line: 693
Function: getPaste

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/index.php
Line: 315
Function: require_once

Untitled - Stikked

From Mature Flamingo, 9 Years ago, written in Clojure.

URL http://geopaste.scratchbook.ch/view/0de45bba

Embed

Download Paste or View Raw

;; Update xy-coordinates of layer points in one transaction applied to

;; a reagent atom holding geographic coordinates. Note that dragging

;; the map does not (need to) trigger coordinate update --- the whole

;; layer with the nested elements is translated as a whole. But

;; zooming in does change the xy coordinates. You may think of xy

;; coordinates as a pure function of lattitude, longitude *and* zoom

;; level.

(defn- update-xy

[points ll->xy]

(let [tx (fn [pts]

(for [p pts]

(let [ll (:ll p)

xy (ll->xy ll)]

(assoc p :xy xy))))]

(swap! points tx)))

Author

Title

Language

Your paste - Paste your paste here

;; Update xy-coordinates of layer points in one transaction applied to                                                                                                       
;; a reagent atom holding  geographic coordinates.  Note that dragging                                                                                                       
;; the map does not (need to)  trigger coordinate update --- the whole                                                                                                       
;; layer  with the  nested elements  is  translated as  a whole.   But                                                                                                       
;; zooming in  does change  the xy  coordinates. You  may think  of xy                                                                                                       
;; coordinates as a  pure function of lattitude,  longitude *and* zoom                                                                                                       
;; level.                                                                                                                                                                    
(defn- update-xy
  [points ll-&gt;xy]
  (let [tx (fn [pts]
             (for [p pts]
               (let [ll (:ll p)
                     xy (ll-&gt;xy ll)]
                 (assoc p :xy xy))))]
    (swap! points tx)))

Create Shorturl - Create a shorter url that redirects to your paste?

Private - Private paste aren't shown in recent listings.

Delete After - When should we delete your paste?