From 7ea1e9a0e7923dc9ffbac1863da63f221e2fce95 Mon Sep 17 00:00:00 2001 From: Daniel Barlow Date: Sun, 8 May 2022 22:38:44 +0100 Subject: [PATCH] add some very professional icons --- carousel.png | Bin 0 -> 5658 bytes close-window.png | Bin 0 -> 5566 bytes launcher.png | Bin 0 -> 5640 bytes rc.fnl | 56 ++++++++++++++++++++++++++++++++--------------- 4 files changed, 38 insertions(+), 18 deletions(-) create mode 100644 carousel.png create mode 100644 close-window.png create mode 100644 launcher.png diff --git a/carousel.png b/carousel.png new file mode 100644 index 0000000000000000000000000000000000000000..cd74ac533edf18fdac543fba88183eafdf531c74 GIT binary patch literal 5658 zcmeHKXH-+!77ksiD4?JY#waL4NFkjdEeH$*LlqE_o0}U5C5cIZ2%>^zq=PvFd%tYU<5@+5e1cZ6RhveAJ>}sXV$v8_nx!&x6l6ecXo18SzfNX zT644z2!yV?8^Z^_BjwjLb@*GHknj?LP{~d33zYZ(@kpUaz~x0lNXa@OgoLC#E&?I# zuGquN=|SpjofN0dtIY|lUyIE>)`M(lGYG|B@T$HAHmYk|nU3qnHSO=~eRuf^SsZlE_@SvC6}X87q~SgvYC>4`b#o>v#>X+-(AYpt2b>!m$v z${Z$7COnMDbMwqT8j)9Yo;owsHbTt012J(?<5gSM1r41&!RY*>%lT&2%iimw)ho7# zYGbutpcWYvqVf=@@(K(Im!(Um8+4xzdS$i%Io2-;F-fa(AC1>o&7uZN`kt2Y*4^87 z%|GkDcVC6A*4WXE_Km-E4c+PYNZeUsNnY*J_w-)gt5e+4L$9~98e+UBe3on9=XwIZ zC3(%@SVH{GAi^=6;N-Yjjav>5P+(=0N27oCuwVHCWrbYjcwsSxYpdPaD?! zwJdCM(TTgxW^T_GY%%s}&vH(knWTfeYWRd@<(?C7QJm{@bGNUz_X)=$bN`lLe0c3a z6H&88RBNSSbC9f3Hk6|DYcsuRctG}u@>|dV{pYkNzDc^oJAM_9g6EKV6#L-lqr9f$ zR%gO2(Hk^9LT(=N2>r1kV5q-pM;@QZ-+5PRj@Byh=am=3eq> zHL2S5fM3~LbZ40Cr*Vp?jXtsqInjP80zkhiuRhvalvzF+l{x;_v-wDG$*#C0QgK`B z;c<4ky$GjNwAN`?qCK|cYV5W|kHlilA1hzS{h%(l@Ebb~>-b zHEpB$cU|8;-uBksuC#3ZlCGX1&F7wNE1njOy<8tXza@R{#A`49e*e*39j4G9y~Fk$ z?-*rC8&P)cubnGjwS;yrd9t7@HbgaXRgM3%WiyHzx=r7Dc&6DVhU7QD7auF_ydd2E zr{xUE$h%pB>K+q%n_t!Y*0!p1!|#=+r>d-OxAz!BAe6T7oSj+j&dwkAD7-WCld|pH z>Kx`>S>v1TvQ#fX-}@S?z$z_`5^0piTF{|&oR%9huEv~`V>sKjwn8RrVBfC260}ld zrKA2^#9E2SN0L2r@@K=~`UGLm&iFCY_z}dx0QSDyIK7Cf81wr$TtSeL?V1@5`box@ zbDOO|ubi0?wiloN=l;;@-QgAXV*`T$<+D`Qqn=yYc;-nrOA~I9C?f_x1vv(!wxzl< ztB}tZb{g&MqYSK`CFS1rG#f~*t7l)_x@Q(w&39oTD)Y!buQyKJ;GP$=!jJm_I}-nz zz3udPBfgWThst!Za!i?~W@PA{vSZ0{n#HV~GxMYF&lkR%S!pOTs=an<6P|FbZ2sHn z8{(rLnlCTYZLiesD9L=0G)x&asF~CW`IEV^QoVV7PH0SI_QC_>4c~vMdwLlb(!BMGH3>J^U}`LLkB z^$`2PKRp;9NGymIfsjia#Fs4m5`qJM@)yR6q7~_IKnxTO#lWUwI4bU|kgo1b)+Y}+ z1>w9Hp~4F$`zuQckNcUduhu4?QKa+bLSXk#xL;X+%w1s&TQQk5h5(F}FVCG}hmyyq zaReZbLsL9rZ8&5yK!MO?JO_&=kU$C=z>zp;E`Y-UR1Sd(amimmx%0&mfDb})C>Y$D z2jdV)90Eke6VWytfQTl502$3@6WC}H2T!!&lDTXuNcjR{g@^~M5{UkCRdOf}427it z0EJ4#p>Y%(4o%=vNN6g73Zelr1qXm2n}Wwu6;K?Iwp<{J0pN1-Vt{Z6BjkrGCggi&mB&6I^A#Wsoswi$e zF>J9;uJ{j{_l4F@y-jU_Xr5vUiB!mz27psR#6TRxQ3Qhhrl!CMfFBOQ`}>2SK92ML zrdW6!m%_zUv1mM%Lq!t+A{WgDZ3t)pqLAPsf*_X2{Tf{?;7Z~F5#$&SX9{Nn3rLX- za*2XUi?6NYBOp0XSa@$^iD)dv509teDKwmoB^F1+Vo{iXKSdiG08gL-Bs7*}!$A`u z90yG$!mlJOg-D^2up9vQkEduuq+$OjMLI^_xIPw@j`_c`PZ@mC>0oN6#^4SLH)PDG zj{Jc$xl;bc&j-2vixFVx??Jwa-|uvNr|X*-_$K4;>iSOCH!<){#^2TTkI|*|`Ai4# z;Xiuu@QH2wcJ@~Iw5QJYaAhdYeTX;C)f?d_O`%(m7=h3>kY7rOefh@lpoYYq>7wyS zZJNCSNU3#@ziGc(G-(YRq_d0xl4fR3vNq$dw7Hah+~MdK7IRPErP z`?KNNk*pEfV%B+g!38Y~bbsyi_RXdV+qW)K?Q^@;Avync_El&N_bm0#nyjv_mgdQI zg?)4zmB~b0P{Ez|UT8NqyIr+)x9^&P9fHX`p0zkNs5hv;Aj; zd8l^yuTYhi`qk*2T&%P|xgrJkRC)I8r%VqAjl2Gdx`7s9Y*UJI#wN3;CBaLj1G;L{enAga7Km|+<617?wNh71SN*fS@O&Gm1 z7mg{!(EnXp0OvNKScE*dEUF7?5JrFs$5mG^x44&R$&D+<%@^uS=|28 zl}iIkgK7KFDxJx5PoJE=Ue)wkqteNPW@nXqEW-|2w2kA!GI&wwbA%fgLy3#bsX4KP z*V;07B?EE^zd_SL_oviFy5ut&$en>fQTSZS%2<VN4R4cYG*=dQ7vc9NG-iQn;r(o(;0D|h#}b$aU2;{MIpwa@g6%Y;pO ly#*QX`Z4BCC-{>a-l!BC-DEY5daBBG>h9vjD02!+`7a%Hj^qFU literal 0 HcmV?d00001 diff --git a/close-window.png b/close-window.png new file mode 100644 index 0000000000000000000000000000000000000000..3222031f8fe0a35bdd548c7fb6220eb26f92a400 GIT binary patch literal 5566 zcmeH~dpK0v8^?!SCPJdi5j6%CnX4IQCX+BSL&TWelI)q;Gq#wS=Hi+-Nrj?P$|Wl5 z6qQ7XM5&H0ztT-bIf(A0%PB?m+cR`~e&?T_=Xd^Vo@dYOz1I7F)_T9|UGJWi=HudnKp^y3Oa>eNMJX?&7W^%XkAH(eXn4kR0_AKV1|^Y-1yCf2lE+Cv6c`H$5Qy0J z{(z-9me$CRF_SCTA{cV&5KS13zf@Fan0q64dt%+O(nsaZI)rP8UiDyLKZL|yhwysA!@lEy1>LSF38 zJCJ2$75eIR_HNHg+l;o_jVcZdEVk}ChyX=|Se;|C54xua0_+a*pk_xC;%g7?DX`PykclWaG z`PAun%e1m<{A{!tbG=hEOkQ<$q&hqof@%NP*Wt_gbH5Z)wFi3hi&#$^bb|JJD znZ7@VbEub{K2J`woOdePR#G0a?|kW={SoBb><05y!IACk%ABQ8=Lt{ukB<*7z1kq3 zNt)GD=X(^siggkByoIhyil^>V$B<3bI(5cG7r&yQV$vm7I?XDM6nU4(aV@wqw zHo97(M7ru4B;4i9MTA!_A|Tp$q5qs_=CYlN;0hzw7*R zH>~aBPR4+RsNCn-vuP32E9`W4_!&6A1vbgf&%9EaMH-3hS@vOxb7-CYa_yHrzpv}) zs(*81jm?^{q1ss22K91WFsJPtw=TPV=;*AIywz?8GUFfUbqDuVuCX~YB_Qjm(L1An zT^rgIpzjF1b@1|#v71S_$$eD24rbl@Yb@;n3tl+GZ8b32g_dX~oTV#&$i;yvBTN1AUA6C+Hh$4c$Jme4H{PDXE>n{fPd^WGxN0tL3c z>zcP>UhU}&&7*fcS9TA--QD`6$@-Yw!CCXEza(LCzHfjtsk~@1R9n$qUuX!;*Uh5& zxEm(F-WA{4mV{KR*>@q?YJdCfZB@jG^+3yoW1?pv*M4;8vQ7! z6Nx~mr9!T*J}g()FJ%QTCIyLG=*;E?rstOXWw_bs`_JjwyoVMvak61Zm5$p1pNLd{ zvqjjCYi8-O(ld&?f+d5zil<#YhssjQP{`HE6dKjKj+yq^QwPI!qzwF7pO94_liYd$ zf9tu)IL?2F*VAfu{^xM|{cnIkQVyL}E<+}3Lr{$@{n64!&T2z(xPA|>d8 zPulFX;`CDAQ=1h*-6zil9lja(tZ*cC&&ldzmlb)g%rHYwrt{j3CKnGhxoq^`WNZYr zXC(}2nkV8m*~aougHPIx^<-V62O{eYs!0!PB!qF*K0`OLVaugR7LLxf)MSUY01@Y0GgTpE0@Y{sEcDiiq%Iy%tH2jwc3f+!M} zgvDdrVxedvdcF?IQOXz4*o=i^2>6MP4wuU%G#oA_CI%a0hZReOI0BVQ#o>uKA`t^y zU}SM3IS`8x$t;wJQ3eB)@uZMM4v9r5B@^I^6>>Tn4fmtI%r8pf<@FUWl8vbV>w${} zBsc;VkBf@JeeWTYyG6s0u?hX7hl~TiE^%y7CRRv!pj$L3l3RR_;PbxvOBB*bRXBVe z4vYk&U{e`9D&dDA-C15fUpowK7)7G;Fn|Mv0PuKR3K36Lq4+%7 zLa{UofR_`B0)!w=A`+@Pl!DWoeOPof5sUxU;u8tT1+W7hy$BL1V!w58peWE!4k*^((BNQTVF6{H!T=Q(j)mqb1p&EO z$`Okr>1ZVarSw##H_CBzQJ9bnwun<^{8-NWfh$L!Mz=sDr0PPURB1~Cc%y^JfM}4f z8VL3q?c#+4A|VLx@3DmX(hmK@Vi5@fihxMPV~A8fyjTEPfZ_7&NEiU5*n?CekB27< zex%F90(lG|1)YU(q;NEF0;!@w%~45d{iAhEIH=SK5ASU}8H1;Ah(sEZLL=DC#S>_F zJQ_C^FiyFvzeMba`yWjlRR-Uc0oZS}4K6QmwZeTZS7VwfW&9UEV{7p*jsT;74f0d^ z{*vpLTtB72PZ|Hpu3vKflmb6x{42ZuZ*u8;JMe%a_+L;Ae4Md-A4-FdLRwr;cZTXv zgm~{-p9J5HmoS552!yVY@=`X-$jPR9Db>e25D0ZTi{Z=(Z0_ID zxWdoZ^xRdlL(j&Dx1FIELk@9^))^ueiPxY0@*@t!NnL<;C)Jz|aM~SvgGtEAD71=p%wc5BH zmHr&YvM^-T>|3ot3DBVVQ9q=k)x~gjkz=_axkhiKGq-H}6Rwxh61FA!q3F1}W%P5ymCyUUhS~c1Sym0%qzwfp zuVznlNxF8;oiGsGKePYE^2ocgqUo1jmxNyTVg*?3+VW=M^}^4m%%9}lZoqzY$!33O zJzT4Gufm<$?+MEi&Xs)_aS=_humT%i#!pl!NQ&%mbzCE1L#wk`mk^neZm6YrjmZaoH-V&9K z(+xj-$UiSSa8vNhijvHdM_{7S+KH1`23GW~a@O_twzETayt(+=``}+m=7-d`R+W9` b@kg}sU!+ec)p80~rXI`9n{mV?Y|VcGHX(*N literal 0 HcmV?d00001 diff --git a/launcher.png b/launcher.png new file mode 100644 index 0000000000000000000000000000000000000000..120e7465003f179802542e1f9737adb6f6399afd GIT binary patch literal 5640 zcmeHKdpJ~U7a!yr3b}NjMnX0B!Ja{Ah^ZNkOOjjdnc2g{T+9qJ2ysMGic_3Ar>jfK zM=2aqA{9xLoRa!#O3@9cC?}=9J)`UMoqu|sbN*|dXV2dIeb@S}wSMpKT{CYc)7#TP zZ-yQMfiR$Xx%Kuey?kyO`%Ej1SFduSH*F^P%-1Sknn$o&NcuhgkghShBVA)go5>2|(Mj1( zDHfS!oAk6Zb3NR|>$}VTEZ!8<4bY1{{M_5q4$?)-_(pdY_YF=i>MC<3JfV@SzCp*0s!#JMqr95oZ?}HS zEX|DKtR?9s_=`KI5*sDwZtH6J&WPK2ExUbdl72yUG~FbxgJbRR#+FXGU<yojiA2^&^6mWi8aL5a*Y3Pc=Z9&arz5-@}_qLfwD7dJubp~LJ z+bbY?*Yu4Q6_XwuL^Y)LwMH>dk9iU;?Qz_9UlNs66m*}eM4k^1|m z2eE^*U-i$--nTv_-}>ik<$}3G+kPeF)h0y+_f|AHwU3QGoZ}=j;;y)fdX4LOUu5~H zkN(p1LMduV=3O7jP5)K8}O zym$}b^fnv5B_)66{^s}zc6 z)*p=*)~wcE?KbrtB3df;mF5_K$e$K;K3;TZyKHohYzT2MfVJljykW#C{(@dSe(xGn z$F)YTQxh%D{nECW?VW2J;aER-zxP?_&hRRi(f-E)C(SfApk6E{(tnlzB#*yt4-A=P ztZ@s-?8x+FoI<{^ylJ}q9?&0ZCg*n3t@<;Y&a>(_?K0zP`dRKnWtZ&nezUZPy=&Mk zyv!fmmhjR%{lr)+;U>=zmF=zoGKn{iibCwG-*4<|kcUYRs}&<}aSNUqgt+mIW^U!P-n zAbe&`jbMH298s;th|Ba7wspDti+5aB8wwv`Og}Jc_Bd!bKJt0*h?dcu6#Z-$+ zey`(ym1zejyd9+%oSmC;NnED&;C&O^g2#Dqs|{q(DQqDh19F5c2qWi<;8u)4IJwA0 zAUhJ0B3V#4PvDFisymB9@;J_@)piUVLqvrlcwX^h$S>a8pB*2`CUa0OOZ1%N6c~UH zNkOEXA0?1b8tz6(N<1C|ImaCd0^x7@;^Eizk!GSR4UMAfRCjv?NX-1?6ag#8L?{f#D8G z*kYbY$`cBZN=%R?jFCE{Q1CqRQ+|9AgYg+&Ao<7w%m-Euim-SL4$J3bzxI$wJz`;y zj|u&)hr}QL#lreR5@C#(4SB>u0;%QK5FGYre^HD$N>vVrjfJ8hK5Qz1qvF2_=}BWS zKYJ)C2uESSQG=W443fPbm z3I@mUU>pZ~HpdPRIiN{gdlH&NWaH6*JqV)hKo*+>W3vI`*AOekJXn=r)Yn-lp*S!U z4gf)bY==kV0X!bY1MJac5}Az#9RNJYX0reSj;zXt!=@|~iuoYCoIE}l4q-)taMgs8 zaEcp~=8Pg>a9>84QJ|CyJ2<20JVA{7%Y;9V5BW(!C7XDAI|7bmXGZ`4f`k3XoK<)M zkXQmMQHhDiVTcpB%4MOz#lXaZN}a+0Dp^CvRjsOMW5WK%X3hL81 z?{5~1fad~S0vU%UkU3;D3AE#)S!^N+4MKoDL?*D=I6LmQ=n^4UDg(ukTR2=PTn#KB zRW(Q(6_vK%TFW9JB~LhbZ{zIHIKZDkpb!8Gp125yr{HiX?7v?k3*c}84vvH-LU8?8WA>L5ylHn&^k=Ggt0x{V{d8r}x{AK|UYD;Mh z5A8lp9aE&vMl4W@K&a27xx4uXHVx!=tT*woxR6Y|o^8*^yEB64Necw}9#Wg}Ut(2dm6$iOs?(gdGO~!#nOB%d+g(^+m=E=DSa#@9n5uH5q}e)F^c2B5kjhW~Iy#HLv_I6R0*k6{Gf8-C-k9 z(I7bwO%Gg{Gu&|Rvg_rM!wr4sri;cMU7K9&QZpj*@P##;am)TN?R1Q%iM%cX(GmKg zZG3H;4?+$^I=1VrYp!fo+jzbVI8J?SrrxkJ_Ihg8ve-^P#d*c4ESAFHxK_v{!@%?R zf59A?)j(8KA6YV2Qf^}rvC6PvL|8X!QtGnRU|mtSZMe~cO8pHlQMHoJoDW&;Hsvn< z1_~e1yXBbZE=ZBF`>DT{YiEKY>A={-+=Cj5Jk482a#PIBR?oTWgb8q7TX5n^%iW}# zz1h}?uqw3m>#XG#5t^0Uluqj_`QEp6U!>hgc=SH3qM*vO-eWuzuNb9I;!?kw}w$<}LG;0md4-|FGK0#Jz%?8x#HI5b7^zFJHPY^?w=UlWzb3 literal 0 HcmV?d00001 diff --git a/rc.fnl b/rc.fnl index 4099104..aacbaf0 100644 --- a/rc.fnl +++ b/rc.fnl @@ -1,32 +1,52 @@ (local { : GdkPixbuf } (require :lgi)) (local { : view } (require :fennel)) -(var texture nil) -(local pixels - (let [(buf err) (GdkPixbuf.Pixbuf.new_from_file "globe.png")] - (if (not buf) (print :err err)) - buf)) + + +(fn texture-from-file [renderer filename] + (let [pixels + (let [(buf err) (GdkPixbuf.Pixbuf.new_from_file filename)] + (if (not buf) (print :err err)) + buf)] + (renderer:texture_from_pixels + pixels.rowstride + pixels.width + pixels.height + (pixels:get_pixels)))) (kiwmi:on "output" (fn [output] (output:set_mode 360 720 0) - (let [r (output:renderer)] - (set texture (r:texture_from_pixels - pixels.rowstride - pixels.width - pixels.height - (pixels:get_pixels))) + (let [r (output:renderer) + kill (texture-from-file r "close-window.png") + launch (texture-from-file r "launcher.png") + spinner (texture-from-file r "carousel.png")] (output:on "render" (fn [{: output : renderer}] - (renderer:draw_texture - texture - [1 0 0 - 0 1 0 - 0 0 1] - 150 150 0.7))) - (print :texture texture)))) + (let [bar-height 40 + matrix [1 0 0 + 0 1 0 + 0 0 1]] + (renderer:draw_rect :#00000077 + 0 (- 720 bar-height) + 690 360 bar-height) + (renderer:draw_texture + kill + matrix + 30 (- 720 bar-height) + 0.7) + (renderer:draw_texture + launch matrix + (- 180 (/ bar-height 2)) (- 720 bar-height) + 0.7) + (renderer:draw_texture + spinner + matrix + (- 360 30 bar-height) (- 720 bar-height) + 0.7))))))) + (kiwmi:on "view" (fn [view]