@@ -200,8 +200,8 @@ current line for a series of patterns." "Analyze a string (or ERb block) and open some file related with it. For example, on a line with \"render :partial\" runing this function will open the partial file. The function works with -\"layout 'name'\", \"render/redirect-to [:action => 'name',] -[controller => 'n']\", stylesheet_link_tag and other common +\"layout 'name'\", \"render/redirect-to [:action => 'name',] [controller => 'n']\", +stylesheet_link_tag and other common patterns. Rules for actions/controllers: @@ -220,7 +220,7 @@ Rules for actions/controllers: (current-line-string)))) (loop for func in rails-on-current-line-gotos until (when (funcall func line prefix) (return t)))) - (message "Can't switch to some file form this line."))))) + (message "Can't switch to some file from this line."))))) (defvar rails-on-current-line-gotos '(rails-line-->partial rails-navigation.el @@ -1,97 +1,103 @@ -;;; rails-rake.el --- emacs-rails integraions with rake tasks. - -;; Copyright (C) 2006 Dmitry Galinsky <dima dot exe at gmail dot com> - -;; Authors: Dmitry Galinsky <dima dot exe at gmail dot com>, - -;; Keywords: ruby rails languages oop -;; $URL: svn+ssh://rubyforge/var/svn/emacs-rails/trunk/rails-scripts.el $ -;; $Id: rails-scripts.el 117 2007-03-25 23:37:37Z dimaexe $ - -;;; License - -;; 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 2 -;; 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, write to the Free Software -;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -(eval-when-compile - (require 'rails-scripts)) - -(defvar rails-rake:history (list)) - -(defvar rails-rake:tasks-regexp "^rake \\([^ ]*\\).*# \\(.*\\)" - "Regexp to match tasks list in `rake --tasks` output.") - -(defun rails-rake:create-tasks-cache (file-name) - "Create a cache file from rake --tasks output." - (let ((tasks (loop for str in (split-string (rails-cmd-proxy:shell-command-to-string "rake --tasks") "\n") - for task = (when (string-not-empty str) - (string=~ rails-rake:tasks-regexp str $1)) - when task collect task))) - (write-string-to-file file-name (prin1-to-string tasks)) - tasks)) - -(defun rails-rake:list-of-tasks () - "Return all available tasks and create tasks cache file." - (rails-project:in-root - (let* ((cache-file (rails-core:file "tmp/.tasks-cache"))) - (if (file-exists-p cache-file) - (read-from-file cache-file) - (rails-rake:create-tasks-cache cache-file))))) - -(defun rails-rake:list-of-tasks-without-tests () - "Return available tasks without test actions." - (when-bind - (tasks (rails-rake:list-of-tasks)) - (sort (delete* nil - (mapcar - #'(lambda (it) (if (string=~ "^test\\($\\|:\\)" it t) nil it)) - (rails-rake:list-of-tasks)) - :if 'null) - 'string<))) - -(defun rails-rake:task (task &optional major-mode) - "Run a Rake task in RAILS_ROOT with MAJOR-MODE." - (interactive (rails-completing-read "What task run" (rails-rake:list-of-tasks-without-tests) - 'rails-rake:history nil)) - (when task - (rails-script:run "rake" (list task) major-mode))) - -(defun rails-rake:migrate (&optional version) - "Run the db:migrate task" - (interactive) - (rails-rake:task - (concat - "db:migrate" - (typecase version - (integer (format " VERSION=%.3i" version)) - (string (format " VERSION=%s" version)))))) - -(defun rails-rake:migrate-to-version (version) - "Run migrate with VERSION." - (interactive (rails-completing-read "Version of migration" - (rails-core:migration-versions t) - nil - t)) - (when version - (rails-rake:migrate version))) - -(defun rails-rake:migrate-to-prev-version () - "Migrate to a previous version." - (interactive) - (let ((versions (rails-core:migration-versions t))) - (rails-rake:migrate - (when (< 2 (length versions)) - (nth 1 versions))))) - -(provide 'rails-rake) +;;; rails-rake.el --- emacs-rails integraions with rake tasks. + +;; Copyright (C) 2006 Dmitry Galinsky <dima dot exe at gmail dot com> + +;; Authors: Dmitry Galinsky <dima dot exe at gmail dot com>, + +;; Keywords: ruby rails languages oop +;; $URL: svn+ssh://rubyforge/var/svn/emacs-rails/trunk/rails-scripts.el $ +;; $Id: rails-scripts.el 117 2007-03-25 23:37:37Z dimaexe $ + +;;; License + +;; 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 2 +;; 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, write to the Free Software +;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + +(eval-when-compile + (require 'rails-scripts)) + +(defvar rails-rake:history (list)) + +(defvar rails-rake:tasks-regexp "^rake \\([^ ]*\\).*# \\(.*\\)" + "Regexp to match tasks list in `rake --tasks` output.") + +(defun rails-rake:create-tasks-cache (file-name) + "Create a cache file from rake --tasks output." + (let ((tasks (loop for str in (split-string (rails-cmd-proxy:shell-command-to-string "rake --tasks") "\n") + for task = (when (string-not-empty str) + (string=~ rails-rake:tasks-regexp str $1)) + when task collect task))) + (write-string-to-file file-name (prin1-to-string tasks)) + tasks)) + +(defun rails-rake:list-of-tasks () + "Return all available tasks and create tasks cache file." + (rails-project:in-root + (let* ((cache-file (rails-core:file "tmp/.tasks-cache"))) + (if (file-exists-p cache-file) + (read-from-file cache-file) + (rails-rake:create-tasks-cache cache-file))))) + +(defun rails-rake:list-of-tasks-without-tests () + "Return available tasks without test actions." + (when-bind + (tasks (rails-rake:list-of-tasks)) + (sort (delete* nil + (mapcar + #'(lambda (it) (if (string=~ "^test\\($\\|:\\)" it t) nil it)) + (rails-rake:list-of-tasks)) + :if 'null) + 'string<))) + +(defun rails-rake:task (task &optional major-mode) + "Run a Rake task in RAILS_ROOT with MAJOR-MODE." + (interactive (rails-completing-read "What task run" (rails-rake:list-of-tasks-without-tests) + 'rails-rake:history nil)) + (when task + (rails-script:run "rake" (list task) major-mode))) + +(defun rails-rake:migrate (&optional version) + "Run the db:migrate task" + (interactive) + (rails-rake:task + (concat + "db:migrate" + (typecase version + (integer (format " VERSION=%.3i" version)) + (string (format " VERSION=%s" version)))))) + +(defun rails-rake:migrate-to-version (version) + "Run migrate with VERSION." + (interactive (rails-completing-read "Version of migration" + (rails-core:migration-versions t) + nil + t)) + (when version + (rails-rake:migrate version))) + +(defun rails-rake:migrate-to-prev-version () + "Migrate to a previous version." + (interactive) + (let ((versions (rails-core:migration-versions t))) + (rails-rake:migrate + (when (< 2 (length versions)) + (nth 1 versions))))) + +;; This function was originally defined anonymously in ui. It was defined here so keys +;; can be added to it dryly +(defun rails-rake:clone-development-db-to-test-db () + "Clone development DB to test DB." + (interactive) (rails-rake:task "db:test:clone")) + +(provide 'rails-rake) rails-rake.el @@ -1,167 +1,190 @@ -;;; rails-test.el --- tests integration with the compile library - -;; Copyright (C) 2006 Dmitry Galinsky <dima dot exe at gmail dot com> - -;; Authors: Dmitry Galinsky <dima dot exe at gmail dot com>, - -;; Keywords: ruby rails languages oop -;; $URL: svn+ssh://rubyforge/var/svn/emacs-rails/trunk/rails-ws.el $ -;; $Id: rails-ws.el 140 2007-03-27 23:33:36Z dimaexe $ - -;;; License - -;; 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 2 -;; 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, write to the Free Software -;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -;;; Code: - -(defvar rails-test:history nil) - -(defconst rails-test:result-regexp - "\\([0-9]+ tests, [0-9]+ assertions, \\([0-9]+\\) failures, \\([0-9]+\\) errors\\)") - -(defconst rails-test:progress-regexp - "^[\\.EF]+$") - -(defun rails-test:file-ext-regexp () - (let ((rails-templates-list (append rails-templates-list (list "rb")))) - (substring (rails-core:regex-for-match-view) 0 -1))) - -(defun rails-test:line-regexp (&optional append prepend) - (concat - append - (format - "\\(#{RAILS_ROOT}\/\\)?\\(\\(\\.\\|[A-Za-z]:\\)?\\([a-z/_.-]+%s\\)\\):\\([0-9]+\\)" - (rails-test:file-ext-regexp)) - prepend)) - -(defun rails-test:error-regexp-alist () - (list - (list 'rails-test-trace - (rails-test:line-regexp) 2 6 nil 0) - (list 'rails-test-failure - (rails-test:line-regexp "\\[" "\\]") 2 6 nil 2) - (list 'rails-test-error - (rails-test:line-regexp nil ".*\n$") 2 6 nil 2))) - -(defun rails-test:print-result () - (with-current-buffer (get-buffer rails-script:buffer-name) - (let ((msg (list)) - (failures 0) - (errors 0)) - (save-excursion - (goto-char (point-min)) - (while (re-search-forward rails-test:result-regexp (point-max) t) - (setq failures (+ failures (string-to-number (match-string-no-properties 2)))) - (setq errors (+ errors (string-to-number (match-string-no-properties 3)))) - (add-to-list 'msg (match-string-no-properties 1)))) - (unless (zerop (length msg)) - (message (strings-join " || " (reverse msg)))) - (when (and (or (not (zerop rails-script:output-mode-ret-value)) - (not (zerop errors)) - (not (zerop failures))) - (not (buffer-visible-p (current-buffer)))) - (rails-script:popup-buffer))))) - -(defun rails-test:print-progress (start end len) - (let (content) - (save-excursion - (goto-char (point-min)) - (while (re-search-forward "^Started" end t) - (line-move 1) - (save-match-data - (let ((progress (string=~ rails-test:progress-regexp - (current-line-string) $m))) - (when progress - (setq content (concat content progress))))))) - (when content - (message "Progress of %s: %s" rails-script:running-script-name content)))) - -(define-derived-mode rails-test:compilation-mode compilation-mode "RTest" - "Major mode for RoR tests." - (rails-script:setup-output-buffer) - (set (make-local-variable 'compilation-error-regexp-alist-alist) - (rails-test:error-regexp-alist)) - (set (make-local-variable 'compilation-error-regexp-alist) - '(rails-test-error - rails-test-failure - rails-test-trace)) - (add-hook 'after-change-functions 'rails-test:print-progress nil t) - (add-hook 'rails-script:run-after-stop-hook 'rails-test:print-result nil t) - (add-hook 'rails-script:show-buffer-hook - #'(lambda() - (let ((win (get-buffer-window (current-buffer)))) - (when (window-live-p win) - (set-window-point win 0) - (unless (buffer-visible-p (current-buffer)) - (compilation-set-window-height win))))) - t t)) - -(defun rails-test:list-of-tasks () - "Return a list contains test tasks." - (append (list "all") - (delete* nil - (mapcar - #'(lambda (task) (string=~ "^test\\:\\([^ ]+\\)" task $1)) - (rails-rake:list-of-tasks)) - :if 'null))) - -(defun rails-test:run (task) - "Run rake tests in RAILS_ROOT." - (interactive (rails-completing-read "What test run" - (rails-test:list-of-tasks) - 'rails-test:history t)) - (unless task - (setq task "all") - (add-to-list rails-test:history task)) - (let ((task-name - (if (string= "all" task) - "test" - (concat "test:" task)))) - (rails-rake:task task-name 'rails-test:compilation-mode))) - -(defun rails-test:run-single-file (file &optional param) - "Run test for single file FILE." - (let ((param (if param (append (list file) (list param)) - (list file)))) - (rails-script:run "ruby" param 'rails-test:compilation-mode))) - -(defun rails-test:run-current () - "Run a test for the current controller/model/mailer." - (interactive) - (let* ((model (rails-core:current-model)) - (controller (rails-core:current-controller)) - (func-test (rails-core:functional-test-file controller)) - (unit-test (rails-core:unit-test-file model)) - (mailer-test (rails-core:unit-test-file controller))) - (rails-test:run-single-file - (cond - ;; model - ((and model unit-test) unit-test) - ;; controller - ((and controller (not (rails-core:mailer-p controller)) func-test) - func-test) - ;; mailer - ((and controller (rails-core:mailer-p controller) unit-test) - unit-test))))) - -(defun rails-test:run-current-method () - "Run a test for the current method." - (interactive) - (let ((file (substring (buffer-file-name) (length (rails-project:root)))) - (method (rails-core:current-method-name))) - (when method - (rails-test:run-single-file file (format "--name=%s" method))))) - -(provide 'rails-test) \ No newline at end of file +;;; rails-test.el --- tests integration with the compile library + +;; Copyright (C) 2006 Dmitry Galinsky <dima dot exe at gmail dot com> + +;; Authors: Dmitry Galinsky <dima dot exe at gmail dot com>, + +;; Keywords: ruby rails languages oop +;; $URL: svn+ssh://rubyforge/var/svn/emacs-rails/trunk/rails-ws.el $ +;; $Id: rails-ws.el 140 2007-03-27 23:33:36Z dimaexe $ + +;;; License + +;; 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 2 +;; 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, write to the Free Software +;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + +;;; Code: + +(defvar rails-test:history nil) + +(defconst rails-test:result-regexp + "\\([0-9]+ tests, [0-9]+ assertions, \\([0-9]+\\) failures, \\([0-9]+\\) errors\\)") + +(defconst rails-test:progress-regexp + "^[\\.EF]+$") + +(defun rails-test:file-ext-regexp () + (let ((rails-templates-list (append rails-templates-list (list "rb")))) + (substring (rails-core:regex-for-match-view) 0 -1))) + +(defun rails-test:line-regexp (&optional append prepend) + (concat + append + (format + "\\(#{RAILS_ROOT}\/\\)?\\(\\(\\.\\|[A-Za-z]:\\)?\\([a-z/_.-]+%s\\)\\):\\([0-9]+\\)" + (rails-test:file-ext-regexp)) + prepend)) + +(defun rails-test:error-regexp-alist () + (list + (list 'rails-test-trace + (rails-test:line-regexp) 2 6 nil 0) + (list 'rails-test-failure + (rails-test:line-regexp "\\[" "\\]") 2 6 nil 2) + (list 'rails-test-error + (rails-test:line-regexp nil ".*\n$") 2 6 nil 2))) + +(defun rails-test:print-result () + (with-current-buffer (get-buffer rails-script:buffer-name) + (let ((msg (list)) + (failures 0) + (errors 0)) + (save-excursion + (goto-char (point-min)) + (while (re-search-forward rails-test:result-regexp (point-max) t) + (setq failures (+ failures (string-to-number (match-string-no-properties 2)))) + (setq errors (+ errors (string-to-number (match-string-no-properties 3)))) + (add-to-list 'msg (match-string-no-properties 1)))) + (unless (zerop (length msg)) + (message (strings-join " || " (reverse msg)))) + (when (and (or (not (zerop rails-script:output-mode-ret-value)) + (not (zerop errors)) + (not (zerop failures))) + (not (buffer-visible-p (current-buffer)))) + (rails-script:popup-buffer))))) + +(defun rails-test:print-progress (start end len) + (let (content) + (save-excursion + (goto-char (point-min)) + (while (re-search-forward "^Started" end t) + (line-move 1) + (save-match-data + (let ((progress (string=~ rails-test:progress-regexp + (current-line-string) $m))) + (when progress + (setq content (concat content progress))))))) + (when content + (message "Progress of %s: %s" rails-script:running-script-name content)))) + +(define-derived-mode rails-test:compilation-mode compilation-mode "RTest" + "Major mode for RoR tests." + (rails-script:setup-output-buffer) + (set (make-local-variable 'compilation-error-regexp-alist-alist) + (rails-test:error-regexp-alist)) + (set (make-local-variable 'compilation-error-regexp-alist) + '(rails-test-error + rails-test-failure + rails-test-trace)) + (add-hook 'after-change-functions 'rails-test:print-progress nil t) + (add-hook 'rails-script:run-after-stop-hook 'rails-test:print-result nil t) + (add-hook 'rails-script:show-buffer-hook + #'(lambda() + (let ((win (get-buffer-window (current-buffer)))) + (when (window-live-p win) + (set-window-point win 0) + (unless (buffer-visible-p (current-buffer)) + (compilation-set-window-height win))))) + t t)) + +(defun rails-test:list-of-tasks () + "Return a list contains test tasks." + (append (list "all") + (delete* nil + (mapcar + #'(lambda (task) (string=~ "^test\\:\\([^ ]+\\)" task $1)) + (rails-rake:list-of-tasks)) + :if 'null))) + +(defun rails-test:run (task) + "Run rake tests in RAILS_ROOT." + (interactive (rails-completing-read "What test run" + (rails-test:list-of-tasks) + 'rails-test:history t)) + (unless task + (setq task "all") + (add-to-list rails-test:history task)) + (let ((task-name + (if (string= "all" task) + "test" + (concat "test:" task)))) + (rails-rake:task task-name 'rails-test:compilation-mode))) + +(defun rails-test:run-single-file (file &optional param) + "Run test for single file FILE." + (let ((param (if param (append (list file) (list param)) + (list file)))) + (rails-script:run "ruby" param 'rails-test:compilation-mode))) + +(defun rails-test:run-current () + "Run a test for the current controller/model/mailer." + (interactive) + (let* ((model (rails-core:current-model)) + (controller (rails-core:current-controller)) + (func-test (rails-core:functional-test-file controller)) + (unit-test (rails-core:unit-test-file model)) + (mailer-test (rails-core:unit-test-file controller))) + (rails-test:run-single-file + (cond + ;; model + ((and model unit-test) unit-test) + ;; controller + ((and controller (not (rails-core:mailer-p controller)) func-test) + func-test) + ;; mailer + ((and controller (rails-core:mailer-p controller) unit-test) + unit-test))))) + +(defun rails-test:run-current-method () + "Run a test for the current method." + (interactive) + (let ((file (substring (buffer-file-name) (length (rails-project:root)))) + (method (rails-core:current-method-name))) + (when method + (rails-test:run-single-file file (format "--name=%s" method))))) + +;; These functions were originally defined anonymously in ui. They are defined here so keys +;; can be added to them dryly +(defun rails-test:run-integration () + "Run Integration Tests." + (interactive) + (rails-test:run "integration")) +(defun rails-test:run-units () + "Run Unit Tests." + (interactive) + (rails-test:run "units")) +(defun rails-test:run-functionals () + "Run Functional Tests." + (interactive) + (rails-test:run "functionals")) +(defun rails-test:run-recent () + "Run Recent Tests." + (interactive) + (rails-test:run "recent")) +(defun rails-test:run-all () + "Run All Tests." + (interactive) + (rails-test:run "all")) + +(provide 'rails-test) rails-test.el @@ -86,11 +86,11 @@ (defconst rails-minor-mode-tests-menu-bar-map (let ((map (make-sparse-keymap))) (define-keys map - ([integration] '("Integration Tests" . (lambda() (interactive) (rails-test:run "integration")))) - ([unit] '("Unit Tests" . (lambda() (interactive) (rails-test:run "units")))) - ([functional] '("Functional Tests" . (lambda() (interactive) (rails-test:run "functionals")))) - ([recent] '("Recent Tests" . (lambda() (interactive) (rails-test:run "recent")))) - ([tests] '("All" . (lambda() (interactive) (rails-test:run "all")))) + ([integration] '("Integration Tests" . rails-test:run-integration)) + ([unit] '("Unit Tests" . rails-test:run-units)) + ([functional] '("Functional Tests" . rails-test:run-functionals)) + ([recent] '("Recent Tests" . rails-test:run-recent)) + ([tests] '("All" . rails-test:run-all)) ([separator] '("--")) ([toggle] '(menu-item "Toggle Output Window" rails-script:toggle-output-window :enable (get-buffer rails-script:buffer-name))) @@ -101,7 +101,7 @@ (defconst rails-minor-mode-db-menu-bar-map (let ((map (make-sparse-keymap))) (define-keys map - ([clone-db] '("Clone Development DB to Test DB" . (lambda() (interactive) (rails-rake:task "db:test:clone")))) + ([clone-db] '("Clone Development DB to Test DB" . rails-rake:clone-development-db-to-test-db)) ([load-schema] '("Load schema.rb to DB" . (lambda() (interactive) (rails-rake:task "db:schema:load")))) ([dump-schema] '("Dump DB to schema.rb" . (lambda() (interactive) (rails-rake:task "db:schema:dump")))) ([sep] '("--")) @@ -266,15 +266,24 @@ ((rails-key "\C-c d m") 'rails-rake:migrate) ((rails-key "\C-c d v") 'rails-rake:migrate-to-version) ((rails-key "\C-c d p") 'rails-rake:migrate-to-prev-version) + ((rails-key "\C-c d t") 'rails-rake:clone-development-db-to-test-db) ;; Tests ((rails-key "\C-c r") 'rails-rake:task) ((rails-key "\C-c t") 'rails-test:run) ((rails-key "\C-c .") 'rails-test:run-current) + ((rails-key "\C-c y i") 'rails-test:run-integration) + ((rails-key "\C-c y u") 'rails-test:run-units) + ((rails-key "\C-c y f") 'rails-test:run-functionals) + ((rails-key "\C-c #") 'rails-test:run-recent) + ((rails-key "\C-c y a") 'rails-test:run-all) - ;; Navigation - + ;; Log files ((rails-key "\C-c l") 'rails-log:open) + ((rails-key "\C-c o t") 'rails-log:open-test) + ((rails-key "\C-c o p") 'rails-log:open-production) + ((rails-key "\C-c o d") 'rails-log:open-development) + ;; Tags ((rails-key "\C-c \C-t") 'rails-create-tags) rails-ui.el 80c3b474fb408e2d9685f6f8645813ff73b57d49 dimaexe dimaexe@cc5033d0-740f-0410-afc7-949910e492f2 http://github.com/tomtt/emacs-rails/commit/1abc3fecceec7a2c64b983724650223c20cbfe10 1abc3fecceec7a2c64b983724650223c20cbfe10 2007-08-04T13:31:07-07:00 2007-08-04T13:31:07-07:00 rails-test.el, rails-ui.el: apply patch #11998, created additional key shortcuts (thanks Tom Ten Thij) git-svn-id: svn+ssh://rubyforge.org/var/svn/emacs-rails/trunk@203 cc5033d0-740f-0410-afc7-949910e492f2 8588ba6fc0397f2e720937d56f61f9922ee859e9 dimaexe dimaexe@cc5033d0-740f-0410-afc7-949910e492f2