Browse Source

Fixed some parens, change projectile to slant

* Build system no longer has debug output
* Fixed hanging parens as I found them
* Added macoy-bury-buffer-anywhere. This function is nice for
e.g. hiding compilation buffers automatically if the compile was successful
master
Macoy Madson 4 years ago
parent
commit
583ac24c31
  1. 38
      Emacs/build-systems.el
  2. 21
      Emacs/core-settings.el
  3. 3
      Emacs/packages.el
  4. 19
      Emacs/source-control.el
  5. 2
      Emacs/visual-early.el

38
Emacs/build-systems.el

@ -9,20 +9,14 @@
(interactive)
(message "Building using Jam")
(let ((default-directory (read-directory-name "Directory: ")))
(compile
"jam -j4 -q")
)
)
(compile "jam -j4 -q")))
(defun build-universal-jam-clean ()
"Build using jam (select directory first)"
(interactive)
(message "Jam clean")
(let ((default-directory (read-directory-name "Directory: ")))
(compile
"jam clean")
)
)
(compile "jam clean")))
;;
;; Build system manager - select from multiple different compilation commands
@ -32,8 +26,7 @@
(setq macoy-build-system-list (list
'("Jam (current directory)" build-universal-jam)
'("Jam Clean (current directory)" build-universal-jam-clean)
)
)
))
(setq macoy-build-system-default nil)
@ -44,37 +37,23 @@
(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)
)
)
(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)
)
)
)
(call-interactively 'macoy-build-system-select-then-build))))
(defun macoy-build-system-select ()
"Select default build system using Ido"
(interactive)
;; Use Ido to pick the build system
(let ((build-system-ido-list nil) (selected-build-system nil))
(message "Going to build list")
;; Build a list of only the names of build systems
(dolist (build-system macoy-build-system-list build-system-ido-list)
(add-to-list 'build-system-ido-list (car build-system))
)
(message "build list completed, going to set selected-build-system via Ido")
(add-to-list 'build-system-ido-list (car build-system)))
;; Let the user select the build system using Ido
(setq selected-build-system (ido-completing-read "Build system: " build-system-ido-list))
(message "Build system set; finding by string and setting the default")
(dolist (build-system macoy-build-system-list)
(when (string-equal selected-build-system (car build-system))
(setq macoy-build-system-default build-system)
)
)
)
)
(setq macoy-build-system-default build-system)))))
(defun macoy-build-system-select-then-build ()
"Select a build from `macoy-build-system-list' and build it"
@ -82,8 +61,7 @@
(call-interactively 'macoy-build-system-select)
;; Execute the build
(macoy-build-system-build)
)
(macoy-build-system-build))
(global-set-key (kbd "<f7>") 'macoy-build-system-build)
(global-set-key (kbd "S-<f7>") 'macoy-build-system-select-then-build)

21
Emacs/core-settings.el

@ -84,11 +84,22 @@
(mapcar
(lambda (buffer-to-kill)
(when (get-buffer buffer-to-kill)
(kill-buffer buffer-to-kill))
)
macoy-buffers-to-kill
)
)
(kill-buffer buffer-to-kill)))
macoy-buffers-to-kill))
(defun macoy-bury-buffer-anywhere (buffer-or-name)
"Bury all windows showing BUFFER-OR-NAME.
BUFFER-OR-NAME may be a buffer or the name of an existing buffer
and defaults to the current buffer. For example,
(macoy-bury-buffer-anywhere \"*Compile-Log*\")
would dismiss the compile log, if it was visible"
(let ((buffer (window-normalize-buffer buffer-or-name))
;; Handle the "inverted" meaning of the FRAME argument wrt other
;; `window-list-1' based function.
(all-frames t))
(dolist (window (window-list-1 nil nil all-frames))
(when (eq (window-buffer window) buffer)
(switch-to-prev-buffer window)))))
;; Store recently opened files so we can easily reopen them
(recentf-mode 1)

3
Emacs/packages.el

@ -44,6 +44,7 @@
ivy-xref
iy-go-to-char
keyfreq
lua-mode
magit
multiple-cursors
org-jira
@ -67,4 +68,4 @@
(when packages
(message "Installing packages...")
(package-refresh-contents)
(mapc 'macoy-package-install packages)))))
(mapc 'macoy-package-install packages)))))

19
Emacs/source-control.el

@ -8,28 +8,28 @@
(interactive)
(message "Checking for modifications")
(start-process "CheckForModifications" nil
"tortoiseproc" "/command:repostatus" "/path:F:\\CJUNCTIONS\\src"))
"tortoiseproc" "/command:repostatus" "/path:D:\\srcTip"))
(defun tortoise-svn-show-log-src ()
"Open the TortoiseSVN Log window"
(interactive)
(message "SVN Log")
(start-process "SVNLog" nil
"tortoiseproc" "/command:log" "/path:F:\\CJUNCTIONS\\src"))
"tortoiseproc" "/command:log" "/path:D:\\srcTip"))
(defun tortoise-svn-update-src ()
"Open the TortoiseSVN Update window"
(interactive)
(message "SVN Update")
(start-process "SVNUpdate" nil
"tortoiseproc" "/command:update" "/path:F:\\CJUNCTIONS\\src"))
"tortoiseproc" "/command:update" "/path:D:\\srcTip"))
(defun tortoise-svn-create-patch-src ()
"Open the TortoiseSVN Create Patch window"
(interactive)
(message "SVN Create Patch")
(start-process "SVNCreatePatch" nil
"tortoiseproc" "/command:createpatch" "/noview" "/path:F:\\CJUNCTIONS\\src"))
"tortoiseproc" "/command:createpatch" "/noview" "/path:D:\\srcTip"))
;; dsvn SVN frontend
(autoload 'svn-status "dsvn" "Run `svn status'." t)
@ -40,9 +40,7 @@
(interactive)
(if (projectile-project-p)
(svn-status (projectile-project-root))
(call-interactively 'svn-status)
)
)
(call-interactively 'svn-status)))
(global-set-key (kbd "<f6>") 'macoy-svn-status)
(global-set-key (kbd "S-<f6>") 'vc-print-root-log)
@ -58,11 +56,8 @@
;; magit
(when (string-equal (buffer-name) "COMMIT_EDITMSG")
(call-interactively 'with-editor-finish)
)
(call-interactively 'with-editor-finish))
;; dsvn
(when (derived-mode-p 'log-edit-mode)
(call-interactively 'log-edit-done)
)
)
(call-interactively 'log-edit-done)))

2
Emacs/visual-early.el

@ -73,7 +73,7 @@
;; Powerline: nicer status bar
;;
(require 'powerline)
(setq powerline-default-separator 'butt)
(setq powerline-default-separator 'slant)
(setq powerline-display-hud nil)
(setq powerline-display-buffer-size nil)
(setq powerline-display-mule-info nil)

Loading…
Cancel
Save