daniel/emacs-conf
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

add to play button python buffer execution

Browse Source
This commit is contained in:
Daniel Weschke
2026-04-08 20:11:54 +02:00
parent bf53e5cb45
commit 2f249d0979
2 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/my/my-org-article.el
View File

@@ -2402,7 +2402,7 @@ a:link::selection, a:link::-moz-selection {
:package-version '(Org . "8.0") :package-version '(Org . "8.0")
:type 'string) :type 'string)
;;;###autoload ;;;###autoload
(put 'org-html-head 'safe-local-variable 'stringp) (put 'my-org-article-html-head 'safe-local-variable 'stringp)
;;; Export functions ;;; Export functions
@@ -2425,6 +2425,7 @@ a:link::selection, a:link::-moz-selection {
(org-export-to-file 'article-html file async subtreep (org-export-to-file 'article-html file async subtreep
visible-only body-only ext-plist))) visible-only body-only ext-plist)))
;;;###autoload
(defun my-org-article-help () (defun my-org-article-help ()
"Open the `my-org-article' manual." "Open the `my-org-article' manual."
(interactive) (interactive)

15
lisp/my/my-tool-bar.el
View File

@@ -179,11 +179,16 @@
(defun my-tool-bar-function-play (event) (defun my-tool-bar-function-play (event)
"Run `C-c'." "Run `C-c'."
(interactive "e") (interactive "e")
(let () (pcase major-mode
(pcase major-mode ('org-mode (org-ctrl-c-ctrl-c))
('org-mode (org-ctrl-c-ctrl-c)) ('python-mode
(_ (message "%s: %s" "not defined for this major-mode" (pcase (car event)
major-mode)) ))) ('double-down-mouse-1
(run-python)
(my-python-shell-send-buffer-w-main))
(_ (my-python-shell-send-buffer-w-main))))
(_ (message "%s: %s" "not defined for this major-mode"
major-mode)) ) )
(defvar my-tool-bar-button-play "Cc " (defvar my-tool-bar-button-play "Cc "
"Button to run `C-c'.") "Button to run `C-c'.")