From d2144c7f5e5c0f86a5694867523d072c8642eb5c Mon Sep 17 00:00:00 2001 From: Emin Arslan Date: Sat, 29 Mar 2025 22:07:49 +0300 Subject: [PATCH] Delete unnecessary files, update main page a little --- main.fasl | Bin 10039 -> 0 bytes main.lisp~ | 71 ---------------------------------------------------- paste.html~ | 47 ---------------------------------- root.html | 30 ++++++++++------------ root.html~ | 44 -------------------------------- 5 files changed, 13 insertions(+), 179 deletions(-) delete mode 100644 main.fasl delete mode 100644 main.lisp~ delete mode 100644 paste.html~ delete mode 100644 root.html~ diff --git a/main.fasl b/main.fasl deleted file mode 100644 index a56ea7dd865b5b9cb27d56b68d274ebbd77da8ff..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 10039 zcmeHNdvqJsnV&nlcdVB!DY2ad$FZ!~dDzHGAciy$nz3eViAW<^8YQ8dmWo)|CbktU zDZqiWb`%3p2PtA|qHgf)cl3Q0KN{q7yf zmK}$1cIj^aU=q*$bl>-W_xs)NF|(^ZnN+Xmiq0NS>WVd8PPaR?rnhrl+C1CYEJg!n zr*loRdtGN&qRn|_Z?fCz@^mD-6P}Lvweha_!d{P*NUcpL*LlLd$@boOcXww`yC=|@ zTIX38Po)#ktvlTTdDnTmlrd<2 zsf2k%;5cs8;tSjtEK-1?PYL{uuT=>-^IBxZ+v0`J+^R1kixQ<`ir*WOIv^xiRE@{NPU)tQ) zXRmF)7!6bidxQZy*&}Q+8~?yL`DrN*BE)Snj=_H3Gqw)r0s&< zL>w3g>~nT?$CC}tcvmXvY)d**z(nVoj>MX^sRrjY3CQZ1n|59k?@2oY&3+PeG{+RL z>JKS~eiAg)Wl4SI4igr$+HSJIOo;2} zXffS#j(6?i2%;380_0IjaY08o6!p{DxwddGu`FzW())F?0&;&omYdYcGN^DFBcmob zApv;1k==3d~&H)TIb828u8hr z6{zo&DeXA}du>gBdw3e+!t6X0?C;?j({p1{R?cOcdoJDFYEq{o$LMO*^GO}R$_m(C zd6f!BSq!*ENs7qPXdOlg+#A2fLlj3IX_Tn}zp~uz3k7Ax!N?}RlA|KxN_9q_S8N!{ zEVTfaKH|*`mv$L)xU?6TR7Y`Xp#gAdCWcoBfYX4t2wq`+o5{d!Gw^7ef$-Z5MF#U2 zIMw4v`4@M-@y6S`-Y2*bn}M(OH+hnlI)a?xE^iP-Bkj=%slY=C7j z0G{W|o*01vmZ6KG|NnwX0)m z4?vyCSF>@fqg`Lp5$)you%=_|RQt5X4Xm;ZSSTO!X=FY9IS4;BlG4dP)1l#Km;UpK zz@Yrd{!$oioHRHO&&d6U682EgnaAW}Dab{_(vj(bJFF+2Or}Y~l8C3SbN41Q=|qYo zNZVDJt~gv|VNvxdVo(lVSSQKNVhk`ppXJVFfXsL>=R$oHiaBmAS-_J-c}F_EZi&a! zm0T0=>PV*2OBOF!yud?LM_%;mXdBMJ+F*&cG4;Ys8amS5T>wt3$HG!GQ;BlL4XiP} z5#Va0jp3YEgGf|iH@>8;1XL<#S7Lpl3$%;gZbC&e@lf}?-+4ZFcE84R&mAh8zH_hP z7aLyXPR;p`zr6I>&pzk2K7Rjix;x)08LpK-_{+b%`@7FxuY8r<^ZK7241DXn`g`wx ze(zJQzqz~H{r-1mU7LOT&d{#gp2&9oaZ&l}7CpmqPC7Chon`7Tac02}AOTRuT^dX}%gRB73vmD-=Ge#<+R{g{K(BNXWaO-s zUOj82g-_rXYk=lV^wfyh)%?x{nkiE5ckss`Uf4k zISo*`)t27KlE$0p-~|9PeuP|;tMn#oAvwq{zq2*)(_ZOmnRMPh?NqMg`K;r{I$Hf~ zeHMSkKHvMCuCMVZBwx~}wv^S=+4K~xTcF@g*aU6qleAC0?w+&N-91)!`FE$0_=!By4l&XjfaubmyH%PQEBu%JrzEUR1-cUrO z)0t4VXo%n|@S32dH5O83)kLWBxRKxl?n!W@p8(m8dw57XagQQ^2m`qmr*9#ES%8tn zJFHa4tdeUjoN=0x!!jHO6>=1{K>ORtUCOpgop!mbL}L-K$zU>$l2y1+m_@3F6+F5S z!;MzKrS+gL!ngz+)gdzsc!c=E_ z)u)KK-Z=_0f`{Tbjua}rZ?YKy67S+3WTaXd2PILFy=v}EI2>E}aXPTR29BG=@HrjQ z$o(+vDAbIEKW9LueF$pCkDx@>e4m6g>wJIq!Y_aIPA1`3fPXIoJS)t0)UQLgA4{4UBsOh_Ww9&zV!VW$K$sEr_#MTmmX4X*r(|US|WfVBi`}!uHRuCt$N6 zYOYkT<|inzOV|*&+F=ThJ9+sTOm2TnE8O>mPZsD*`F3M4FvR9OfbgxTvvVox!B4X%Nz5uGCOx(W>--;S;)GK3OT@V--d$Xa@n01{!x1m?%gVVF`JRY>>GE2 zCRv3~d+PwL&e%3VTv#{sMdhZR?fe~V726R=4*ovAg2!uG+i;@wO5EPsfje8T!fRW* zbmYK2s)aBs27rO0h5@`Z1pgRq%wY%Kj2MhuV;8oc1{$ytW1w-}nBe5`0^jiW$B19C zwf>r|wGZLD5Z;Tv27Ivo&+q|nLf;^Qlb*)0XABYUVZ6EvQAnWf4e;cV_H$8FrIi}Y zGkshVW2DR!+Al-{7T&7c!Bsjq+=WyFQTjo(x8a)+ZafVfBsL;$beO*XRlxx~Q5h#i z2T+gT2GX5S+KYK9o79oRbOs&Z_Oa#MgYbR|7XJ!h0n#!NEQ-$t7Wj7b_eFz;*fbA* zH8dz9;NZw(0k}m7epttX-N=q_KMet3b^q@O@HAWBGkF9!gz&Rp2Lcp-g8;fV@^$J2 zFECymIvoLuCqsbZaR>m6y$>2P@fXe{{=)yA_`k~5@&dxIQStvzD*k7^Y>S8@>*AFH z%{sa}4K-T0H!1gzvAK)~K*3wld&ODX*dyAB3ZP z;FAG!P@VcQs-q?*7_fE0*>zD>R3tGXxxticl&hNs{Ve3JdKd!iuzDL90*-#Zk3Vj;T8j+*R-(@S z7}3ZD7=qxG%z40q#Z94@B868Q#;gTbdlnI@575X3V%{eF1-)k9*Oi3NC{3Ni;7mM) zpw4rQ4$fE^@k8JGf+1V?f(0#Mh{$>2_ZGd$CLWr%>-2F1j;ZGZ;mK=C*-rge~QU~Wm;GBEh?JU=+GCF;Z$`%ai_1Jt!7GNUV~<=jjsM*=p< zT1$rl=WxzVUiLj|y+M>K03or{O}799sihF1%4N|==I8B z@Hp^_DIAKZ;G1a(FK8Gb_+}n!yxpMdTsG>=5Q?ej5iJ9*e3 zT)dUqoqF(c2}IBzMdvlgudXX?>h7%#wM`jBH=~rre%zX!a^Li~r*Cu(PVYZQnr4_$ zRP5m^Zz-LM`mKE~zONj%E?B`#Z@)qT&nv5zj}hC);Ed)_#4G3EPmiMOaZcAk5$>|fnR+Wr@Pwm0Ie`bugt(Ahd~T1 zKBj$ezCO90vop+S=Vdj))jaUu+B~At)X|JR`>;LrSONZL-fH=`hzU;8D{v2f} zaED!9_((`AMap0)_Gce4LJ6Na3X!zevnTNlVBu`|bK2}1%sexUDgOAhlfI$V51t4N zUH*mt(^vLEs5yMV`EBqtQ19HbjZB<}h>2F25_@|1N{;AQQeGCUKYMcqO zogseh#bJlP{|h>2`s?XogI_xo9C+miPhV`x2sDy6T;l6LNqfzFaM;BiuFgYWP}@OU z`LmxX{=!D3P>Pp9ImcKYP(grrf6;^F4ah-2XORgm?%q;sQgfkbiJ0IK-V$d9p}%$pj0N z2C}J@tb09w#c-nqz6gk_p>ToN*XUlf*-huerxwPF7c>j5|yS^$UhR0mMQzQ8@^WyDnLPzm+b4!@uPnmX2`-^d$Z$i0WTJ?dCiW zVXbG1>gykD6gb^R!}jzFn8U7s``C)N^DtrjYaahQuLJtb9oBaE=D}l=XW5#~HrZuw zHtWl@S8Yal2V8-}b|?2keGxQt7R`|k`_A!SDX@Haoy|k5Ej<96n7iu!8OXx>5LR9o zd(xI}AFF%)m)6bSq4{Yr&d+E2u#fG-ejY3dZuB#%ddF^#tK^n&tz4F?MHitKel!1? z!HWmT6T~P4gtvr;iwNIC7GQ$#Lwv~taMwU`ub%u;Pj1zdteyaz(<;My@`|23uP1-f olLz(W0X_Mxp4_b`+w|l|dXm+X>sgm7dtc1n_3V8PT6U2CZyyF%u>b%7 diff --git a/main.lisp~ b/main.lisp~ deleted file mode 100644 index e8bfe1b..0000000 --- a/main.lisp~ +++ /dev/null @@ -1,71 +0,0 @@ - -(ql:quickload "hunchentoot") -(ql:quickload "easy-routes") -(ql:quickload "djula") - -(setf *default-pathname-defaults* (uiop:getcwd)) - -;;;; if you're gonna run a public instance, change to the url other people -;;;; will use to connect! -(defvar *server-external-address* "http://localhost:8080/") -(defvar *server* nil) - -;; we probably don't actually need a template for the root, -;; it's more or less static anyhow. -;; i guess retrieving a paste is the only place that actually needs -;; the dynamic templating thingy - -(defparameter *root-template* - (uiop:read-file-string "root.html")) - -(defparameter *paste-template* - (uiop:read-file-string "paste.html")) - -;; google code -;; holy hell, actual business logic - -(defun get-paste-contents (id) - "read file lmao. also do some checks. we don't want LFI" - (let ((path (probe-file (concatenate 'string "bin/" id)))) - (if (and path - (not (search "." id)) - (not (search "/" id))) - (uiop:read-file-string path) - "err: bin not found"))) - - - -(defun render-root () - (djula:render-template* - (djula:compile-string *root-template*) - nil)) -(defun render-paste (id) - (djula:render-template* - (djula:compile-string *paste-template*) - nil - :contents (get-paste-contents id) - :link-home *server-external-address* - :link-bin (concatenate 'string *server-external-address* "bin/" id) - :link-raw (concatenate 'string *server-external-address* "raw/" id))) - -(easy-routes:defroute root ("/" :method :get) () - (render-root)) - -(easy-routes:defroute paste ("/bin/:n") () - (render-paste n)) - -(easy-routes:defroute raw ("/raw/:n") () - (get-paste-contents n)) - -;; todo: handle new pastes TODO: doesn't work, fix. -(easy-routes:defroute new ("/" :method :post) (content) - (format t "got somethin: ~a ~%" content)) - - -(defun start-server (&key (port 8080)) - (format t "Starting server on port ~a~%" port) - (force-output) - (setf *server* (make-instance 'easy-routes:easy-routes-acceptor :port port)) - (hunchentoot:start *server*)) -(defun stop-server () - (hunchentoot:stop *server*)) diff --git a/paste.html~ b/paste.html~ deleted file mode 100644 index 7554f65..0000000 --- a/paste.html~ +++ /dev/null @@ -1,47 +0,0 @@ - - - bin - - - - -
- home - bin - raw -
-
-
- 
{{ contents }}
-
- - - diff --git a/root.html b/root.html index a14cee8..2f24a81 100644 --- a/root.html +++ b/root.html @@ -19,18 +19,17 @@ padding: 2px; border-radius: 5px; width: 80%; - height: 95%; margin: auto; } - main { - margin: auto; - width: 80%; - } - main a { - margin-left: 5%; - color: #FFFDD0; - text-decoration: none; + form { + border: 3px solid #FFFDD0; + padding: 2px; + margin-top: 10px; + border-radius: 5px; + width: 80%; + margin-left: auto; + margin-right: auto; } @@ -39,14 +38,11 @@

Lispy paste

- -
-

New Paste:


-
- -
+
+

New Paste:

+
+ +
diff --git a/root.html~ b/root.html~ deleted file mode 100644 index 1e90460..0000000 --- a/root.html~ +++ /dev/null @@ -1,44 +0,0 @@ - - - lispy pasty thingy - - - - - -
-

Lispy paste

- -
- - -