;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
(setq result (if raw (nth 3 elem)
(format "%s" (nth 3 elem)))))))
result))
-
+
(defun assistant-set-variable (node variable value)
(let ((variables (assistant-get-list node "variable"))
elem)
(setq elem (cadr elem))
(when (eq (intern variable) (car elem))
(setcar (nthcdr 3 elem) value)))))
-
+
(defun assistant-render-text (text node)
(unless (and text node)
- (gnus-error
- 5
+ (gnus-error
+ 5
"The assistant was asked to render invalid text or node data"))
(dolist (elem text)
(if (stringp elem)
(cadr type))
assistant-widgets))
(t
- (push
+ (push
(widget-create
'editable-field
:value-face 'assistant-field
(setq variable (cadr variable))
(let ((type (nth 1 variable))
(value (nth 3 variable)))
- (when
+ (when
(cond
((eq type :number)
(string-match "[^0-9]" value))
(setq applicable (cons elem applicable))))
;; return the first thing we can
-
+
(while (setq elem (pop applicable))
(push (cadr (cadr elem)) return))
(append (assistant-get-list node "variable")
variables)))
variables))
-
+
(defun assistant-eval (form)
(let ((bindings nil))
(dolist (variable (assistant-get-all-variables))
(setq variable (cadr variable))
- (push (list (car variable)
+ (push (list (car variable)
(if (eq (nth 3 variable) 'default)
nil
(if (listp (nth 3 variable))