[elpa] master e7fe308: Spinner version 1.7
branch: master commit e7fe3082a33acea035c0766c6a1f0221724bfb62 Author: Artur Malabarba Commit: Artur Malabarba Spinner version 1.7 Offer a spinner-make-progress-bar function. Make spinner-stop never signal. Allow floating-point delays. --- packages/spinner/spinner.el | 35 +-- 1 files changed, 25 insertions(+), 10 deletions(-) diff --git a/packages/spinner/spinner.el b/packages/spinner/spinner.el index ec0a64f..63ead1e 100644 --- a/packages/spinner/spinner.el +++ b/packages/spinner/spinner.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2015 Free Software Foundation, Inc. ;; Author: Artur Malabarba -;; Version: 1.5 +;; Version: 1.7 ;; URL: https://github.com/Malabarba/spinner.el ;; Keywords: processes mode-line @@ -123,6 +123,18 @@ Each car is a symbol identifying the spinner, and each cdr is a vector, the spinner itself.") +(defun spinner-make-progress-bar (width &optional char) + "Return a vector of strings of the given WIDTH. +The vector is a valid spinner type and is similar to the +`progress-bar' spinner, except without the sorrounding brackets. +CHAR is the character to use for the moving bar (defaults to =)." + (let ((whole-string (concat (make-string (1- width) ?\s) + (make-string 4 (or char ?=)) + (make-string width ?\s +(thread-last (mapcar (lambda (n) (substring whole-string n (+ n width))) + (number-sequence (+ width 3) 0 -1)) + (apply #'vector + (defvar spinner-current nil "Spinner curently being displayed on the `mode-line-process'.") (make-variable-buffer-local 'spinner-current) @@ -243,8 +255,8 @@ stop the SPINNER's timer." (unless (ignore-errors (> (spinner--fps spinner) 0)) (error "A spinner's FPS must be a positive number")) -(setf (spinner--counter spinner) (- (* (or (spinner--delay spinner) 0) -(spinner--fps spinner +(setf (spinner--counter spinner) (round (- (* (or (spinner--delay spinner) 0) + (spinner--fps spinner) ;; Create timer. (let* ((repeat (/ 1.0 (spinner--fps spinner))) (time (timer-next-integral-multiple-of-time (current-time) repeat)) @@ -307,13 +319,16 @@ this time, in which case it won't display at all." (spinner-print spinner)) (defun spinner-stop (&optional spinner) - "Stop the current buffer's spinner." - (let* ((spinner (or spinner spinner-current)) - (timer (spinner--timer spinner))) -(when (timerp timer) - (cancel-timer timer)) -(setf (spinner--active-p spinner) nil) -(force-mode-line-update))) + "Stop SPINNER, defaulting to the current buffer's spinner. +It is always safe to call this function, even if there is no +active spinner." + (let ((spinner (or spinner spinner-current))) +(when (spinner-p spinner) + (let ((timer (spinner--timer spinner))) +(when (timerp timer) + (cancel-timer timer))) + (setf (spinner--active-p spinner) nil) + (force-mode-line-update (provide 'spinner)
[elpa] master 6bc2878: wcheck: If exists use font-lock-ensure, else font-lock-fontify-region
branch: master commit 6bc28788c81d32bc452bd312fdcbdeded3ad6c54 Author: Teemu Likonen Commit: Teemu Likonen wcheck: If exists use font-lock-ensure, else font-lock-fontify-region --- packages/wcheck-mode/wcheck-mode.el |5 - 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/packages/wcheck-mode/wcheck-mode.el b/packages/wcheck-mode/wcheck-mode.el index 5dd2df9..ae7e917 100644 --- a/packages/wcheck-mode/wcheck-mode.el +++ b/packages/wcheck-mode/wcheck-mode.el @@ -1388,7 +1388,10 @@ areas, including invisible ones. Otherwise skip invisible text." (when font-lock-mode (save-excursion -(font-lock-fontify-region (min beg end) (max beg end +(funcall (if (fboundp 'font-lock-ensure) + #'font-lock-ensure + #'font-lock-fontify-region) + (min beg end) (max beg end (wcheck--with-language-data (language (wcheck--buffer-data-get :buffer buffer :language))
[elpa] master 6298b25 2/2: Merge commit '1ce5a659e968af25122b46a3fc3b04b30b5ebdd5'
branch: master commit 6298b25e06287ef62f4a62d52b112040811616f6 Merge: 6bc2878 1ce5a65 Author: Matthew Carter Commit: Matthew Carter Merge commit '1ce5a659e968af25122b46a3fc3b04b30b5ebdd5' --- packages/ahungry-theme/ahungry-theme.el | 15 +-- 1 files changed, 13 insertions(+), 2 deletions(-) diff --git a/packages/ahungry-theme/ahungry-theme.el b/packages/ahungry-theme/ahungry-theme.el index d395fa2..98deaf0 100644 --- a/packages/ahungry-theme/ahungry-theme.el +++ b/packages/ahungry-theme/ahungry-theme.el @@ -1,11 +1,11 @@ ;;; ahungry-theme.el --- Ahungry color theme for Emacs. Make sure to (load-theme 'ahungry). -*- lexical-binding:t -*- -;; Copyright (C) 2015 Free Software Foundation, Inc. +;; Copyright (C) 2015,2016 Free Software Foundation, Inc. ;; Author: Matthew Carter ;; Maintainer: Matthew Carter ;; URL: https://github.com/ahungry/color-theme-ahungry -;; Version: 1.0.12 +;; Version: 1.1.0 ;; Keywords: ahungry palette color theme emacs color-theme deftheme ;; Package-Requires: ((emacs "24")) @@ -36,6 +36,9 @@ ;;; News: + Changes since 1.0.12: +;; - Add erc/jabber faces to begin with + Changes since 1.0.11: ;; - Purple is too hard to read on poor contrast monitors, use a blue @@ -229,6 +232,14 @@ '(helm-selection ((t (:foreground "#ff0099" :italic t :bold t :background "#f2e997" '(helm-match ((t (:foreground "gold1" '(helm-visible-mark ((t (:background "#f2e997" :foreground "#ff0099" :bold nil :italic nil + '(erc-nick-default-face ((t (:foreground "#ff0099" + '(erc-current-nick-face ((t (:foreground "#0099ff" + '(erc-input-face ((t (:foreground "#0099ff" + '(erc-prompt-face ((t (:background nil :foreground "#66" :bold t :italic t + '(erc-timestamp-face ((t (:background nil :foreground "#66" :bold nil :italic t + '(jabber-chat-prompt-foreign ((t (:foreground "#ff0099" + '(jabber-chat-prompt-local ((t (:foreground "#0099ff" + '(jabber-rare-time-face ((t (:foreground "#66" :bold nil :italic t ) (custom-theme-set-variables 'ahungry
[elpa] master 1ce5a65 1/2: Add erc/jabber faces to theme
branch: master commit 1ce5a659e968af25122b46a3fc3b04b30b5ebdd5 Author: Matthew Carter Commit: Matthew Carter Add erc/jabber faces to theme --- ahungry-theme.el | 15 +-- 1 files changed, 13 insertions(+), 2 deletions(-) diff --git a/ahungry-theme.el b/ahungry-theme.el index 34e3f3e..2356807 100644 --- a/ahungry-theme.el +++ b/ahungry-theme.el @@ -1,11 +1,11 @@ ;;; ahungry-theme.el --- Ahungry color theme for Emacs. Make sure to (load-theme 'ahungry). -;; Copyright (C) 2015 Free Software Foundation, Inc. +;; Copyright (C) 2015,2016 Free Software Foundation, Inc. ;; Author: Matthew Carter ;; Maintainer: Matthew Carter ;; URL: https://github.com/ahungry/color-theme-ahungry -;; Version: 1.0.12 +;; Version: 1.1.0 ;; Keywords: ahungry palette color theme emacs color-theme deftheme ;; Package-Requires: ((emacs "24")) @@ -36,6 +36,9 @@ ;;; News: + Changes since 1.0.12: +;; - Add erc/jabber faces to begin with + Changes since 1.0.11: ;; - Purple is too hard to read on poor contrast monitors, use a blue @@ -229,6 +232,14 @@ '(helm-selection ((t (:foreground "#ff0099" :italic t :bold t :background "#f2e997" '(helm-match ((t (:foreground "gold1" '(helm-visible-mark ((t (:background "#f2e997" :foreground "#ff0099" :bold nil :italic nil + '(erc-nick-default-face ((t (:foreground "#ff0099" + '(erc-current-nick-face ((t (:foreground "#0099ff" + '(erc-input-face ((t (:foreground "#0099ff" + '(erc-prompt-face ((t (:background nil :foreground "#66" :bold t :italic t + '(erc-timestamp-face ((t (:background nil :foreground "#66" :bold nil :italic t + '(jabber-chat-prompt-foreign ((t (:foreground "#ff0099" + '(jabber-chat-prompt-local ((t (:foreground "#0099ff" + '(jabber-rare-time-face ((t (:foreground "#66" :bold nil :italic t ) (custom-theme-set-variables 'ahungry
[elpa] externals/exwm 35d04c3: Fix bugs on managing/unmanaging X windows
branch: externals/exwm commit 35d04c34685a1c1e9f351a2c50b3eea2b2fb5f25 Author: Chris Feng Commit: Chris Feng Fix bugs on managing/unmanaging X windows * exwm-manage.el (exwm-manage--scan): Unmap X windows before managing them. (exwm-manage--on-UnmapNotify): Do not ignore synthetic UnmapNotify events (according to ICCCM). Do not use the `from-configure' slot which was mistakenly introduced due to the bug in `exwm-manage--scan'. * exwm-workspace.el (exwm-workspace--confirm-kill-emacs): Do more cleanups. --- exwm-manage.el| 19 +-- exwm-workspace.el | 18 ++ 2 files changed, 27 insertions(+), 10 deletions(-) diff --git a/exwm-manage.el b/exwm-manage.el index d7edee0..21e18ff 100644 --- a/exwm-manage.el +++ b/exwm-manage.el @@ -171,8 +171,6 @@ corresponding buffer.") (make-instance 'xcb:ConfigureWindow :window id :value-mask xcb:ConfigWindow:BorderWidth :border-width 0)) - ;; (xcb:+request exwm--connection;map the window - ;; (make-instance 'xcb:MapWindow :window id)) (dolist (button ;grab buttons to set focus / move / resize (list xcb:ButtonIndex:1 xcb:ButtonIndex:2 xcb:ButtonIndex:3)) (xcb:+request-checked+request-check exwm--connection @@ -272,6 +270,9 @@ corresponding buffer.") (xcb:+request-unchecked+reply exwm--connection (make-instance 'xcb:GetWindowAttributes :window i)) (when (and (= 0 override-redirect) (= xcb:MapState:Viewable map-state)) + (xcb:+request exwm--connection + (make-instance 'xcb:UnmapWindow :window i)) + (xcb:flush exwm--connection) (exwm-manage--manage-window i)) (defvar exwm-manage--ping-lock nil @@ -417,15 +418,13 @@ Would you like to kill it? " (exwm--log "MapRequest from #x%x" window) (exwm-manage--manage-window window)) -(defun exwm-manage--on-UnmapNotify (data synthetic) +(defun exwm-manage--on-UnmapNotify (data _synthetic) "Handle UnmapNotify event." - (unless synthetic -(let ((obj (make-instance 'xcb:UnmapNotify))) - (xcb:unmarshal obj data) - (with-slots (window from-configure) obj -(unless from-configure ;the parent is being resized - (exwm--log "UnmapNotify from #x%x" window) - (exwm-manage--unmanage-window window t)) + (let ((obj (make-instance 'xcb:UnmapNotify))) +(xcb:unmarshal obj data) +(with-slots (window) obj + (exwm--log "UnmapNotify from #x%x" window) + (exwm-manage--unmanage-window window t (defun exwm-manage--on-DestroyNotify (data synthetic) "Handle DestroyNotify event." diff --git a/exwm-workspace.el b/exwm-workspace.el index feeb2fe..3d7f67e 100644 --- a/exwm-workspace.el +++ b/exwm-workspace.el @@ -462,11 +462,29 @@ This functions is modified from `display-buffer-reuse-window' and (0 (y-or-n-p prompt)) (x (yes-or-no-p (format "[EXWM] %d window%s currently alive. %s" x (if (= x 1) "" "s") prompt +;; Remove SubstructureRedirect event. +(xcb:+request exwm--connection +(make-instance 'xcb:ChangeWindowAttributes + :window exwm--root :value-mask xcb:CW:EventMask + :event-mask 0)) +;; Remove the _NET_SUPPORTING_WM_CHECK X window. +(with-slots (value) +(xcb:+request-unchecked+reply exwm--connection +(make-instance 'xcb:ewmh:get-_NET_SUPPORTING_WM_CHECK + :window exwm--root)) + (xcb:+request exwm--connection + (make-instance 'xcb:DeleteProperty + :window exwm--root + :property xcb:Atom:_NET_SUPPORTING_WM_CHECK)) + (xcb:+request exwm--connection + (make-instance 'xcb:DestroyWindow :window value))) +;; Unmanage all X windows. (dolist (i exwm--id-buffer-alist) (exwm-manage--unmanage-window (car i) t) (xcb:+request exwm--connection (make-instance 'xcb:MapWindow :window (car i (xcb:flush exwm--connection) +(xcb:disconnect exwm--connection) t)) (defun exwm-workspace--init ()
