🚀 go-pugleaf

$BFqGH$G$9!#(B

Michiharu SHIIBA <shiiba@yodo.kuciv.kyoto-u.ac.jp> $B$5$s(B writes:

> $B4D6-JQ?t(B GNU_SERVE $B$K!"(B ~/.gnu_secure $B$N%U%k%Q%9L>$r@_Dj$7$?$i!"$&(B
> $B$^$/9T$-$^$7$?!#$I$&$b$"$j$,$H$&$4$6$$$^$7$?!#(B

$BCk4V=q$$$?5-;v$O$+$J$j$$$$$+$2$s$@$C$?$N$G(B
$B@hDx<+J,$N5-;v$K%U%)%m!<$r=q$$$?$N$G$9$,!":#$^$GEj9F$G$-$^$;$s$G$7$?!#(B
$B2r7h$5$l$?$h$&$G$h$+$C$?$G$9$M!#(B

$B0l1~$=$N%U%)%m!<$rE=$C$F$*$-$^$9!'(B

================
Seiichi Namba <sn@asahi-net.email.ne.jp> writes:

> ~/.gnu_sequre $B$O:n$j$^$7$?$+!#(B

$B<:Ni!#$3$l$O;d$N4D6-$KFCM-$N%U%!%$%k$G!J$7$+$b%?%$%W%_%9$@!K!"(B
$B%G%U%)%k%H$GFI$^$l$k%U%!%$%k$G$O$J$+$C$?$h$&$G$9$M!#;d$N(B .emacs $B$G$O(B

  (setenv "GNU_SECURE" (expand-file-name "~/.gnu_secure"))
  (require 'gnuserv)
  (gnuserv-start)

$B$3$&$7$F$"$j$^$7$?!#$3$N4D6-JQ?t$O!"%/%i%$%"%s%HB&$G$OITMW$J$h$&$J$N$G!"(B
emacs $B$NCf$@$1$G(B setenv() $B$7$F$$$^$9!#(B

> tcpip $B$G$N@\B3$,ITMW$J$i!"(Btcpip $B$N%5%]!<%H$r30$7$F$b(B
> $B$$$$$+$b$7$l$^$;$s!#(B

$B$I$&$bJ8>O$,E,Ev$G?=$7$o$1$"$j$^$;$s$G$7$?$,!"(B
$B$3$l$O(B config.h $B$G(B INTERNET_DOMAIN_SOCKETS $B$r(B undef $B$7$F(B
#define UNIX_DOMAIN_SOCKETS $B$N$_$K$9$l$PNI$+$C$?$H;W$$$^$9!#(B
localhost $B$N$_$+$i$N@\B3$7$+<u$1$J$/$J$j$^$9$,!">l9g$K$h$C$F$O(B
$B$3$NJ}$,9%$^$7$$$+$b$7$l$^$;$s$M!#(B

> PS.
> ~/.gnu_sequre $B$K$O%3%a%s%H$J$IM>7W$J;v$r=q$$$F$O$$$1$^$;$s!J$H5-21!K!#(B

$B$3$l$O$=$NDL$j$G$9!#(B

$B>e5-$N=t!9$K$D$$$F$O!"(Bgnuserv.1 $B$N@bL@$O$I$&$b$N$i$j$/$i$j$7$?J8>O$J$N(B
$B$G!"%=!<%9$rD>$KFI$s$@J}$,$h$/H=$k$+$b$7$l$^$;$s!#(B

# xauth $B$NJ}$OJ|$C$F$*$$$F$h$+$C$?$s$@$C$1$J!D!#(B
================

$B$D$$$G$K%7%'%k$+$i(B emacs $B$K2?$+$7$i$d$i$;$k$?$a$K(B
$B%/%i%$%"%s%H$H$7$F;H$C$F$$$k%9%/%j%W%H$bE=$C$F$*$-$^$9!#(B

$ cd ~/bin ; ls -l gnu* go
lrwxrwxrwx   1 root     root            7 Jun 25 10:44 gnucompile -> gnuopen
lrwxrwxrwx   1 sn       root            7 Jun 25 10:45 gnuloadit -> gnuopen
lrwxrwxrwx   1 root     root            7 Jun 25 10:44 gnunewdisp -> gnuopen
-rwx------   1 sn       root         1357 May 10 01:55 gnuopen
lrwxrwxrwx   1 root     root            7 Jun 25 10:44 gnuopen4 -> gnuopen
lrwxrwxrwx   1 root     root            7 Jun 25 10:44 gnuopen5 -> gnuopen
lrwxrwxrwx   1 sn       root            7 Jun 25 10:45 gnuw3fetch -> gnuopen
lrwxrwxrwx   1 sn       root            7 Jun 25 10:45 go -> gnuopen

$ cat gnuopen
#!/bin/ksh
expprog=/home/sn/bin/expand-fname  # Not so fast.
progn=`basename $0`
case $progn in
  gnuopen4)   ffcommand="find-file-other-window" ;;
  gnuopen5)   ffcommand="find-file-other-frame" ;;
  gnucompile) ffcommand="byte-compile-file" ;;
  gnunewdisp) ffcommand="make-frame-on-display" ;;
  gnuloadit)  ffcommand="load-file" ;;
  gnuw3fetch) ffcommand="w3-fetch" ;;
  *)          ffcommand="find-file" ;;
esac

opts=""
case $1 in
  -h) opts=$1 ; shift ; opts="$opts $1" ; shift ;;
esac

for i
do 
  if [ $ffcommand = make-frame-on-display ]
  then
    gnudoit $opts -q "(${ffcommand} \"${i}\" (if (string-match \"19.34\" emacs-version) (list (cons 'font \"14\")) nil))"
    gnudoit $opts -q "(setenv \"DISPLAY\" \"${i}\")"
  elif [ $ffcommand = w3-fetch ]
  then
    gnudoit $opts -q "(${ffcommand} \"${i}\")"
  else
    i=`${expprog} ${i}`
    gnudoit $opts -q "(${ffcommand} \"${i}\")"
  fi
done

19.34 $B$N(B mule $B$?$a$K2?$d$i=q$$$F$"$j$^$9$,!"(Bmake-frame-on-display() $B$O(B
$B$3$&$7$F$b$&$A$N(B 19.34 $B$G$O$^$H$b$KF0$+$J$+$C$?$h$&$K5-21$7$F$$$^$9!#(B

$B%*%W%7%g%s$O(B -h $B$7$+(B gnudoit $B$KEO$7$F$^$;$s!#(B