emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix +eval/region failing on first invocation

Browse source
This commit is contained in:
Henrik Lissner 2017-05-08 10:46:11 +02:00
parent 6259c64866
commit 2405e1aa4c
2 changed files with 16 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

5
TODO.org
View file

@ -93,11 +93,12 @@
+ [ ] Fix invisible buffer-info in modeline for terminal Emacs + [ ] Fix invisible buffer-info in modeline for terminal Emacs
+ [ ] tools/upload: add ~+upload/open-remote-file~ command to open current file on the remote (with TRAMP) + [ ] tools/upload: add ~+upload/open-remote-file~ command to open current file on the remote (with TRAMP)
** 2.0.2 [54/58] ** 2.0.2 [55/58]
+ [ ] Update screenshots + [ ] Update screenshots
+ [ ] Fix ~+eval/region~ failing only on first invokation.
+ [ ] send-to-REPL workflow: does it still work? (see ~:repl~ & ~+eval/repl-send-region~) + [ ] send-to-REPL workflow: does it still work? (see ~:repl~ & ~+eval/repl-send-region~)
+ [ ] Fix ~0/0~ displaying in modeline (caused by leftover anzu state) + [ ] Fix ~0/0~ displaying in modeline (caused by leftover anzu state)
+ [X] Fix ~+eval/region~ failing only on first invocation.
Caused by ~+eval-runners-alist~ not being populated until quickrun is loaded.
+ [X] Fix: Neotree forgets it's a neotree window when switching perspectives + [X] Fix: Neotree forgets it's a neotree window when switching perspectives
+ +Restore neotree state on perspective switch+ + +Restore neotree state on perspective switch+
+ +Or close neotree before switching/creating perspectives+ + +Or close neotree before switching/creating perspectives+

25
modules/feature/eval/config.el
View file

@ -71,18 +71,19 @@ invokes the repl. Takes the same arguements as `rtog/add-repl'."
(quickrun-add-command MODE COMMAND :mode MODE). (quickrun-add-command MODE COMMAND :mode MODE).
4. If MODE is not a string and COMMANd is a symbol, add it to 4. If MODE is not a string and COMMANd is a symbol, add it to
`+eval-runners-alist', which is used by `+eval/region'." `+eval-runners-alist', which is used by `+eval/region'."
`(after! quickrun (cond ((symbolp command)
,(cond ((symbolp command) `(push ',(cons mode command) +eval-runners-alist))
`(push ',(cons mode command) +eval-runners-alist)) ((stringp command)
((stringp command) `(after! quickrun
`(push ',(cons mode command) (push ',(cons mode command)
,(if (stringp mode) ,(if (stringp mode)
'quickrun-file-alist 'quickrun-file-alist
'quickrun--major-mode-alist))) 'quickrun--major-mode-alist))))
((listp command) ((listp command)
`(quickrun-add-command `(after! quickrun
,(symbol-name mode) (quickrun-add-command
',command :mode ',mode))))) ,(symbol-name mode)
',command :mode ',mode)))))
(def-package! quickrun (def-package! quickrun
:commands (quickrun :commands (quickrun