From 0d342f0aee3f2f800e486c0051dabe718a7b2841 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 23 Mar 2011 11:14:27 +0100 Subject: I don't like nxhtml --- emacs.d/nxhtml/related/flymakemsg.el | 144 ----------------------------------- 1 file changed, 144 deletions(-) delete mode 100644 emacs.d/nxhtml/related/flymakemsg.el (limited to 'emacs.d/nxhtml/related/flymakemsg.el') diff --git a/emacs.d/nxhtml/related/flymakemsg.el b/emacs.d/nxhtml/related/flymakemsg.el deleted file mode 100644 index b704ba7..0000000 --- a/emacs.d/nxhtml/related/flymakemsg.el +++ /dev/null @@ -1,144 +0,0 @@ -;;; flymakemsg.el --- Show flymake compile errors in echo area -;; -;; Author: Lennart Borgman (lennart O borgman A gmail O com) -;; Created: 2009-11-21 Sat -;; Version: 0.1 -;; Last-Updated: 2009-11-21 Sat -;; URL: -;; Keywords: -;; Compatibility: -;; -;; Features that might be required by this library: -;; - ;; `backquote', `bytecomp'. -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;;; Commentary: -;; -;; Show flymake error messages in minibuffer when point is on a -;; flymake error overlay. -;; -;; To use it just load this file. Put this in .emacs: -;; -;; (require 'flymakemsg) -;; -;; This file run `defadvice' on some functions in `flymake-mode'. -;; This code started from an idea in a paste. -;; -;; Note: This code breaks Emacs conventions since it does the -;; defadvising when you just loads this file. -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;;; Change log: -;; -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;; 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, 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; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth -;; Floor, Boston, MA 02110-1301, USA. -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;;; Code: - -(eval-when-compile (require 'flymake)) - -(defun flymakemsg-show-err-at-point () - "If point is on a flymake error, show it in echo area. -Protected to run in timers and hooks." - (condition-case err - (flymakemsg-show-err-at-point-1) - (error (message "%s" err)))) - -(defvar flymakemsg-last-errovl nil) - -(defun flymakemsg-show-err-at-point-1 () - "If point is on a flymake error, show it in echo area." - (interactive) - (when flymake-mode - (let ((flyovl (flymakemsg-get-errovl (point)))) - (unless (eq flyovl flymakemsg-last-errovl) - (setq flymakemsg-last-errovl flyovl) - (when flyovl - (message "%s" (propertize - (overlay-get flyovl 'help-echo) - 'face 'flymake-errline))))))) - -(defun flymakemsg-get-errovl (POS) - "Get flymake error overlay at POS." - (catch 'errovl - (dolist (ovl (overlays-at POS)) - (when (eq 'flymake-errline (overlay-get ovl 'face)) - (throw 'errovl ovl))))) - -(defadvice flymake-mode (after - flymakemsg-ad-flymake-mode - activate compile) - "Turn on showing of flymake errors then point is on them. -This shows the error in the echo area." - (if flymake-mode - nil ;;(add-hook 'post-command-hook 'flymakemsg-post-command t t) - (remove-hook 'post-command-hook 'flymakemsg-post-command t))) - -(defadvice flymake-log (after - flymakemsg-ad-flymake-log - activate compile) - "Display error on current line if any." - ;;(message "flymake-log defadvice called") - (if (not flymake-err-info) - (remove-hook 'post-command-hook 'flymakemsg-post-command t) - (add-hook 'post-command-hook 'flymakemsg-post-command t t) - ;; Wait, because there is another message first. - (flymakemsg-start-msg-timer 3.0))) - -(defun flymakemsg-post-command () - ;; Wait to not disturb to much. - (flymakemsg-start-msg-timer 0.2)) - -(defvar flymakemsg-msg-timer nil) - -(defun flymakemsg-cancel-msg-timer () - (when (timerp flymakemsg-msg-timer) - (cancel-timer flymakemsg-msg-timer))) - -(defun flymakemsg-start-msg-timer (delay) - (flymakemsg-cancel-msg-timer) - (run-with-idle-timer delay nil 'flymakemsg-show-err-at-point)) - -;;; I have no idea why it was done the way below. It was in the paste. -;;; It seems very unnecessary but I keep it for now. -;; -;; (defun fly-pyflake-determine-message (err) -;; "pyflake is flakey if it has compile problems, this adjusts the -;; message to display, so there is one ;)" -;; (cond ((not (or (eq major-mode 'Python) (eq major-mode 'python-mode) t))) -;; ((null (flymake-ler-file err)) -;; ;; normal message do your thing -;; (flymake-ler-text err)) -;; (t ;; could not compile err -;; (format "compile error, problem on line %s" (flymake-ler-line err))))) - -;; (let ((line-no (line-number-at-pos))) -;; (dolist (elem flymake-err-info) -;; (if (eq (car elem) line-no) -;; (let ((err (car (second elem)))) -;; (message "%s" (fly-pyflake-determine-message err)))))) - - -(provide 'flymakemsg) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; flymakemsg.el ends here -- cgit v1.2.3-54-g00ecf