Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Christophe Rhodes
swankr
Commits
fdb4f4d7
Commit
fdb4f4d7
authored
Jan 11, 2014
by
Christophe Rhodes
Browse files
`swank:describe-function` and `swank:describe-symbol` implementations
from Philipp Marek, about an eternity ago.
parent
22705b4a
Changes
2
Show whitespace changes
Inline
Side-by-side
swank-media.R
View file @
fdb4f4d7
...
...
@@ -42,9 +42,7 @@ makeMediaReplResult.matrix <- function(value) {
}
makeMediaReplResult.help_files_with_topic
<-
function
(
value
)
{
output
<-
capture.output
(
tools
:::
Rd2txt
(
utils
:::
.getHelpFile
(
value
),
options
=
list
(
underline_titles
=
FALSE
)))
string
<-
paste
(
output
,
collapse
=
"\n"
)
string
<-
helpFilesWithTopicString
(
value
)
list
(
quote
(
`:popup-buffer`
),
sprintf
(
"*slime-help(%s)*"
,
attr
(
value
,
"topic"
)),
string
,
quote
(
`ess-help-mode`
))
}
...
...
swank.R
View file @
fdb4f4d7
...
...
@@ -361,6 +361,22 @@ sendReplResultFunction <- sendReplResult
}
}
`swank:describe-function`
<-
function
(
slimeConnection
,
sldbState
,
op
,
package
)
{
## FIXME: maybe not the best match?
`swank:operator-arglist`
(
slimeConnection
,
sldbState
,
op
,
package
)
}
helpFilesWithTopicString
<-
function
(
value
)
{
output
<-
capture.output
(
tools
:::
Rd2txt
(
utils
:::
.getHelpFile
(
value
),
options
=
list
(
underline_titles
=
FALSE
)))
paste
(
output
,
collapse
=
"\n"
)
}
`swank:describe-symbol`
<-
function
(
slimeConnection
,
sldbState
,
op
,
package
)
{
value
<-
help
(
op
)
helpFilesWithTopicString
(
value
)
}
`swank:throw-to-toplevel`
<-
function
(
slimeConnection
,
sldbState
)
{
condition
<-
simpleCondition
(
"Throw to toplevel"
)
class
(
condition
)
<-
c
(
"swankTopLevel"
,
class
(
condition
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment