projects
/
rrq
/
lsp-utils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added
[rrq/lsp-utils.git]
/
lsp-dbus
/
lsp-dbus.lsp
diff --git
a/lsp-dbus/lsp-dbus.lsp
b/lsp-dbus/lsp-dbus.lsp
index 8a4f7c47d2ee07524b7ac74c04dd7f40a15fc23a..a8109981268bc9e61fdc1dfb03c602ee529a78f3 100644
(file)
--- a/
lsp-dbus/lsp-dbus.lsp
+++ b/
lsp-dbus/lsp-dbus.lsp
@@
-69,6
+69,10
@@
(define (Dbus:Dbus PATH (NAME (replace "/" (1 PATH) ".")) (BUS 'SYSTEM-BUS))
(list (context) PATH NAME BUS))
(define (Dbus:Dbus PATH (NAME (replace "/" (1 PATH) ".")) (BUS 'SYSTEM-BUS))
(list (context) PATH NAME BUS))
+;; Method to clone a proxy for a given path/object.
+(define (new-path PATH)
+ (list (context) PATH (%name) (%bus)))
+
;; Update the connection serial and return it
(define (connection++)
(case (%bus)
;; Update the connection serial and return it
(define (connection++)
(case (%bus)