fix: workaround org-drill bug

spacemacs-layers/joe/packages.el

@@ -203,9 +203,29 @@ If FORCE is non-nil, force recompilation even if files haven't changed."
                     )))
           (my:replace-or-add-to-alist 'org-publish-project-alist project))
         (joe/set-leader-keys
-         "cs" 'swift-plaques-compile)
+         "cs" 'swift-plaques-compile))
 
-        )
+      (defun my:work-around-org-window-drill-bug ()
+        "Comment out a troublesome line in `org-toggle-latex-fragment'.
+See
+https://bitbucket.org/eeeickythump/org-drill/issues/30/random-blank-buffer-2
+for details."
+        (save-excursion
+          (let ((org-library-location (concat (locate-library "org" 'nosuffix) ".el") ))
+            (with-current-buffer
+                (find-file-noselect org-library-location)
+              (goto-char (point-min))
+              (search-forward "(set-window-start nil window-start)")
+              (back-to-indentation)
+              (if (looking-at ";; ")
+                  (message "Already modified `org-toggle-latex-fragment' for `org-drill'")
+                (insert ";; ")
+                (save-buffer)
+                (byte-compile-file org-library-location)
+                (elisp--eval-defun)
+                (message "Modified `org-toggle-latex-fragment' for `org-drill'"))))))
+
+      (my:work-around-org-window-drill-bug)
 
       (defun my:make-org-link-cite-key-visible (&rest _)
         "Make the org-ref cite link visible in descriptive links."