mirror of git://git.savannah.gnu.org/guix.git
99 lines
3.3 KiB
EmacsLisp
99 lines
3.3 KiB
EmacsLisp
;;; guix-guile.el --- Auxiliary tools for working with guile code -*- lexical-binding: t -*-
|
|
|
|
;; Copyright © 2015 Alex Kost <alezost@gmail.com>
|
|
|
|
;; This file is part of GNU Guix.
|
|
|
|
;; GNU Guix is free software; you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; GNU Guix is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;; This file provides functions for parsing guile code, making guile
|
|
;; expressions, etc.
|
|
|
|
;;; Code:
|
|
|
|
(require 'geiser-guile)
|
|
|
|
(defvar guix-guile-definition-regexp
|
|
(rx bol "(define"
|
|
(zero-or-one "*")
|
|
(zero-or-one "-public")
|
|
(one-or-more space)
|
|
(zero-or-one "(")
|
|
(group (one-or-more (or word (syntax symbol)))))
|
|
"Regexp used to find the guile definition.")
|
|
|
|
(defun guix-guile-current-definition ()
|
|
"Return string with name of the current top-level guile definition."
|
|
(save-excursion
|
|
(beginning-of-defun)
|
|
(if (looking-at guix-guile-definition-regexp)
|
|
(match-string-no-properties 1)
|
|
(error "Couldn't find the current definition"))))
|
|
|
|
(defun guix-guile-current-module ()
|
|
"Return a string with the current guile module.
|
|
Return nil, if current buffer does not define a module."
|
|
;; Modified version of `geiser-guile--get-module'.
|
|
(save-excursion
|
|
(geiser-syntax--pop-to-top)
|
|
(when (or (re-search-backward geiser-guile--module-re nil t)
|
|
(looking-at geiser-guile--library-re)
|
|
(re-search-forward geiser-guile--module-re nil t))
|
|
(match-string-no-properties 1))))
|
|
|
|
(defun guix-guile-boolean (arg)
|
|
"Return a string with guile boolean value.
|
|
Transform elisp ARG (nil or non-nil) to the guile boolean (#f or #t)."
|
|
(if arg "#t" "#f"))
|
|
|
|
(defun guix-guile-keyword-regexp (keyword)
|
|
"Return regexp to find guile KEYWORD."
|
|
(format "(\\(%s\\)\\_>" keyword))
|
|
|
|
(defun guix-guile-make-call-expression (proc &rest args)
|
|
"Return \"(PROC ARGS ...)\" string.
|
|
PROC and ARGS should be strings."
|
|
(format "(%s %s)"
|
|
proc
|
|
(mapconcat #'identity args " ")))
|
|
|
|
(defun guix-make-guile-expression (fun &rest args)
|
|
"Return string containing a guile expression for calling FUN with ARGS."
|
|
(format "(%S %s)" fun
|
|
(mapconcat
|
|
(lambda (arg)
|
|
(cond
|
|
((null arg) "'()")
|
|
((or (eq arg t)
|
|
;; An ugly hack to separate 'false' from nil.
|
|
(equal arg 'f)
|
|
(keywordp arg))
|
|
(concat "#" (prin1-to-string arg t)))
|
|
((or (symbolp arg) (listp arg))
|
|
(concat "'" (prin1-to-string arg)))
|
|
(t (prin1-to-string arg))))
|
|
args
|
|
" ")))
|
|
|
|
(defun guix-guile-prompt? (string)
|
|
"Return non-nil, if STRING contains a Guile prompt."
|
|
(or (string-match-p geiser-guile--prompt-regexp string)
|
|
(string-match-p geiser-guile--debugger-prompt-regexp string)))
|
|
|
|
(provide 'guix-guile)
|
|
|
|
;;; guix-guile.el ends here
|