Update forms

learning-irregular-verbs-in-English.el

@@ -60,7 +60,7 @@
 
 		 ))
 	(buffer-name "*Learning irregular verbs in English*")
-	(state 1) ;; 1: start, 2: check, 3: success
+	(state 1) ;; 1: start, 2: playing (before first check), 3: win
 	(verb-to-learn-infinitive nil)
 	(verb-to-learn-simple-past nil)
 	(verb-to-learn-past-participle nil)
@@ -74,11 +74,14 @@
 	(widget-field-past-participle nil)
 	(widget-label-check-past-participle nil)
 	(text-button-check "Check")
-	(widget-button nil)
+	(widget-button-check nil)
 	(widget-message-success nil)
+	(widget-item-space-before-success nil)
 	(text-success "Nice!")
+	(widget-item-space-after-success nil)
 	(widget-button-quit nil)
 	(text-button-quit "Quit")
+	(widget-item-space-between-buttons nil)
 	(widget-button-replay nil)
 	(text-button-replay "New challenge")
 	)
@@ -89,6 +92,11 @@
 
     ;; Functions
 
+    (defun kill-app ()
+      "Kill the application."
+      (interactive)
+      (kill-buffer buffer-name))
+
     (defun set-verb-to-learn ()
       "Set the verb to learn."
       (let ((verbs-random (nth (random (length verbs)) verbs)))
@@ -122,25 +130,53 @@
 
     (defun toggle-layout-success ()
       "Toggle the layout to success."
-      ;; Cursor to end
+      (if (eq state 3)
-      (goto-char (point-max))
+	  (progn
-      ;; Text success
+	    ;; Cursor to end
-      (setq widget-message-success (widget-create 'item
+	    (goto-char (point-max))
-						  text-success
+	    ;; Remove check button
-						  ))
+	    (widget-delete widget-button-check)
-      ;; Replay button
+	    (setq widget-button-check nil)
-      (setq widget-button-replay (widget-create 'push-button
+	    ;; Text success
-						:size 20
+	    (setq widget-item-space-before-success (widget-create 'item
-						:widget-push-button-prefix "\n\n%["
+								  ""))
-						:widget-push-button-suffix  "%]\n\n"
+	    (setq widget-message-success (widget-create 'item
-						:notify (lambda (&rest ignore)
+							text-success
-							  (start))
+							))
-						text-button-replay))
+	    (setq widget-item-space-after-success (widget-create 'item
-      ;; Quit button
+								 "\n"))
-      (setq widget-button-quit (widget-create 'push-button
+	    ;; Replay button
-					      :size 20
+	    (setq widget-button-replay (widget-create 'push-button
-					      :notify (lambda (&rest ignore))
+						      :size 20
-					      text-button-quit)))
+						      :notify (lambda (&rest ignore)
+								(replay))
+						      text-button-replay))
+	    ;; Space
+	    (setq widget-item-space-between-buttons (widget-create 'item
+								   "\n"))
+	    ;; Quit button
+	    (setq widget-button-quit (widget-create 'push-button
+						    :size 20
+						    :notify (lambda (&rest ignore)
+							      (kill-app))
+						    text-button-quit))
+	    (widget-backward 2)
+	    )
+	(progn
+	  (when (not (eq widget-item-space-before-success nil)) (widget-delete widget-item-space-before-success))
+	  (when (not (eq widget-message-success nil)) (widget-delete widget-message-success))
+	  (when (not (eq widget-item-space-after-success nil)) (widget-delete widget-item-space-after-success))
+	  (when (not (eq widget-button-replay nil)) (widget-delete widget-button-replay))
+	  (when (not (eq widget-item-space-between-buttons nil)) (widget-delete widget-item-space-between-buttons))
+	  (when (not (eq widget-button-quit nil)) (widget-delete widget-button-quit))
+	  )))
+
+    (defun make-button-check ()
+      "Make the button check."
+      (setq widget-button-check (widget-create 'push-button
+					 :notify (lambda (&rest ignore)
+						   (update))
+					 text-button-check)))
 
 
     (defun start ()
@@ -152,10 +188,21 @@
       (set-verb-to-learn)
       ;; Show the verb in infinitive
       (widget-value-set widget-item-verb (format-value-infinitive))
+      ;; Reset button check
+      (when (eq widget-button-check nil) (make-button-check))
+      ;; Clear the fields
+      (widget-value-set widget-field-simple-past "")
+      (widget-value-set widget-label-check-simple-past "")
+      (widget-value-set widget-field-past-participle "")
+      (widget-value-set widget-label-check-past-participle "")
       ;; Update labels
-      (update)
+      (update))
-      ;; Focus on the first field
+
-      (widget-forward 2))
+    (defun replay ()
+      "Replay the challenge."
+      (interactive)
+      (start)
+      (widget-backward 1))
 
     (defun update ()
       "Check the answers."
@@ -179,14 +226,8 @@
 	(widget-value-set widget-label-check-simple-past (format-check-simple-past))
 	(widget-value-set widget-label-check-past-participle (format-check-past-participle))
 	)
-      ;; Win
+      ;; Update the success layout if needed
-      (when (eq state 3)
+      (toggle-layout-success))
-	(toggle-layout-success)))
-
-    (defun kill-app ()
-      "Kill the application."
-      (interactive)
-      (kill-buffer buffer-name))
 
     (defun main-layout ()
       "Make widgets for the main layout."
@@ -226,20 +267,9 @@
       (setq widget-label-check-past-participle (widget-create 'item
 							      (format-check-past-participle)))
       ;; Separator
-      (insert "\n\n")
+      (insert "\n")
       ;; Check button
-      (setq widget-button (widget-create 'push-button
+      (make-button-check)
-					 :notify (lambda (&rest ignore)
-						   (update))
-					 text-button-check))
-      ;; Separator
-      (insert "\n\n")
-      (setq widget-message-success nil)
-      ;; Replay button
-      (setq widget-button-replay nil)
-      ;; Quit button
-      (setq widget-button-quit nil)
-
       ;; Display the buffer
       (use-local-map widget-keymap)
       (widget-setup))
@@ -250,6 +280,7 @@
     ;; Init
     (main-layout)
     (start)
+    (widget-backward 1)
     ))
 
 (provide 'learning-irregular-verbs-in-English)