Skip to content

Reduce amount of dependencies #7

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Reduce amount of dependencies #7

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
24 changes: 8 additions & 16 deletions stm32.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -66,28 +66,20 @@

(require 'gdb-mi)
(require 'gud)
(require 'friendly-shell-command)
(require 'projectile)
(require 'helm)
(require 's)



(defun stm32--select-file (root filter)
"Select file using helm in ROOT directory and find by FILTER."
(let* ((out (s-split
"\n"
(friendly-shell-command-to-string
(s-concat "find . -type f -name '" filter "'")
:path root)))
(files (delete "" out)))
(let ((files (directory-files-recursively root filter)))
(if (> (length files) 0)
(helm :sources (helm-build-sync-source (concat "Select " filter)
:candidates files
:fuzzy-match t)
:buffer "*helm find stm32*"
:case-fold-search helm-file-name-case-fold-search)
(user-error "No matching files"))))
(user-error "No matching files %s in %s" filter root))))

(defun stm32--close-process-buffer (process signal)
"Close process buffer when PROCESS sends exit SIGNAL."
Expand Down Expand Up @@ -125,8 +117,8 @@
(let ((root (projectile-project-root))
(buffer-name "*stm32-gdb-server*"))
(when 'root
(let* ((file (stm32--select-file root "*.cfg"))
(cmd (concat stm32-openocd-command " -f " (concat root file)))
(let* ((file (stm32--select-file root "\.cfg$"))
(cmd (concat stm32-openocd-command " -f " file))
(output-buffer (generate-new-buffer buffer-name)))
(when file
(async-shell-command cmd
Expand All @@ -145,10 +137,10 @@
(server-started (when (not p)
(stm32-start-gdb-server))))
(when (and 'root 'server-started)
(let ((file (stm32--select-file root "*.elf")))
(let ((file (stm32--select-file root "\.elf$")))
(when file
(save-window-excursion
(gdb (s-concat stm32-gdb-command " " (concat root file)))))))))
(gdb (concat stm32-gdb-command " " file))))))))

(defun stm32-flash-to-mcu ()
"Upload compiled binary to stm32 through gdb if gdb has been started."
Expand Down Expand Up @@ -192,9 +184,9 @@
(save-window-excursion
(let ((root (projectile-project-root)))
(if root
(let ((file (stm32--select-file root "*.ioc")))
(let ((file (stm32--select-file root "\.ioc$")))
(if file
(stm32--start-cubemx (concat root file))
(stm32--start-cubemx file)
(stm32--start-cubemx)))
(stm32--start-cubemx)))))

Expand Down