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 =&quot;gconftool-2 -t string -s /desktop/gnome/background/picture_filename &quot;				 
		     in mapM_ (\z-&gt;do{runCommand (g ++ &quot;\&quot;&quot;++b++&quot;/&quot;++(c !! z)++&quot;\&quot;&quot;)&gt;&gt;=waitForProcess;threadDelay (a*10^6*60)}) d
		      
main = do {
    initGUI ;
    Just xml &lt;- xmlNew &quot;papel.glade&quot;;
    --casts
    window   &lt;- xmlGetWidget xml castToWindow &quot;window1&quot;;
    onDestroy window  mainQuit; -- hide sÃ³ se tiver slide salvo
    papel &lt;- xmlGetWidget xml castToFileChooserButton &quot;filechooserbutton1&quot;;
    spin &lt;- xmlGetWidget xml castToSpinButton &quot;spinbutton1&quot;;
    ok &lt;- xmlGetWidget xml castToButton &quot;button1&quot;;
    s&lt;-xmlGetWidget xml castToStatusbar &quot;statusbar1&quot;;
    --alguma coisa
    i&lt;- getHomeDirectory;
    fileChooserSetCurrentFolder papel (i++&quot;/Imagens&quot;); 
    j &lt;- statusbarGetContextId s &quot;&quot;;
    statusbarPush s j &quot;Developed by Asafe&quot;;
    --events
    onPressed ok (widgetHideAll window);
    onPressed ok (do { a &lt;- spinButtonGetValueAsInt spin; 
					   b &lt;-liftM f (fileChooserGetFilename papel);
		               c&lt;-liftM h (getDirectoryContents b);
		               runCommand &quot;notify-send 'Slide saved!'&quot;&gt;&gt;=waitForProcess;
		               slide c b a;});			    
    widgetShowAll window;
    mainGUI;
    } 
    where 
		f (Just a) = a
		h = (L.\\ [&quot;.&quot;,&quot;..&quot;])</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>

Refactor :my => 'code'

Recent

Popular

Pastable version of Haskell walpaper slide