/[hyperdoc]/src/slime.patch
ViewVC logotype

Contents of /src/slime.patch

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (show annotations) (vendor branch)
Mon Nov 17 15:28:47 2003 UTC (10 years, 5 months ago) by nsiivola
Branch: nikodemus
CVS Tags: initial
Changes since 1.1: +0 -0 lines
Initial import.
1 ? slime.patch
2 Index: slime.el
3 ===================================================================
4 RCS file: /project/slime/cvsroot/slime/slime.el,v
5 retrieving revision 1.91
6 diff -u -r1.91 slime.el
7 --- slime.el 13 Nov 2003 22:42:08 -0000 1.91
8 +++ slime.el 14 Nov 2003 18:51:42 -0000
9 @@ -56,7 +56,8 @@
10 (require 'cl)
11 (require 'pp)
12 (require 'hideshow)
13 -(require 'hyperspec)
14 +(require 'browse-url)
15 +;(require 'hyperspec)
16 (require 'font-lock)
17 (when (featurep 'xemacs)
18 (require 'overlay))
19 @@ -368,7 +369,7 @@
20 ("\C-m" slime-macroexpand-1 :prefixed t :inferior t)
21 ("\M-m" slime-macroexpand-all :prefixed t :inferior t)
22 ("\M-0" slime-restore-window-configuration :prefixed t :inferior t)
23 - ("\C-h" hyperspec-lookup :prefixed t :inferior t :sldb t)
24 + ("\C-h" slime-hyperdoc-key :prefixed t :inferior t :sldb t)
25 ([(control meta ?\.)] slime-next-location :inferior t)
26 ("\C- " slime-next-location :prefixed t :inferior t)
27 ("~" slime-sync-package-and-default-directory :prefixed t :inferior t)
28 @@ -4135,6 +4136,19 @@
29 (funcall (get-text-property (point) 'point-entered))))
30
31
32 +;;; Hyperdoc
33 +(defun slime-hyperdoc-key ()
34 + (interactive)
35 + (slime-hyperdoc (symbol-name (slime-function-called-at-point/line))))
36 +
37 +(defun slime-hyperdoc (symbol-name)
38 + (interactive (list (slime-read-symbol "Hyperdoc for: ")))
39 + (slime-eval-async
40 + `(swank:hyperdoc ,symbol-name)
41 + (slime-buffer-package)
42 + (lambda (uri)
43 + (browse-url uri))))
44 +
45 ;;; Finishing up
46
47 (run-hooks 'slime-load-hook)
48 Index: swank-sbcl.lisp
49 ===================================================================
50 RCS file: /project/slime/cvsroot/slime/swank-sbcl.lisp,v
51 retrieving revision 1.22
52 diff -u -r1.22 swank-sbcl.lisp
53 --- swank-sbcl.lisp 13 Nov 2003 00:36:56 -0000 1.22
54 +++ swank-sbcl.lisp 14 Nov 2003 18:51:42 -0000
55 @@ -38,8 +38,10 @@
56 ;;; Administrivia
57
58 (eval-when (:compile-toplevel :load-toplevel :execute)
59 + (require :asdf)
60 (require 'sb-bsd-sockets)
61 - (require 'sb-introspect))
62 + (require 'sb-introspect)
63 + (require 'hyperdoc))
64
65 (declaim (optimize (debug 3)))
66 (in-package :swank)
67 @@ -649,6 +651,10 @@
68
69 (defslimefun sldb-abort ()
70 (invoke-restart (find 'abort *sldb-restarts* :key #'restart-name)))
71 +
72 +;;; Hax
73 +(defslimefun hyperdoc (name)
74 + (hyperdoc:lookup (find-symbol-designator name *buffer-package*)))
75
76 ;;; Local Variables:
77 ;;; eval: (font-lock-add-keywords 'lisp-mode '(("(\\(defslimefun\\)\\s +\\(\\(\\w\\|\\s_\\)+\\)" (1 font-lock-keyword-face) (2 font-lock-function-name-face))))
78 Index: swank.lisp
79 ===================================================================
80 RCS file: /project/slime/cvsroot/slime/swank.lisp,v
81 retrieving revision 1.57
82 diff -u -r1.57 swank.lisp
83 --- swank.lisp 13 Nov 2003 00:22:01 -0000 1.57
84 +++ swank.lisp 14 Nov 2003 18:51:43 -0000
85 @@ -518,7 +518,6 @@
86 (defslimefun throw-to-toplevel ()
87 (throw 'slime-toplevel nil))
88
89 -
90 ;;; Local Variables:
91 ;;; eval: (font-lock-add-keywords 'lisp-mode '(("(\\(defslimefun\\)\\s +\\(\\(\\w\\|\\s_\\)+\\)" (1 font-lock-keyword-face) (2 font-lock-function-name-face))))
92 ;;; End:

  ViewVC Help
Powered by ViewVC 1.1.5