irestrain pledge in kiosk mode - clic - Clic is an command line interactive client for gopher written in Common LISP	Err	bitreich.org	70
hgit clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/	URL:git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/	bitreich.org	70
1Log	/scm/clic/log.gph	bitreich.org	70
1Files	/scm/clic/files.gph	bitreich.org	70
1Refs	/scm/clic/refs.gph	bitreich.org	70
1Tags	/scm/clic/tag	bitreich.org	70
1README	/scm/clic/file/README.md.gph	bitreich.org	70
1LICENSE	/scm/clic/file/LICENSE.gph	bitreich.org	70
i---	Err	bitreich.org	70
1commit be4bf91b222d03b0de1c9c83ab2afccbfa41dc28	/scm/clic/commit/be4bf91b222d03b0de1c9c83ab2afccbfa41dc28.gph	bitreich.org	70
1parent 2f63cd38c68eee0baa1493d432a295f4009136af	/scm/clic/commit/2f63cd38c68eee0baa1493d432a295f4009136af.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Thu, 21 Jun 2018 10:53:10 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
irestrain pledge in kiosk mode	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M clic.lisp                           |       8 ++++++++	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 8 insertions(+), 0 deletions(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/clic.lisp b/clic.lisp	/scm/clic/file/clic.lisp.gph	bitreich.org	70
i@@ -16,6 +16,10 @@	Err	bitreich.org	70
i     void gotoPledge() {	Err	bitreich.org	70
i        pledge(\"dns inet stdio rpath tty wpath cpath proc exec\",NULL);	Err	bitreich.org	70
i     }	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+    void kioskPledge() {	Err	bitreich.org	70
i+       pledge(\"dns inet stdio tty rpath\",NULL);	Err	bitreich.org	70
i+    }	Err	bitreich.org	70
i     #endif	Err	bitreich.org	70
i 	Err	bitreich.org	70
i     int ttyPredicate() {	Err	bitreich.org	70
i@@ -24,6 +28,9 @@	Err	bitreich.org	70
i       struct winsize w;	Err	bitreich.org	70
i       return ioctl(1,TIOCGWINSZ,&w)<0?UINT_MAX:w.ws_row;}")	Err	bitreich.org	70
i   (ffi:def-function	Err	bitreich.org	70
i+      ("kioskPledge" c-kiosk-pledge)	Err	bitreich.org	70
i+      () :returning :void)	Err	bitreich.org	70
i+  (ffi:def-function	Err	bitreich.org	70
i       ("gotoPledge" c-pledge)	Err	bitreich.org	70
i       () :returning :void)	Err	bitreich.org	70
i   (ffi:def-function	Err	bitreich.org	70
i@@ -410,6 +417,7 @@	Err	bitreich.org	70
i          (quit))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         ((string= "-k" url)	Err	bitreich.org	70
i+         (c-kiosk-pledge)	Err	bitreich.org	70
i          (setf *kiosk-mode* t))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         ((= 0 (or (search "file://" url) 1))	Err	bitreich.org	70
.