init.scm 1.1 KB

12345678910111213141516171819202122232425262728293031323334
  1. ;;; init.scm --- Configuration file for Guile-Daemon
  2. ;; Copyright © 2016 Alex Kost <alezost@gmail.com>
  3. ;; This program is free software; you can redistribute it and/or modify
  4. ;; it under the terms of the GNU General Public License as published by
  5. ;; the Free Software Foundation, either version 3 of the License, or
  6. ;; (at your option) any later version.
  7. ;;
  8. ;; This program is distributed in the hope that it will be useful,
  9. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  11. ;; GNU General Public License for more details.
  12. ;;
  13. ;; You should have received a copy of the GNU General Public License
  14. ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
  15. ;;; Commentary:
  16. ;; This file is symlinked by "~/.config/guile-daemon/init.scm".
  17. ;;; Code:
  18. (use-modules
  19. (al utils)) ; for push!
  20. (let ((modules (string-append (dirname (current-filename))
  21. "/modules")))
  22. (push! modules %load-path))
  23. (set-current-module (resolve-module '(daemon-config)))
  24. ;; init.scm ends here