me
/
guix
Archived
1
0
Fork 0
Code

services: bitlbee: Support libpurple plugins. 

* gnu/services/messaging.scm (bitlbee-shepherd-service): Pass
PURPLE_PLUGIN_PATH as #:environment-variables.
master
Ludovic Courtès 2020-09-15 12:30:39 +02:00 committed by Ludovic Courtès
parent 6e05adbb8f
commit 1b157bbef0
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/services/messaging.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017, 2018 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2017, 2018 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2015, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Pierre-Antoine Rouby <contact@parouby.fr> ;;; Copyright © 2018 Pierre-Antoine Rouby <contact@parouby.fr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -813,14 +813,15 @@ string, you could instantiate a prosody service like this:
(match-lambda (match-lambda
(($ <bitlbee-configuration> bitlbee interface port (($ <bitlbee-configuration> bitlbee interface port
plugins extra-settings) plugins extra-settings)
(let ((conf (mixed-text-file "bitlbee.conf" (let* ((plugins (directory-union "bitlbee-plugins" plugins))
(conf (mixed-text-file "bitlbee.conf"
" "
[settings] [settings]
User = bitlbee User = bitlbee
ConfigDir = /var/lib/bitlbee ConfigDir = /var/lib/bitlbee
DaemonInterface = " interface " DaemonInterface = " interface "
DaemonPort = " (number->string port) " DaemonPort = " (number->string port) "
PluginDir = " (directory-union "bitlbee-plugins" plugins) "/lib/bitlbee PluginDir = " plugins "/lib/bitlbee
" extra-settings))) " extra-settings)))
(with-imported-modules (source-module-closure (with-imported-modules (source-module-closure
@ -840,6 +841,11 @@ string, you could instantiate a prosody service like this:
(list #$(file-append bitlbee "/sbin/bitlbee") (list #$(file-append bitlbee "/sbin/bitlbee")
"-n" "-F" "-u" "bitlbee" "-c" #$conf) "-n" "-F" "-u" "bitlbee" "-c" #$conf)
;; Allow 'bitlbee-purple' to use libpurple plugins.
#:environment-variables
(list (string-append "PURPLE_PLUGIN_PATH="
#$plugins "/lib/purple-2"))
#:pid-file "/var/run/bitlbee.pid" #:pid-file "/var/run/bitlbee.pid"
#:mappings (list (file-system-mapping #:mappings (list (file-system-mapping
(source "/var/lib/bitlbee") (source "/var/lib/bitlbee")