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

Re: Untitled - Stikked
Stikked

Re: Untitled

From Trivial Treeshrew, 7 Years ago, written in Clojure.
This paste is a reply to Untitled from Crimson Macaque - view diff
URL http://geopaste.scratchbook.ch/view/cbadf666
Embed
Download Paste or View Raw
  1. (defn execute-server-actions! [actions]
  2.   "Dispatches a coll of actions.
  3.   When provided a map, actions will be dispatched based on keys"
  4.   (doseq [action (seq actions)]
  5.     (when (second action) (-execute-server-action! action))))
  6.  
  7. (defmethod -execute-server-action! :default [[id _]]
  8.   (log/warn "No -execute-servet-action! implementation provided for:" id))
  9.  
  10. (defmethod -execute-server-action! :delete-track [[_ [room-id {:keys [id track-type]}]]]
  11.   (when (= "download" track-type) (swap! tracks-to-delete conj id))
  12.   (db/delete-track room-id id))
  13.  
  14. (defmethod -execute-server-action! :delete-files [[_ files]]
  15.   (doseq [file-path (map #(str (System/getProperty "user.dir") %) files)]
  16.     (io/delete-file file-path)))
  17.  
  18. (defmethod -execute-server-action! :update-room-uids [[_ new-room-uids]]
  19.   "Deletes all nil room-uids"
  20.   (swap! room-uids #(into {} (filter second (merge %1 %2))) new-room-uids))
  21.  
  22.  

Reply to "Re: Untitled"