[REBOL] Re: (x)emacs inferior mode
From: tim:johnsons-web at: 11-Mar-2004 7:45
* Volker Nitsch <[nitsch-lists--netcologne--de]> [040310 12:34]:
> Hi Tim,
Hi Volker;
> Am Montag, 8. M=E4rz 2004 00:01 schrieben Sie:
>
> I am interested in your inferior mode. That is executing a rebol-block in the
> interpreter? (what means OTL? "on" or"off list"?)
Yes. OTL = 'off list', unless we see a consensus to keep the thread
on the list. There is someone very knowledgable in Xemacs who
may want to be included.
I will CC you and Bryan soon.
Thanks!
Tim
> Maybe you are interested in some of my emacs-stuff too. i don't have real
> inferior, but can call rebol with the current script. and have more or less
> comfortable tagging.
>
> here are two rebol-helpers and a bit .emacs .
>
> --- %etags.r ---
>
> rebol[Purpose: {tag the buffers dir for *.el, *.cgi and *.r.
> last two for rebol}
> ]
> ;tags-file is ~/TAGS
> dir: first split-path to-file system/script/args
> .r: rejoin [
> { --regex="/.*\(\w\|-\)+:/" --regex="/.*set\ '\(\w\|-\)+/" } dir {*.r}
> ]
> .cgi: rejoin [
> { --regex="/.*\(\w\|-\)+:/" --regex="/.*set\ '\(\w\|-\)+/" } dir {*.cgi}
> ]
> call probe rejoin["etags " dir "*.el " .r .cgi]
>
> --- %emacs.r ---
>
> REBOL [Purpose: "call a script"
> Usage: {gets an filename. when a %emacs.r is in its dir, it is called.
> Otherwise the script itself}
> ]
> use[args dir file][
> if probe args: system/script/args[
> set[dir file] split-path args: to-file args
> either all[exists? dir/emacs.r dir <> what-dir][ =09
> do probe dir/emacs.r
> ][
> do probe args
> ]
> ]
> ]
>
> --- %.emacs ---
>
> ;i like this config:
> (server-start)
> (ffap-bindings)
> (iswitchb-mode t)
> (show-paren-mode 1)
>
> ;;; you need %etags.r
> ; rebview.sh is simply a wrapper to call rebol.
> (setq tags-file-name "~/TAGS")
> (defun etags () (interactive)
> (shell-command (concat "~/rebview.sh ~/etags.r "
> (buffer-file-name (current-buffer))))
> (visit-tags-table tags-file-name)
> )
>
> ;;; run script with "c-x w" you need %emacs.r
> ; rebview.sh is simply a wrapper to call rebol.
> (defun rebol () "" (interactive)
> (save-buffer) =09
> (shell-command
> (concat "~/rebview.sh ~/emacs.r "
> (buffer-file-name (current-buffer))"&"))
> (other-window 1))
> (global-set-key "\C-xw" 'rebol) ; the hotkey.
>
> ;;; and load rebol-formatting/colorizing
> (add-to-list 'auto-mode-alist '("\\.\\(r\\|pr\\|cgi\\)\\'" . rebol-mode))
> (autoload 'rebol-mode "~/emacs/rebol" "Turn on REBOL mode" t)
> (add-hook 'rebol-mode-hook 'turn-on-font-lock)
>
> > tim
> > (old vimmer, emacs newbie,
> > no editor wars please!)
> > --
> > Tim Johnson <[tim--johnsons-web--com]>
> > http://www.alaska-internet-solutions.com
>
> -Volker
>
> --
> To unsubscribe from this list, just send an email to
> [rebol-request--rebol--com] with unsubscribe as the subject.
--
Tim Johnson <[tim--johnsons-web--com]>
http://www.alaska-internet-solutions.com
