~localleader , -> 'SPC ,' and ivy-read -> completing-read

This commit is contained in:
dx
2020-05-24 00:36:43 +01:00
parent 3a7a9cdda0
commit 691205e7e3

View File

@@ -20,7 +20,7 @@ Load the literate.el file to start parsing.
- Using the font [[https://sourcefoundry.org/hack/][Hack]] - Using the font [[https://sourcefoundry.org/hack/][Hack]]
#+BEGIN_SRC elisp #+BEGIN_SRC elisp
(after! core-keybinds (after! core-keybinds
(setq doom-localleader-key ",") (setq doom-localleader-key "SPC ,")
(setq doom-theme 'doom-molokai) (setq doom-theme 'doom-molokai)
(setq doom-font (font-spec :family "Hack" :size 17))) (setq doom-font (font-spec :family "Hack" :size 17)))
#+END_SRC #+END_SRC
@@ -261,11 +261,7 @@ Emacs doesn't have the full range of styles that I want, so lemme just do it mys
(interactive) (interactive)
(let* ((tags-file (counsel-etags-locate-tags-file)) (let* ((tags-file (counsel-etags-locate-tags-file))
(cands (counsel-etags-collect-cands "void.*Test" t buffer-file-name))) (cands (counsel-etags-collect-cands "void.*Test" t buffer-file-name)))
(ivy-read (let ((item (completing-read "Choose test: " cands)))
"Choose test: "
cands
:action
(lambda (item)
;; From the counsel-etags file-open-api function ;; From the counsel-etags file-open-api function
(when (string-match "\\`\\(.*?\\):\\([0-9]+\\):\\(.*\\)\\'" item) (when (string-match "\\`\\(.*?\\):\\([0-9]+\\):\\(.*\\)\\'" item)
(let* (let*
@@ -273,12 +269,10 @@ Emacs doesn't have the full range of styles that I want, so lemme just do it mys
(linenum (match-string-no-properties 2 item)) (linenum (match-string-no-properties 2 item))
;; always calculate path relative to TAGS ;; always calculate path relative to TAGS
(default-directory (counsel-etags-tags-file-directory))) (default-directory (counsel-etags-tags-file-directory)))
(counsel-etags-push-marker-stack (point-marker)) (counsel-etags-push-marker-stack (point-marker))
(find-file file) (find-file file)
(counsel-etags-forward-line linenum) (counsel-etags-forward-line linenum)
(omnisharp-unit-test-at-point)))) (omnisharp-unit-test-at-point)))))))
:caller 'dx:csharp/get-unit-tests-in-project))))
#+END_SRC #+END_SRC
*** Redo omnisharp-emit-results *** Redo omnisharp-emit-results
- Reimplemented omnisharp-emit-results to emit stdout regardless of whether the - Reimplemented omnisharp-emit-results to emit stdout regardless of whether the