jadedctrl/ secrettabero
Archived
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Activity

Use package-prefixes for non-base libraries

This commit is contained in:
Jaidyn Ann 2023-04-19 11:03:44 -05:00
parent bbc45c527e
commit 75949d1a94
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
secrettabero.scm
View File

@ -15,7 +15,10 @@
;; along with this program. If not, see <https://www.gnu.org/licenses/>. ;; along with this program. If not, see <https://www.gnu.org/licenses/>.
;; ;;
(import (chicken io) srfi-13 (prefix dbus dbus:) sxml-serializer) (import (chicken io)
(prefix srfi-13 13:)
(prefix dbus dbus:)
(prefix sxml-serializer sxml:))
;; Debugging ;; Debugging
@ -39,8 +42,8 @@
(string-append (string-append
"<!DOCTYPE node PUBLIC \"-//freedesktop//DTD D-BUS Object Introspection 1.0//EN\" "<!DOCTYPE node PUBLIC \"-//freedesktop//DTD D-BUS Object Introspection 1.0//EN\"
\"http://www.freedesktop.org/standards/dbus/1.0/introspect.dtd\">\n\n" \"http://www.freedesktop.org/standards/dbus/1.0/introspect.dtd\">\n\n"
(serialize-sxml (introspect-node-sxml interfaces subnodes) (sxml:serialize-sxml (introspect-node-sxml interfaces subnodes)
#f))) #f)))
;; Generate a node's list containing the given interfaces, for use with SXML for ;; Generate a node's list containing the given interfaces, for use with SXML for
@ -155,10 +158,10 @@
(syntax-rules () (syntax-rules ()
[(handle-peers-for-path node-path) [(handle-peers-for-path node-path)
(let ([machine-id (let ([machine-id
(string-delete #\newline (13:string-delete #\newline
(call-with-input-file "/var/lib/dbus/machine-id" (call-with-input-file "/var/lib/dbus/machine-id"
(lambda (in-port) (lambda (in-port)
(read-string #f in-port))))] (read-string #f in-port))))]
[context [context
(dbus:make-context bus: dbus:session-bus (dbus:make-context bus: dbus:session-bus
service: 'org.jadedctrl.secrettabero service: 'org.jadedctrl.secrettabero