ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Move Compile mode configuration to emacs-config

Browse source
This commit is contained in:
Tom Willemse 2019-02-26 01:16:04 -08:00
parent 2ddcd487e0
commit d0ded59e49
2 changed files with 0 additions and 73 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
emacs/.emacs.d/init.el
View file

@ -162,7 +162,6 @@
;; (propertize (concat " " (char-to-string #xf233)) ;; (propertize (concat " " (char-to-string #xf233))
;; 'face '(:family "Font Awesome" :height 0.75)))) ;; 'face '(:family "Font Awesome" :height 0.75))))
(with-eval-after-load 'compile (load "oni-compilation-init"))
(with-eval-after-load 'dired (load "oni-dired-init")) (with-eval-after-load 'dired (load "oni-dired-init"))
(with-eval-after-load 'ediff (load "oni-ediff-init")) (with-eval-after-load 'ediff (load "oni-ediff-init"))
(with-eval-after-load 'elec-pair (load "oni-elec-pair-init")) (with-eval-after-load 'elec-pair (load "oni-elec-pair-init"))

72
emacs/.emacs.d/init/oni-compilation-init.el
View file

@ -1,72 +0,0 @@
;;; oni-compilation-init.el --- Compilation mode configuration -*- lexical-binding: t; -*-
;; Copyright (C) 2018 Tom Willemse
;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local
;; 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:
;; My configuration for compilation mode.
;;; Code:
(require 'compile)
(require 'shackle)
(require 'subr-x)
(setq compilation-scroll-output t)
(defun oni-compilation-init--maybe-dont-show-window (buffer-or-name alist plist)
"Don't show BUFFER-OR-NAME unless it absolutely must.
ALIST and PLIST contain extra information about the buffer."
(if (alist-get 'allow-no-window alist)
buffer-or-name
(funcall (plist-get plist :fallback) buffer-or-name alist
(plist-put (copy-sequence plist) :custom nil))))
(defun oni-compilation-init--maybe-display-compilation-window (buffer status)
"Display BUFFER if STATUS is not finished."
(unless (string= (string-trim status) "finished")
(display-buffer buffer)))
(defun oni-compilation-init--ansi-color-for-compilation-filter ()
"Apply ANSI terminal escape codes to compilation output."
(ansi-color-apply-on-region compilation-filter-start (point)))
(defun oni-compilation-init--compilation-finish-notify-function (buffer status)
"Show an alert of the status of the compliation.
BUFFER is the `compilation-mode' buffer and STATUS is the exit
status of the process."
(when (string= (buffer-name buffer) "*compilation*")
(if (string= (string-trim status) "finished")
(alert "Compilation finished succesfully")
(alert "Compilation finished with an error"))))
(add-to-list 'shackle-rules
'(compilation-mode :custom oni-compilation-init--maybe-dont-show-window
:fallback shackle-display-buffer
:other t :select t))
(add-hook 'compilation-filter-hook #'oni-compilation-init--ansi-color-for-compilation-filter)
(add-hook 'compilation-finish-functions #'oni-compilation-init--maybe-display-compilation-window)
(add-hook 'compilation-finish-functions #'oni-compilation-init--compilation-finish-notify-function)
(provide 'oni-compilation-init)
;;; oni-compilation-init.el ends here