lisp/net/eudc.el

76 (defvar eudc-form-widget-list nil)
125 (defun eudc-plist-member (plist prop)
127   (if (not (= 0 (% (length plist) 2)))
128       (error "Malformed plist"))
130     (while plist
131       (if (eq prop (car plist))
133       (setq plist (cdr (cdr plist))))
136 ;; Emacs' plist-get lacks third parameter
137 (defun eudc-plist-get (plist prop &optional default)
143   (if (eudc-plist-member plist prop)
144       (plist-get plist prop)
147 (defun eudc-lax-plist-get (plist prop &optional default)
155   (if (not (= 0 (% (length plist) 2)))
156       (error "Malformed plist"))
158     (while plist
159       (if (equal prop (car plist))
160 	  (throw 'found (car (cdr plist))))
161       (setq plist (cdr (cdr plist))))
204   (eudc-plist-member (get var 'eudc-locals) 'server))
208   (eudc-plist-member (get var 'eudc-locals) 'protocol))
214        (plist-put (get var 'eudc-locals) 'default val))
224 	 (protocol-locals (eudc-plist-get eudc-locals 'protocol)))
225     (setq protocol-locals (plist-put protocol-locals (or protocol
228 	  (plist-put eudc-locals 'protocol protocol-locals))
241 	 (server-locals (eudc-plist-get eudc-locals 'server)))
242     (setq server-locals (plist-put server-locals (or server
245 	  (plist-put eudc-locals 'server server-locals))
270 	(eudc-plist-get eudc-locals 'default 'unbound)
281 		   (eudc-plist-member eudc-locals 'protocol)))
283       (setq protocol-locals (eudc-plist-get eudc-locals 'protocol))
284       (eudc-lax-plist-get protocol-locals
296 		  (eudc-plist-member eudc-locals 'server)))
298       (setq server-locals (eudc-plist-get eudc-locals 'server))
299       (eudc-lax-plist-get server-locals
522 	(widget-create 'push-button
526 	(widget-insert " ")
527 	(widget-create 'push-button
532 	(widget-setup)
540     (if (not (and (boundp 'eudc-form-widget-list)
541 		  eudc-form-widget-list))
545 		 (setq value (widget-value (cdr wid-field)))
549 	      eudc-form-widget-list)
699   (unless (or (member protocol
950 	widget
958     (make-local-variable 'eudc-form-widget-list)
959     (widget-insert "Directory Query Form\n")
960     (widget-insert "====================\n\n")
961     (widget-insert "Current server is: " (or eudc-server
966     (widget-insert "Protocol         : " (symbol-name eudc-protocol) "\n")
982     ;; Insert the first widget out of the mapcar to leave the cursor
984     (widget-insert "\n\n" (format (concat "%" (int-to-string width) "s: ") (car prompts)))
986     (setq widget (widget-create 'editable-field :size 15))
987     (setq eudc-form-widget-list (cons (cons (car fields) widget)
988 				      eudc-form-widget-list))
993 	       (widget-insert "\n\n" (format (concat "%" (int-to-string width) "s: ") (car prompts)))
994 	       (setq widget (widget-create 'editable-field
996 	       (setq eudc-form-widget-list (cons (cons field widget)
997 						 eudc-form-widget-list))
1000     (widget-insert "\n\n")
1001     (widget-create 'push-button
1005     (widget-insert " ")
1006     (widget-create 'push-button
1010     (widget-insert " ")
1011     (widget-create 'push-button
1016     (use-local-map widget-keymap)
1017     (widget-setup))
1023   (if (member (cons server protocol) eudc-server-hotlist)
1124 (set-keymap-parent eudc-mode-map widget-keymap)