Browse Source

Make build system only build once if no system was selected

* Also made sure org-mode doesn't take away C-e for searching
* vc-print-root-log on S-F6
master
macoymadson@gmail.com 4 years ago
parent
commit
4b472d6e31
  1. 8
      Emacs/build-systems.el
  2. 1
      Emacs/org-customizations.el
  3. 1
      Emacs/source-control.el

8
Emacs/build-systems.el

@ -41,16 +41,16 @@
(defun macoy-build-system-build ()
"Build the build system defined in `macoy-build-system-default'"
(interactive)
(unless macoy-build-system-default
;; (message "No default build system selected. Run macoy-build-system-select-then-build")
(call-interactively 'macoy-build-system-select-then-build)
)
(when macoy-build-system-default
(message "Building %s" (car macoy-build-system-default))
(let ((build-function (nth 1 macoy-build-system-default)))
(call-interactively build-function)
)
)
(unless macoy-build-system-default
;; (message "No default build system selected. Run macoy-build-system-select-then-build")
(call-interactively 'macoy-build-system-select-then-build)
)
)
(defun macoy-build-system-select ()

1
Emacs/org-customizations.el

@ -28,6 +28,7 @@
(define-key org-mode-map (kbd "S-<left>") nil)
(define-key org-mode-map (kbd "S-<right>") nil)
(define-key org-mode-map (kbd "S-<up>") nil)
(define-key org-mode-map (kbd "C-e") nil)
;; Expand region is useful in Org too
(define-key org-mode-map (kbd "C-'") nil)

1
Emacs/source-control.el

@ -45,6 +45,7 @@
)
(global-set-key (kbd "<f6>") 'macoy-svn-status)
(global-set-key (kbd "S-<f6>") 'vc-print-root-log)
(setq macoy-commit-message-backup "~/Macoy_Emacs_CommitMessage_Backup.txt")
;; SVN and Magit commit message finished

Loading…
Cancel
Save