Add monkeytype-load-words-from-file

Author: jpablobr

README.org

@@ -49,6 +49,7 @@ At this point you can either practice mistyped words with =monkeytype-mistyped-w
   - Practice mistyped words.
   - Practice troubling/hard key combinations/transitions (useful when practising with different keyboard layouts).
   - Mistyped words or hard transitions can be saved to =~/.monkeype/{words or transitions}= (see: =monkeytype-directory= =monkeytype-save-mistyped-words= =monkeytype-save-hard-transitions=).
+  - Saved mistyped/transitions files (or any file but defaults to =~/.monkeytype/= dir) can be loaded with =monkeytyped-load-words-from-file=.
   - Visual representation of typed text including errors and retries/corrections.
   - UI customisation.
   - Optionally randomise practice words/transitions (see: =monkeytype-randomize=).
@@ -89,6 +90,7 @@ This can then be enabled with a hook in your =.emacs=:
 |-------------+------------------------------------|
 |             | =monkeytype-region=                |
 |             | =monkeytype-buffer=                |
+|             | =monkeytype-load-words-from-file=  |
 |             | =monkeytype-region-as-words=       |
 | C-c C-c f   | =monkeytype-fortune=               |
 | C-c C-c p   | =monkeytype-pause=                 |

monkeytype.el

@@ -1114,6 +1114,28 @@ This is unless the char isn't a valid word character in `monkeytype-word-regexp'
     (with-temp-file path (insert transitions))
     (message "Monkeytype: Transitions saved successfully to file: %s" path)))
 
+;;;###autoload
+(defun monkeytype-load-words-from-file ()
+  "Prompt user to enter words-file to use for typing.
+
+Words will be randomized if `monkeytype-randomize' is set to true.
+Words will be downcased if `monkeytype-downcase' is set to true.
+Words special characters will get removed based on `monkeytype-word-regexp'.
+Buffer will be filled with the vale of `fill-column' if `monkeytype-auto-fill'
+is set to true.
+
+\\[monkeytype-load-words-from-file]"
+  (interactive)
+  (let* ((file-path (read-file-name "Enter words file:" monkeytype-directory))
+         (words (with-temp-buffer
+                  (insert-file-contents file-path)
+                  (buffer-string)))
+         (words (split-string words monkeytype-word-regexp t))
+         (words (mapconcat
+                 (lambda (word) (if monkeytype-downcase (downcase word) word))
+                 (if monkeytype-randomize (monkeytype--utils-nshuffle words) words) " ")))
+    (monkeytype--init words)))
+
 ;;;###autoload
 (defun monkeytype-region-as-words (start end)
   "Put the marked region from START to END in typing buffer.