Refactor
:my
=>
'code'
Codes
Refactorings
Popular
Best
Submit
Spam
Account
Logout
Login
JavaScript doesn't seem to be activated, expect things to be ugly and sloppy!
Learn How to Create Your Own Programming Language
createyourproglang.com
Recent
Working PS3 Jailbreak 3.65 And 3.66
ExtaBit Premium Accounts and Cookies
Steam Wallet Hack - Money Adder & Hack v3
Empires & Allies Hack Cheat Trainer v5.4.1
Eve Onnline 60 Days Time Card Generator v2
Xbox Lve Generator v3
Better way to get content via jQuery $.get()
Free CarTown Blue Points Generator and CarTown Templates
Steam Wallet Hack 2012
Diablo 3 error 37 & error 3006 fix
Popular
XBOX POINTS GENERATOR - MICROSOFT POINTS GENERATOR v1.2012
11 may 2012 premium uploading accounts 100% working
Free Microsoft Points
Free Microsoft Points - Microsoft Points Generator - Xbox Live Codes 2012
Car Town Free Blue Points Hack
Free CarTown Blue Points Generator and CarTown Templates
Free Microsoft Points
Simple Days Purger
Sharecash Downloader Bypass Surveys New 05/2012
PAYPAL REMOVE ACCESS LIMITED ACCOUNT 100% Working
Pastable version of
Haskell walpaper slide
<pre class='prettyprint' language='haskell'>module Main where import Graphics.UI.Gtk import Graphics.UI.Gtk.Glade import System.Process (runCommand,waitForProcess) import Monad (liftM) import System.Directory (getHomeDirectory,getDirectoryContents) import System.Random import qualified Data.List as L import Control.Concurrent(threadDelay) slide c b a=let d =take (length c-1) $ L.nub $ randomRs (0,length c -1)(mkStdGen 8) g ="gconftool-2 -t string -s /desktop/gnome/background/picture_filename " in mapM_ (\z->do{runCommand (g ++ "\""++b++"/"++(c !! z)++"\"")>>=waitForProcess;threadDelay (a*10^6*60)}) d main = do { initGUI ; Just xml <- xmlNew "papel.glade"; --casts window <- xmlGetWidget xml castToWindow "window1"; onDestroy window mainQuit; -- hide só se tiver slide salvo papel <- xmlGetWidget xml castToFileChooserButton "filechooserbutton1"; spin <- xmlGetWidget xml castToSpinButton "spinbutton1"; ok <- xmlGetWidget xml castToButton "button1"; s<-xmlGetWidget xml castToStatusbar "statusbar1"; --alguma coisa i<- getHomeDirectory; fileChooserSetCurrentFolder papel (i++"/Imagens"); j <- statusbarGetContextId s ""; statusbarPush s j "Developed by Asafe"; --events onPressed ok (widgetHideAll window); onPressed ok (do { a <- spinButtonGetValueAsInt spin; b <-liftM f (fileChooserGetFilename papel); c<-liftM h (getDirectoryContents b); runCommand "notify-send 'Slide saved!'">>=waitForProcess; slide c b a;}); widgetShowAll window; mainGUI; } where f (Just a) = a h = (L.\\ [".",".."])</pre> <a href="http://www.refactormycode.com/codes/1381-haskell-walpaper-slide" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://www.refactormycode.com/images/small_logo.gif" style="border:0" /></a>