From bc7171c3a1341b23b1c175d65048f536461fbd9c Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 24 Mar 2016 06:27:32 -0700 Subject: Whitespace: indentation. --- aliases.txr | 4 ++-- auth.txr | 28 ++++++++++++++-------------- 2 files changed, 16 insertions(+), 16 deletions(-) diff --git a/aliases.txr b/aliases.txr index 8684ac1..f6fff50 100644 --- a/aliases.txr +++ b/aliases.txr @@ -9,8 +9,8 @@ (rand 1000) (rand 1000) (rand 10000))))) (:method equal (alias) alias.address) (:method alt-addresses (alias) - (list (regsub #/-/ "." alias.address) - (regsub #/-/ "_" alias.address))) + (list (regsub #/-/ "." alias.address) + (regsub #/-/ "_" alias.address))) (:method get-decoded-memo (alias) (url-decode alias.memo)) (:method get-html-memo (alias) diff --git a/auth.txr b/auth.txr index 930021c..86cec41 100644 --- a/auth.txr +++ b/auth.txr @@ -1,19 +1,19 @@ @(do - (defun put-binary-str (str stream) - (let ((len (length str))) - (put-byte (trunc len 256) stream) - (put-byte (mod len 256) stream) - (put-string str stream))) + (defun put-binary-str (str stream) + (let ((len (length str))) + (put-byte (trunc len 256) stream) + (put-byte (mod len 256) stream) + (put-string str stream))) - (defun sasl-auth (user pass) - (let ((sock (open-socket af-unix sock-stream))) - (sock-connect sock (new sockaddr-un path sasl-sock)) - (put-binary-str user sock) - (put-binary-str pass sock) - (put-binary-str "" sock) - (put-binary-str "" sock) - (let ((response (get-string sock))) - (equal [response 2..4] "OK"))))) + (defun sasl-auth (user pass) + (let ((sock (open-socket af-unix sock-stream))) + (sock-connect sock (new sockaddr-un path sasl-sock)) + (put-binary-str user sock) + (put-binary-str pass sock) + (put-binary-str "" sock) + (put-binary-str "" sock) + (let ((response (get-string sock))) + (equal [response 2..4] "OK"))))) @(define auth (userid password)) @ (if (eq auth :sasl)) @ (require (sasl-auth userid password)) -- cgit v1.2.3