steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'emacs' of http://git.hacks-galore.org/jao/factor

db4
Slava Pestov 2009-08-10 16:20:14 -05:00
parent c473f59554 7d7a85e69a
commit 4b7185b61a
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/fuel/xref/xref.factor
View File

@ -36,8 +36,8 @@ MEMO: (vocab-words) ( name -- seq )
: current-words ( -- seq ) : current-words ( -- seq )
manifest get manifest get
[ search-vocabs>> ] [ qualified-vocabs>> ] bi [ words>> ] bi@ [ search-vocabs>> ] [ qualified-vocabs>> ] bi [ [ words>> ] map ] bi@
assoc-union keys ; append H{ } [ assoc-union ] reduce keys ;
: vocabs-words ( names -- seq ) : vocabs-words ( names -- seq )
prune [ (vocab-words) ] map concat ; prune [ (vocab-words) ] map concat ;

7
misc/fuel/fuel-log.el
View File

@ -1,6 +1,6 @@
;;; fuel-log.el -- logging utilities ;;; fuel-log.el -- logging utilities
;; Copyright (C) 2008 Jose Antonio Ortega Ruiz ;; Copyright (C) 2008, 2009 Jose Antonio Ortega Ruiz
;; See http://factorcode.org/license.txt for BSD license. ;; See http://factorcode.org/license.txt for BSD license.
;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org> ;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
@ -34,6 +34,9 @@
(defvar fuel-log--inhibit-p nil (defvar fuel-log--inhibit-p nil
"Set this to t to inhibit all log messages") "Set this to t to inhibit all log messages")
(defvar fuel-log--debug-p nil
"If t, all messages are logged no matter what")
(define-derived-mode factor-messages-mode fundamental-mode "FUEL Messages" (define-derived-mode factor-messages-mode fundamental-mode "FUEL Messages"
"Simple mode to log interactions with the factor listener" "Simple mode to log interactions with the factor listener"
(kill-all-local-variables) (kill-all-local-variables)
@ -55,7 +58,7 @@
(current-buffer)))) (current-buffer))))
(defun fuel-log--msg (type &rest args) (defun fuel-log--msg (type &rest args)
(unless fuel-log--inhibit-p (when (or fuel-log--debug-p (not fuel-log--inhibit-p))
(with-current-buffer (fuel-log--buffer) (with-current-buffer (fuel-log--buffer)
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(insert (insert