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

Emacs factor mode: defun and sexp navigation are aware of word definition syntax.

db4
Jose A. Ortega Ruiz 2008-11-24 10:18:47 +01:00
parent 1fc2d4afbd
commit 47ef542e92
1 changed files with 20 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
misc/factor.el
View File

@ -204,7 +204,7 @@ buffer."
(defconst factor--regex-using-line "^USING: +\\([^;]*\\);") (defconst factor--regex-using-line "^USING: +\\([^;]*\\);")
(defconst factor--regex-use-line "^USE: +\\(.*\\)$") (defconst factor--regex-use-line "^USE: +\\(.*\\)$")
(defconst factor-font-lock-keywords (defconst factor--font-lock-keywords
`(("( .* )" . 'factor-font-lock-stack-effect) `(("( .* )" . 'factor-font-lock-stack-effect)
("\\(P\\|SBUF\\)\"" 1 'factor-font-lock-parsing-word) ("\\(P\\|SBUF\\)\"" 1 'factor-font-lock-parsing-word)
,@(mapcar #'(lambda (w) (cons (concat "\\(^\\| \\)\\(" w "\\)\\($\\| \\)") ,@(mapcar #'(lambda (w) (cons (concat "\\(^\\| \\)\\(" w "\\)\\($\\| \\)")
@ -502,17 +502,25 @@ buffer."
(use-local-map factor-mode-map) (use-local-map factor-mode-map)
(setq major-mode 'factor-mode) (setq major-mode 'factor-mode)
(setq mode-name "Factor") (setq mode-name "Factor")
;; Font locking
(set (make-local-variable 'comment-start) "! ") (set (make-local-variable 'comment-start) "! ")
(set (make-local-variable 'parse-sexp-lookup-properties) t)
(set (make-local-variable 'font-lock-comment-face) 'factor-font-lock-comment) (set (make-local-variable 'font-lock-comment-face) 'factor-font-lock-comment)
(set (make-local-variable 'font-lock-string-face) 'factor-font-lock-string) (set (make-local-variable 'font-lock-string-face) 'factor-font-lock-string)
(set (make-local-variable 'font-lock-defaults) (set (make-local-variable 'font-lock-defaults)
`(factor-font-lock-keywords `(factor--font-lock-keywords
nil nil nil nil nil nil nil nil
(font-lock-syntactic-keywords . ,factor--font-lock-syntactic-keywords))) (font-lock-syntactic-keywords . ,factor--font-lock-syntactic-keywords)))
(set-syntax-table factor-mode-syntax-table) (set-syntax-table factor-mode-syntax-table)
;; Defun navigation
(setq defun-prompt-regexp "[^ :]+")
(set (make-local-variable 'open-paren-in-column-0-is-defun-start) t)
;; Indentation
(set (make-local-variable 'indent-line-function) 'factor--indent-line) (set (make-local-variable 'indent-line-function) 'factor--indent-line)
(setq factor-indent-width (factor--guess-indent-width)) (setq factor-indent-width (factor--guess-indent-width))
(setq indent-tabs-mode nil) (setq indent-tabs-mode nil)
(run-hooks 'factor-mode-hook)) (run-hooks 'factor-mode-hook))
(add-to-list 'auto-mode-alist '("\\.factor\\'" . factor-mode)) (add-to-list 'auto-mode-alist '("\\.factor\\'" . factor-mode))
@ -568,6 +576,7 @@ buffer."
"Generic word contract" "Generic word contract"
"Inputs and outputs" "Inputs and outputs"
"Parent topics:" "Parent topics:"
"See also"
"Syntax" "Syntax"
"Vocabulary" "Vocabulary"
"Warning" "Warning"
@ -578,7 +587,7 @@ buffer."
(defconst factor--help-font-lock-keywords (defconst factor--help-font-lock-keywords
`((,factor--help-headlines-regexp . 'factor-font-lock-help-mode-headlines) `((,factor--help-headlines-regexp . 'factor-font-lock-help-mode-headlines)
,@factor-font-lock-keywords)) ,@factor--font-lock-keywords))
(defun factor-help-mode () (defun factor-help-mode ()
"Major mode for displaying Factor help messages. "Major mode for displaying Factor help messages.
@ -591,6 +600,7 @@ buffer."
(set (make-local-variable 'font-lock-defaults) (set (make-local-variable 'font-lock-defaults)
'(factor--help-font-lock-keywords t nil nil nil)) '(factor--help-font-lock-keywords t nil nil nil))
(set (make-local-variable 'comint-redirect-subvert-readonly) t) (set (make-local-variable 'comint-redirect-subvert-readonly) t)
(set (make-local-variable 'comint-redirect-echo-input) nil)
(set (make-local-variable 'view-no-disable-on-exit) t) (set (make-local-variable 'view-no-disable-on-exit) t)
(view-mode) (view-mode)
(setq view-exit-action (setq view-exit-action
@ -602,11 +612,11 @@ buffer."
(run-mode-hooks 'factor-help-mode-hook)) (run-mode-hooks 'factor-help-mode-hook))
(defun factor--listener-help-buffer () (defun factor--listener-help-buffer ()
(set-buffer (get-buffer-create "*factor-help*")) (with-current-buffer (get-buffer-create "*factor-help*")
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(delete-region (point-min) (point-max))) (delete-region (point-min) (point-max)))
(factor-help-mode) (factor-help-mode)
(current-buffer)) (current-buffer)))
(defvar factor--help-history nil) (defvar factor--help-history nil)
@ -622,7 +632,8 @@ buffer."
(hb (factor--listener-help-buffer)) (hb (factor--listener-help-buffer))
(proc (factor--listener-process))) (proc (factor--listener-process)))
(comint-redirect-send-command-to-process cmd hb proc nil) (comint-redirect-send-command-to-process cmd hb proc nil)
(pop-to-buffer hb))) (pop-to-buffer hb)
(beginning-of-buffer hb)))
(defun factor-see () (defun factor-see ()
(interactive) (interactive)