Add pub commands

Author: ericdallo

lsp-dart-commands.el

@@ -0,0 +1,90 @@
+;;; lsp-dart-commands.el --- LSP dart commands -*- lexical-binding: t; -*-
+;;
+;; Copyright (C) 2020 Eric Dallo
+;;
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+;;
+;;; Commentary:
+;;
+;;  LSP dart commands
+;;
+;;; Code:
+
+(require 'lsp-dart-utils)
+
+(defconst lsp-dart-commands-buffer-name "*LSP Dart commands*")
+
+(defun lsp-dart--run-command (command args)
+  "Run COMMAND with ARGS from the project root."
+  (lsp-dart-from-project-root
+   (compilation-start (format "%s %s" command args)
+                      t
+                      (lambda (_) lsp-dart-commands-buffer-name))))
+
+(defun lsp-dart--pub-get ()
+  "Run `pub get` from the root project."
+  (lsp-dart--run-command (lsp-dart-pub-command) "get"))
+
+(defun lsp-dart--flutter-pub-get ()
+  "Run `flutter pub get` from the root project."
+  (lsp-dart--run-command (lsp-dart-flutter-command) "pub get"))
+
+(defun lsp-dart--pub-upgrade ()
+  "Run `pub upgrade` from the root project."
+  (lsp-dart--run-command (lsp-dart-pub-command) "upgrade"))
+
+(defun lsp-dart--flutter-pub-upgrade ()
+  "Run `flutter pub upgrade` from the root project."
+  (lsp-dart--run-command (lsp-dart-flutter-command) "pub upgrade"))
+
+(defun lsp-dart--pub-outdated ()
+  "Run `pub outdated` from the root project."
+  (lsp-dart--run-command (lsp-dart-pub-command) "outdated"))
+
+(defun lsp-dart--flutter-pub-outdated ()
+  "Run `flutter pub outdated` from the root project."
+  (lsp-dart--run-command (lsp-dart-flutter-command) "pub outdated"))
+
+;;;###autoload
+(defun lsp-dart-pub-get ()
+  "Run pub get on a Dart or Flutter project.
+If it is Flutter project, run `flutter pub get` otherwise run
+`pub get`."
+  (interactive)
+  (if (lsp-dart--flutter-project-p)
+      (lsp-dart--flutter-pub-get)
+    (lsp-dart--pub-get)))
+
+;;;###autoload
+(defun lsp-dart-pub-upgrade ()
+  "Run pub upgrade on a Dart or Flutter project.
+If it is Flutter project, run `flutter pub upgrade` otherwise run
+`pub upgrade`."
+  (interactive)
+  (if (lsp-dart--flutter-project-p)
+      (lsp-dart--flutter-pub-upgrade)
+    (lsp-dart--pub-upgrade)))
+
+;;;###autoload
+(defun lsp-dart-pub-outdated ()
+  "Run pub outdated on a Dart or Flutter project.
+If it is Flutter project, run `flutter pub outdated` otherwise run
+`pub outdated`."
+  (interactive)
+  (if (lsp-dart--flutter-project-p)
+      (lsp-dart--flutter-pub-outdated)
+    (lsp-dart--pub-outdated)))
+
+(provide 'lsp-dart-commands)
+;;; lsp-dart-commands.el ends here

lsp-dart-test-support.el

@@ -54,14 +54,6 @@ IGNORE-CASE is a optional arg to ignore the case sensitive on regex search."
       (setq start (match-end 0)))
     idx))
 
-(defmacro lsp-dart-test--from-project-root (&rest body)
-  "Execute BODY with cwd set to the project root."
-  `(let ((project-root (lsp-dart-get-project-root)))
-     (if project-root
-         (let ((default-directory project-root))
-           ,@body)
-       (error "Dart or Flutter project not found (pubspec.yaml not found)"))))
-
 (defun lsp-dart-test--build-command ()
   "Build the dart or flutter build command checking project type."
   (if (lsp-dart--flutter-project-p)
@@ -92,7 +84,7 @@ IGNORE-CASE is a optional arg to ignore the case sensitive on regex search."
 If TEST is nil, it will run all tests from project.
 If TEST is non nil, it will check if contains any test specific name
 to run otherwise run all tests from file-name in TEST."
-  (lsp-dart-test--from-project-root
+  (lsp-dart-from-project-root
    (if test
        (let* ((file-name (lsp-dart-test-file-name test))
               (names (lsp-dart-test-names test))
@@ -175,7 +167,7 @@ Search for the last test overlay."
   (interactive)
   (if (lsp-dart-test-file-p (buffer-file-name))
       (lsp-dart-test--run (->> (current-buffer) buffer-name file-truename (make-lsp-dart-test :file-name)))
-    (user-error "Current buffer is not a Dart/Flutter test file")))
+    (lsp-dart-log "Current buffer is not a Dart/Flutter test file.")))
 
 ;;;###autoload
 (defun lsp-dart-run-all-tests ()

lsp-dart-utils.el

@@ -137,6 +137,14 @@ FLUTTER_ROOT environment variable."
      ((file-exists-p bin-entry)
       bin-entry))))
 
+(defmacro lsp-dart-from-project-root (&rest body)
+  "Execute BODY with cwd set to the project root."
+  `(let ((project-root (lsp-dart-get-project-root)))
+     (if project-root
+         (let ((default-directory project-root))
+           ,@body)
+       (error "Project not found (pubspec.yaml not found)"))))
+
 
 ;; Log
 

lsp-dart.el

@@ -38,6 +38,7 @@
 (require 'lsp-dart-outline)
 (require 'lsp-dart-flutter-fringe-colors)
 (require 'lsp-dart-flutter-widget-guide)
+(require 'lsp-dart-commands)
 
 (defgroup lsp-dart nil
   "LSP support for Dart, using dart analysis server."