2015-01-27 03:51:47 +00:00
|
|
|
|
;;; core-spacemacs-buffer.el --- Spacemacs Core File
|
2015-01-26 03:36:07 +00:00
|
|
|
|
;;
|
2017-01-06 03:51:13 +00:00
|
|
|
|
;; Copyright (c) 2012-2017 Sylvain Benner & Contributors
|
2015-01-26 03:36:07 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
|
|
|
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
|
|
|
;;
|
|
|
|
|
;; This file is not part of GNU Emacs.
|
|
|
|
|
;;
|
|
|
|
|
;;; License: GPLv3
|
2016-10-27 17:43:22 +00:00
|
|
|
|
;;
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
;;
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
2017-04-07 03:07:36 +00:00
|
|
|
|
(defconst spacemacs-buffer-version-info "0.200.9"
|
2016-04-01 03:44:00 +00:00
|
|
|
|
"Current version used to display addition release information.")
|
|
|
|
|
|
2015-02-04 04:56:52 +00:00
|
|
|
|
(defconst spacemacs-buffer-name "*spacemacs*"
|
|
|
|
|
"The name of the spacemacs buffer.")
|
|
|
|
|
|
2016-04-01 03:44:00 +00:00
|
|
|
|
(defconst spacemacs-buffer-logo-title "[S P A C E M A C S]"
|
|
|
|
|
"The title displayed beneath the logo.")
|
|
|
|
|
|
2016-09-03 10:47:58 +00:00
|
|
|
|
(defconst spacemacs-buffer-buttons-startup-lists-offset 25
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Relative position between the home buffer buttons and startup lists.")
|
2016-09-03 10:47:58 +00:00
|
|
|
|
|
2016-10-29 02:04:42 +00:00
|
|
|
|
(defconst spacemacs-buffer--window-width 80
|
|
|
|
|
"Current width of the home buffer if responsive, 80 otherwise.
|
|
|
|
|
See `dotspacemacs-startup-buffer-responsive'.")
|
2015-01-26 03:36:07 +00:00
|
|
|
|
|
2015-04-13 06:17:48 +00:00
|
|
|
|
(defconst spacemacs-buffer--cache-file
|
|
|
|
|
(expand-file-name (concat spacemacs-cache-directory "spacemacs-buffer.el"))
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Cache file for various persistent data for the spacemacs startup buffer.")
|
2015-04-13 06:17:48 +00:00
|
|
|
|
|
2016-09-02 20:42:37 +00:00
|
|
|
|
(defvar spacemacs-buffer-startup-lists-length 20
|
|
|
|
|
"Length used for startup lists with otherwise unspecified bounds.
|
|
|
|
|
Set to nil for unbounded.")
|
|
|
|
|
|
2015-04-13 06:17:48 +00:00
|
|
|
|
(defvar spacemacs-buffer--release-note-version nil
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"If nil the release note is displayed.
|
|
|
|
|
If non nil it contains a version number, if the version number is lesser than
|
|
|
|
|
the current version the release note it displayed")
|
2015-04-13 06:17:48 +00:00
|
|
|
|
|
2015-04-15 14:30:25 +00:00
|
|
|
|
(defvar spacemacs-buffer--note-widgets nil
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"List of widgets used in currently inserted notes.
|
|
|
|
|
Allows to keep track of widgets to delete when removing them.")
|
2015-04-04 14:33:04 +00:00
|
|
|
|
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(defvar spacemacs-buffer--current-note-type nil
|
|
|
|
|
"Type of note currently displayed.")
|
2015-04-15 14:30:25 +00:00
|
|
|
|
|
2016-04-03 06:51:44 +00:00
|
|
|
|
(defvar spacemacs-buffer--fresh-install
|
|
|
|
|
(not (file-exists-p dotspacemacs-filepath))
|
|
|
|
|
"Non-nil if this Emacs instance if a fresh install.")
|
|
|
|
|
|
2016-09-03 10:47:58 +00:00
|
|
|
|
(defvar spacemacs-buffer--buttons-position nil
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Horizontal position of the home buffer buttons.
|
|
|
|
|
Internal use, do not set this variable.")
|
2016-09-03 10:47:58 +00:00
|
|
|
|
|
2015-10-16 14:08:08 +00:00
|
|
|
|
(defvar spacemacs-buffer-mode-map
|
|
|
|
|
(let ((map (make-sparse-keymap)))
|
2016-10-09 16:31:04 +00:00
|
|
|
|
(define-key map [down-mouse-1] 'widget-button-click)
|
|
|
|
|
(define-key map (kbd "RET") 'widget-button-press)
|
|
|
|
|
|
2015-10-16 14:08:08 +00:00
|
|
|
|
(define-key map [tab] 'widget-forward)
|
2016-10-09 16:31:04 +00:00
|
|
|
|
(define-key map (kbd "J") 'widget-forward)
|
2015-10-16 14:08:08 +00:00
|
|
|
|
(define-key map (kbd "C-i") 'widget-forward)
|
2016-10-09 16:31:04 +00:00
|
|
|
|
|
2015-10-16 14:08:08 +00:00
|
|
|
|
(define-key map [backtab] 'widget-backward)
|
2016-10-09 16:31:04 +00:00
|
|
|
|
(define-key map (kbd "K") 'widget-backward)
|
|
|
|
|
|
2016-05-13 06:26:34 +00:00
|
|
|
|
(define-key map (kbd "C-r") 'spacemacs-buffer/refresh)
|
2016-10-09 16:31:04 +00:00
|
|
|
|
(define-key map "q" 'quit-window)
|
2015-10-16 14:08:08 +00:00
|
|
|
|
map)
|
|
|
|
|
"Keymap for spacemacs buffer mode.")
|
|
|
|
|
|
2016-01-07 17:02:47 +00:00
|
|
|
|
(with-eval-after-load 'evil
|
|
|
|
|
(evil-make-overriding-map spacemacs-buffer-mode-map 'motion))
|
|
|
|
|
|
2016-01-09 04:34:34 +00:00
|
|
|
|
(define-derived-mode spacemacs-buffer-mode fundamental-mode "Spacemacs buffer"
|
2016-11-29 13:12:36 +00:00
|
|
|
|
"Spacemacs major mode for startup screen."
|
2015-10-16 14:08:08 +00:00
|
|
|
|
:group 'spacemacs
|
|
|
|
|
:syntax-table nil
|
|
|
|
|
:abbrev-table nil
|
2016-06-05 04:04:53 +00:00
|
|
|
|
(page-break-lines-mode)
|
2016-01-09 04:34:34 +00:00
|
|
|
|
(setq buffer-read-only t
|
|
|
|
|
truncate-lines t)
|
2015-10-16 14:08:08 +00:00
|
|
|
|
;; needed to make tab work correctly in terminal
|
2016-02-01 01:24:13 +00:00
|
|
|
|
(evil-define-key 'motion spacemacs-buffer-mode-map
|
|
|
|
|
(kbd "C-i") 'widget-forward)
|
2015-10-16 14:08:08 +00:00
|
|
|
|
;; motion state since this is a special mode
|
Use evil in holy-mode
Motivation
While disabling Evil in holy-mode makes its implementation shorter and
sounds elegant on the paper, in practice it puts a big burden on the
configuration parts which need to know if Evil is enable or not. This is
a bad separation of concerns and the bunch of fixes that we were forced
to do in the past weeks shows this issue. Those fixes were about
removing the knowledge of the activation of Evil by implementing new
dispatching functions to be used by layers, this is cumbersome and makes
Spacemacs layer configuration more subtle which is not good. There was
additional bad consequences of the removal of Evil state like the
impossibility to use Evil lisp state or iedit states, or we would have
been forced to implement a temporary activation of Evil which is
awkward.
Instead I reintroduce Evil as the central piece of Spacemacs design thus
Evil is now re-enabled in holy-mode. It provides the abstraction we need
to isolate editing styles and be able to grow the Spacemacs
configuration coverage sanely. Layers don't need to check whether the
holy mode is active or not and they don't need to know if Evil is
available (it is always available). We also don't need to write
additional dispatching functions, this is the job of Evil, and I think
it provides everything for this. Ideally configuration layer should be
implemented with only Evil in mind and the holy-mode (and hybrid-mode)
should magically make it work for Emacs style users, for instance we can
freely use `evil-insert-state` anywhere in the code without any guard.
Evil is now even more part of Spacemacs, we can really say that
Spacemacs is Emacs+Evil which is now an indivisible pair. Spacemacs
needed this stable API to continue on the right track.
While these changes should be rather transparent to the user, I'm sorry
for this experimental period, I failed to see all the implications of
such a change, I was just excited about the possibility to make Evil
optional. The reality is that Spacemacs has to embrace it and keep its
strong position on being Emacs+Evil at the core.
Implementation
- insert, motion and normal states are forced to emacs state using an
advice on `evil-insert-state`, `evil-motion-state` and
`evil-normal-state` respectively. These functions can be used freely in
the layer configuration.
- A new general hook `spacemacs-editing-style-hook` allow to hook any
code that need to be configured based on the editing style. Functions
hooked to this hook takes the current style as parameter, this
basically generalize the hook used to setup hjkl navigation bindings.
- ESC has been removed from the emacs state map.
- Revert unneeded changes
- Revert "evil: enter insert-state only from normal-state"
commit bdd702dfbe302206bbc989c7a0832daba087a781.
- Revert "avoid being evil in deft with emacs editing style"
commit f3a16f49ed27cc8cf05f23f93b006d6e04235381.
Additional changes
All editing style packages have been moved to a layer called
`spacemacs-editing-styles`
Notes
I did not have time to attack hybrid mode, I should be able to do it
later.
2016-03-13 23:41:18 +00:00
|
|
|
|
(evil-set-initial-state 'spacemacs-buffer-mode 'motion))
|
2015-10-16 14:08:08 +00:00
|
|
|
|
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(defun spacemacs-buffer//insert-ascii-banner-centered (file)
|
|
|
|
|
"Insert the ascii banner contain in file and center it in the window.
|
|
|
|
|
FILE: the path to the file containing the banner."
|
|
|
|
|
(insert
|
2016-07-05 17:50:57 +00:00
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert-file-contents file)
|
|
|
|
|
(let ((banner-width 0))
|
|
|
|
|
(while (not (eobp))
|
2016-09-03 10:47:58 +00:00
|
|
|
|
(let ((line-length (- (line-end-position) (line-beginning-position))))
|
|
|
|
|
(if (< banner-width line-length)
|
|
|
|
|
(setq banner-width line-length)))
|
|
|
|
|
(forward-line 1))
|
2016-07-05 17:50:57 +00:00
|
|
|
|
(goto-char 0)
|
2016-10-29 02:04:42 +00:00
|
|
|
|
(let ((margin (max 0 (floor (/ (- spacemacs-buffer--window-width
|
2016-10-27 17:43:22 +00:00
|
|
|
|
banner-width) 2)))))
|
2016-09-03 10:47:58 +00:00
|
|
|
|
(while (not (eobp))
|
2016-11-29 13:12:36 +00:00
|
|
|
|
(insert (make-string margin ?\s))
|
2016-09-03 10:47:58 +00:00
|
|
|
|
(forward-line 1))))
|
2016-07-05 17:50:57 +00:00
|
|
|
|
(buffer-string))))
|
|
|
|
|
|
2015-04-12 04:24:03 +00:00
|
|
|
|
(defun spacemacs-buffer/insert-banner-and-buttons ()
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Choose a banner according to `dotspacemacs-startup-banner'and insert it.
|
2015-07-29 19:40:22 +00:00
|
|
|
|
in spacemacs buffer along with quick buttons underneath.
|
2015-03-13 03:55:38 +00:00
|
|
|
|
Easter egg:
|
|
|
|
|
Doge special text banner can be reachable via `999', `doge' or `random*'.
|
2016-05-30 03:27:31 +00:00
|
|
|
|
Cate special text banner can de reachable via `998', `cat' or `random*'.
|
2015-01-26 03:36:07 +00:00
|
|
|
|
`random' ignore special banners whereas `random*' does not."
|
2015-04-12 04:24:03 +00:00
|
|
|
|
(let ((banner (spacemacs-buffer//choose-banner))
|
2015-01-26 03:36:07 +00:00
|
|
|
|
(buffer-read-only nil))
|
2015-07-29 19:40:22 +00:00
|
|
|
|
(progn
|
|
|
|
|
(when banner
|
|
|
|
|
(spacemacs-buffer/message (format "Banner: %s" banner))
|
|
|
|
|
(if (image-type-available-p (intern (file-name-extension banner)))
|
|
|
|
|
(spacemacs-buffer//insert-image-banner banner)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(spacemacs-buffer//insert-ascii-banner-centered banner))
|
2016-06-05 04:15:02 +00:00
|
|
|
|
(spacemacs-buffer//inject-version))
|
2015-04-12 04:24:03 +00:00
|
|
|
|
(spacemacs-buffer//insert-buttons)
|
2015-03-13 03:55:38 +00:00
|
|
|
|
(spacemacs//redisplay))))
|
2015-01-26 03:36:07 +00:00
|
|
|
|
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(defun spacemacs-buffer/display-startup-note ()
|
|
|
|
|
"Decide of the startup note and display it if relevant."
|
2016-04-03 06:51:44 +00:00
|
|
|
|
(when (file-exists-p spacemacs-buffer--cache-file)
|
|
|
|
|
(load spacemacs-buffer--cache-file))
|
|
|
|
|
(cond
|
|
|
|
|
(spacemacs-buffer--fresh-install
|
|
|
|
|
;; we assume the user is new to spacemacs and open the quickhelp
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(spacemacs-buffer/toggle-note 'quickhelp)
|
2016-04-03 06:51:44 +00:00
|
|
|
|
(setq spacemacs-buffer--release-note-version spacemacs-version)
|
|
|
|
|
(spacemacs/dump-vars-to-file '(spacemacs-buffer--release-note-version)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
spacemacs-buffer--cache-file))
|
2016-04-03 06:51:44 +00:00
|
|
|
|
((or (not spacemacs-buffer--release-note-version)
|
|
|
|
|
(version< spacemacs-buffer--release-note-version
|
|
|
|
|
spacemacs-version))
|
2017-01-25 05:28:15 +00:00
|
|
|
|
;; check the variable spacemacs-buffer--release-note-version
|
|
|
|
|
;; to decide whether we show the release note
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(spacemacs-buffer/toggle-note 'release-note)))
|
2016-04-03 06:51:44 +00:00
|
|
|
|
(spacemacs//redisplay))
|
|
|
|
|
|
2015-04-12 04:24:03 +00:00
|
|
|
|
(defun spacemacs-buffer//choose-banner ()
|
2015-03-09 02:09:09 +00:00
|
|
|
|
"Return the full path of a banner based on the dotfile value."
|
2015-09-07 16:52:09 +00:00
|
|
|
|
(when dotspacemacs-startup-banner
|
|
|
|
|
(cond ((eq 'official dotspacemacs-startup-banner)
|
|
|
|
|
(if (and (display-graphic-p) (image-type-available-p 'png))
|
|
|
|
|
spacemacs-banner-official-png
|
|
|
|
|
(spacemacs-buffer//get-banner-path 1)))
|
|
|
|
|
((eq 'random dotspacemacs-startup-banner)
|
|
|
|
|
(spacemacs-buffer//choose-random-text-banner))
|
|
|
|
|
((eq 'random* dotspacemacs-startup-banner)
|
|
|
|
|
(spacemacs-buffer//choose-random-text-banner t))
|
|
|
|
|
((eq 'doge dotspacemacs-startup-banner)
|
|
|
|
|
(spacemacs-buffer//get-banner-path 999))
|
2016-05-30 03:27:31 +00:00
|
|
|
|
((eq 'cat dotspacemacs-startup-banner)
|
2016-05-27 00:18:48 +00:00
|
|
|
|
(spacemacs-buffer//get-banner-path 998))
|
2015-09-07 16:52:09 +00:00
|
|
|
|
((integerp dotspacemacs-startup-banner)
|
|
|
|
|
(spacemacs-buffer//get-banner-path dotspacemacs-startup-banner))
|
|
|
|
|
((and dotspacemacs-startup-banner
|
|
|
|
|
(image-type-available-p (intern (file-name-extension
|
|
|
|
|
dotspacemacs-startup-banner)))
|
|
|
|
|
(display-graphic-p))
|
|
|
|
|
(if (file-exists-p dotspacemacs-startup-banner)
|
|
|
|
|
dotspacemacs-startup-banner
|
|
|
|
|
(spacemacs-buffer/warning (format "could not find banner %s"
|
|
|
|
|
dotspacemacs-startup-banner))
|
|
|
|
|
(spacemacs-buffer//get-banner-path 1)))
|
|
|
|
|
(t (spacemacs-buffer//get-banner-path 1)))))
|
2015-03-09 02:09:09 +00:00
|
|
|
|
|
2016-08-31 16:33:48 +00:00
|
|
|
|
(defvar spacemacs-buffer--random-banner nil
|
|
|
|
|
"The random banner chosen.")
|
|
|
|
|
|
2015-04-12 04:24:03 +00:00
|
|
|
|
(defun spacemacs-buffer//choose-random-text-banner (&optional all)
|
2015-01-26 03:36:07 +00:00
|
|
|
|
"Return the full path of a banner chosen randomly.
|
|
|
|
|
If ALL is non-nil then truly all banners can be selected."
|
2016-08-31 16:33:48 +00:00
|
|
|
|
(setq spacemacs-buffer--random-banner
|
|
|
|
|
(or spacemacs-buffer--random-banner
|
|
|
|
|
(let* ((files (directory-files spacemacs-banner-directory t ".*\.txt"))
|
|
|
|
|
(count (length files))
|
|
|
|
|
;; -2 to remove the two last ones (easter eggs)
|
|
|
|
|
(choice (random (- count (if all 0 2)))))
|
|
|
|
|
(nth choice files)))))
|
2015-01-26 03:36:07 +00:00
|
|
|
|
|
2015-04-12 04:24:03 +00:00
|
|
|
|
(defun spacemacs-buffer//get-banner-path (index)
|
2015-01-26 03:36:07 +00:00
|
|
|
|
"Return the full path to banner with index INDEX."
|
|
|
|
|
(concat spacemacs-banner-directory (format "%03d-banner.txt" index)))
|
|
|
|
|
|
2015-04-12 04:24:03 +00:00
|
|
|
|
(defun spacemacs-buffer//insert-image-banner (banner)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Display an image banner.
|
|
|
|
|
BANNER: the path to an ascii banner file."
|
2015-03-13 03:55:38 +00:00
|
|
|
|
(when (file-exists-p banner)
|
2016-04-01 03:44:00 +00:00
|
|
|
|
(let* ((title spacemacs-buffer-logo-title)
|
2015-07-30 02:07:27 +00:00
|
|
|
|
(spec (create-image banner))
|
2015-03-13 03:55:38 +00:00
|
|
|
|
(size (image-size spec))
|
|
|
|
|
(width (car size))
|
2016-10-29 02:04:42 +00:00
|
|
|
|
(left-margin (max 0 (floor (- spacemacs-buffer--window-width width) 2))))
|
2015-12-16 14:45:08 +00:00
|
|
|
|
(goto-char (point-min))
|
2016-06-05 04:15:02 +00:00
|
|
|
|
(insert "\n")
|
2016-11-29 13:12:36 +00:00
|
|
|
|
(insert (make-string left-margin ?\s))
|
2015-03-13 03:55:38 +00:00
|
|
|
|
(insert-image spec)
|
|
|
|
|
(insert "\n\n")
|
2016-10-29 02:04:42 +00:00
|
|
|
|
(insert (make-string (max 0 (floor (/ (- spacemacs-buffer--window-width
|
2016-11-29 13:12:36 +00:00
|
|
|
|
(+ (length title) 1)) 2))) ?\s))
|
2015-07-30 02:07:27 +00:00
|
|
|
|
(insert (format "%s\n\n" title)))))
|
2015-03-13 03:55:38 +00:00
|
|
|
|
|
2016-06-05 04:15:02 +00:00
|
|
|
|
(defun spacemacs-buffer//inject-version ()
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Inject the current version of spacemacs.
|
|
|
|
|
Insert it in the first line of the buffer, right justified."
|
2016-04-01 03:44:00 +00:00
|
|
|
|
(with-current-buffer (get-buffer-create spacemacs-buffer-name)
|
2015-09-12 03:04:01 +00:00
|
|
|
|
(save-excursion
|
2016-11-29 13:12:36 +00:00
|
|
|
|
(let ((version (format "%s@%s (%s)"
|
2016-06-05 04:15:02 +00:00
|
|
|
|
spacemacs-version
|
|
|
|
|
emacs-version
|
|
|
|
|
dotspacemacs-distribution))
|
|
|
|
|
(buffer-read-only nil))
|
2015-10-30 23:09:26 +00:00
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(delete-region (point) (progn (end-of-line) (point)))
|
2016-11-29 13:12:36 +00:00
|
|
|
|
(insert (format (format "%%%ds"
|
|
|
|
|
spacemacs-buffer--window-width)
|
|
|
|
|
version))))))
|
2015-01-26 03:36:07 +00:00
|
|
|
|
|
2016-06-05 04:04:53 +00:00
|
|
|
|
(defun spacemacs-buffer//insert-footer ()
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Insert the footer of the home buffer."
|
2016-06-05 04:04:53 +00:00
|
|
|
|
(save-excursion
|
2016-11-29 13:12:36 +00:00
|
|
|
|
(let* ((badge-path spacemacs-badge-official-png)
|
2016-06-13 09:20:38 +00:00
|
|
|
|
(badge (when (and (display-graphic-p)
|
|
|
|
|
(image-type-available-p
|
2016-06-24 22:47:14 +00:00
|
|
|
|
(intern (file-name-extension badge-path))))
|
|
|
|
|
(create-image badge-path)))
|
2016-06-05 04:04:53 +00:00
|
|
|
|
(badge-size (when badge (car (image-size badge))))
|
|
|
|
|
(heart-path spacemacs-purple-heart-png)
|
2016-06-13 09:20:38 +00:00
|
|
|
|
(heart (when (and (display-graphic-p)
|
|
|
|
|
(image-type-available-p
|
2016-06-24 22:47:14 +00:00
|
|
|
|
(intern (file-name-extension badge-path))))
|
|
|
|
|
(create-image heart-path)))
|
2016-06-05 04:04:53 +00:00
|
|
|
|
(heart-size (when heart (car (image-size heart))))
|
|
|
|
|
(build-lhs "Made with ")
|
|
|
|
|
(build-rhs " by the community")
|
|
|
|
|
(buffer-read-only nil))
|
|
|
|
|
(when (or badge heart)
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
(spacemacs-buffer/insert-page-break)
|
2016-06-05 04:15:02 +00:00
|
|
|
|
(insert "\n")
|
2016-06-05 04:04:53 +00:00
|
|
|
|
(when badge
|
2016-11-29 13:12:36 +00:00
|
|
|
|
(insert-image badge)
|
|
|
|
|
(spacemacs-buffer//center-line badge-size))
|
2016-06-05 04:04:53 +00:00
|
|
|
|
(when heart
|
|
|
|
|
(when badge (insert "\n\n"))
|
|
|
|
|
(insert build-lhs)
|
|
|
|
|
(insert-image heart)
|
|
|
|
|
(insert build-rhs)
|
2016-11-29 13:12:36 +00:00
|
|
|
|
(spacemacs-buffer//center-line (+ (length build-lhs)
|
|
|
|
|
heart-size
|
|
|
|
|
(length build-rhs)))
|
2016-06-05 04:04:53 +00:00
|
|
|
|
(insert "\n"))))))
|
|
|
|
|
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(defun spacemacs-buffer//notes-render-framed-text
|
|
|
|
|
(content &optional topcaption botcaption hpadding max-width min-width)
|
|
|
|
|
"Return a formated string framed with plained lines.
|
|
|
|
|
The width of the created frame is the width of the content, unless it does not
|
|
|
|
|
satisfy max-width or min-width. Note that max-width can be limited by the
|
|
|
|
|
window's width.
|
|
|
|
|
CONTENT can be a text or a filepath.
|
|
|
|
|
TOPCAPTION is a text to be encrusted at the top of the frame.
|
|
|
|
|
BOTCAPTION is a text to be encrusted at the bottom of the frame.
|
|
|
|
|
HPADDING is the horizontal spacing between the text and the frame. The vertical
|
|
|
|
|
spacing is always one line.
|
|
|
|
|
MAX-WIDTH is the maximum width of the frame, frame included. When
|
|
|
|
|
`dotspacemacs-startup-buffer-responsive' is t, MAX-WIDTH will be
|
|
|
|
|
limited to the window's width. MAX-WIDTH takes precedence over
|
|
|
|
|
MIN-WIDTH.
|
|
|
|
|
MIN-WIDTH is the minimal width of the frame, frame included. The frame will not
|
|
|
|
|
shrink any thinner than MIN-WIDTH characters unless MAX-WIDTH says
|
|
|
|
|
otherwise."
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(if (not (file-exists-p content))
|
|
|
|
|
(insert content)
|
|
|
|
|
(insert-file-contents content)
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
(when (eq ?\n (char-before)) ;; remove additional newline at eof
|
|
|
|
|
(delete-char -1)))
|
|
|
|
|
(let* ((hpadding (if hpadding hpadding 1))
|
|
|
|
|
(text-width (spacemacs-buffer//get-buffer-width))
|
|
|
|
|
(width (+ 2 (* 2 hpadding) text-width))
|
|
|
|
|
(fill-column text-width)
|
|
|
|
|
(sentence-end-double-space nil) ; needed by fill-region
|
2016-11-05 00:10:15 +00:00
|
|
|
|
(paragraph-start "\f\\|[ \t]*$\\|[ \t]*[-+*] \\|[ \t]*[0-9]+[.)] ")
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(topcaption-length (if topcaption (length topcaption) 0))
|
|
|
|
|
(botcaption-length (if botcaption (length botcaption) 0)))
|
|
|
|
|
(setq max-width (or max-width width)
|
|
|
|
|
min-width (or min-width 1)
|
|
|
|
|
max-width (if (< max-width min-width) min-width max-width)
|
2016-10-29 02:04:42 +00:00
|
|
|
|
max-width (if (> max-width spacemacs-buffer--window-width)
|
|
|
|
|
spacemacs-buffer--window-width
|
|
|
|
|
max-width))
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(when (< width min-width)
|
|
|
|
|
(setq width min-width
|
|
|
|
|
fill-column (max 0 (- min-width 2 (* hpadding 2)))))
|
|
|
|
|
(when (> width max-width)
|
|
|
|
|
(setq width max-width
|
|
|
|
|
fill-column (max 0 (- max-width 2 (* hpadding 2)))))
|
|
|
|
|
(spacemacs-buffer||notes-adapt-caption-to-width topcaption
|
|
|
|
|
topcaption-length
|
|
|
|
|
width)
|
|
|
|
|
(spacemacs-buffer||notes-adapt-caption-to-width botcaption
|
|
|
|
|
botcaption-length
|
|
|
|
|
width)
|
|
|
|
|
(fill-region (point-min) (point-max) nil nil)
|
|
|
|
|
(concat
|
|
|
|
|
"╭─" (when topcaption (propertize (concat " " topcaption " ")
|
|
|
|
|
'face
|
|
|
|
|
'(:weight bold)))
|
|
|
|
|
(make-string (max 0 (- width (if topcaption 6 4) topcaption-length)) ?─) "─╮\n"
|
|
|
|
|
(spacemacs-buffer//notes-render-framed-line "" width hpadding)
|
|
|
|
|
(mapconcat (lambda (line)
|
|
|
|
|
(spacemacs-buffer//notes-render-framed-line line width hpadding))
|
|
|
|
|
(split-string (buffer-string) "\n" nil) "")
|
|
|
|
|
(spacemacs-buffer//notes-render-framed-line "" width hpadding)
|
|
|
|
|
"╰─" (when botcaption (propertize (concat " " botcaption " ")
|
|
|
|
|
'face '(:weight bold)))
|
|
|
|
|
(make-string (max 0 (- width (if botcaption 6 4) botcaption-length)) ?─)
|
|
|
|
|
"─╯" (when botcaption "\n")))))
|
2015-04-15 14:30:25 +00:00
|
|
|
|
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(defmacro spacemacs-buffer||notes-adapt-caption-to-width (caption
|
|
|
|
|
caption-length
|
|
|
|
|
width)
|
|
|
|
|
"Adapt caption string's length to the note's frame current width.
|
|
|
|
|
For internal use in `spacemacs-buffer//notes-render-framed-text'.
|
|
|
|
|
CAPTION: string to be encrusted onto the note's frame
|
|
|
|
|
CAPTION-LENGTH: length of the caption
|
|
|
|
|
WIDTH: current external width of the note's frame."
|
|
|
|
|
`(when (> ,caption-length (- ,width 6)) ; minimum frame width is 6
|
|
|
|
|
(if (> ,width 8)
|
|
|
|
|
(setq ,caption (concat (substring ,caption
|
|
|
|
|
0
|
|
|
|
|
(min -3 (- (- ,width 6 3)
|
|
|
|
|
,caption-length)))
|
|
|
|
|
"..."))
|
|
|
|
|
(setq ,caption nil
|
|
|
|
|
,caption-length 0))))
|
2015-04-15 14:30:25 +00:00
|
|
|
|
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(defun spacemacs-buffer//notes-render-framed-line (line width hpadding)
|
|
|
|
|
"Return a formated LINE with borders of a frame on each side.
|
|
|
|
|
WIDTH: external width of the frame. LINE should be shorter than WIDTH.
|
|
|
|
|
HPADDING: horizontal padding on both sides of the framed string."
|
|
|
|
|
(let ((fill (max 0 (- width 2 hpadding (length line)))))
|
|
|
|
|
(concat "│" (make-string hpadding ?\s) line (make-string fill ?\s)
|
|
|
|
|
"│\n")))
|
2015-04-15 14:30:25 +00:00
|
|
|
|
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(defun spacemacs-buffer//notes-insert-note
|
2016-10-27 16:02:59 +00:00
|
|
|
|
(file topcaption botcaption &optional additional-widgets)
|
|
|
|
|
"Insert the release note just under the banner.
|
2016-10-27 17:43:22 +00:00
|
|
|
|
FILE: the file that contains the content to show.
|
|
|
|
|
TOPCAPTION: the title of the note.
|
|
|
|
|
BOTCAPTION: a text to be encrusted at the bottom of the frame.
|
|
|
|
|
ADDITIONAL-WIDGETS: a function for inserting a widget under the frame."
|
2016-10-27 16:02:59 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(search-forward "Search in Spacemacs\]") ; TODO: this is dirty
|
|
|
|
|
(forward-line)
|
|
|
|
|
(let* ((buffer-read-only nil)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(note (concat "\n"
|
|
|
|
|
(spacemacs-buffer//notes-render-framed-text file
|
|
|
|
|
topcaption
|
|
|
|
|
botcaption
|
|
|
|
|
2
|
|
|
|
|
nil
|
|
|
|
|
80))))
|
2016-10-27 16:02:59 +00:00
|
|
|
|
(save-restriction
|
|
|
|
|
(narrow-to-region (point) (point))
|
|
|
|
|
(add-to-list 'spacemacs-buffer--note-widgets (widget-create 'text note))
|
2016-10-29 02:04:42 +00:00
|
|
|
|
(let* ((width (spacemacs-buffer//get-buffer-width))
|
|
|
|
|
(padding (max 0 (floor (/ (- spacemacs-buffer--window-width
|
|
|
|
|
width) 2)))))
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(while (not (eobp))
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
(insert (make-string padding ?\s))
|
|
|
|
|
(forward-line))))
|
|
|
|
|
(save-excursion
|
2016-10-27 16:02:59 +00:00
|
|
|
|
(while (re-search-backward "\\[\\[\\(.*\\)\\]\\]" nil t)
|
|
|
|
|
(make-text-button (match-beginning 1)
|
|
|
|
|
(match-end 1)
|
|
|
|
|
'type 'help-url
|
|
|
|
|
'help-args (list (match-string 1)))))
|
|
|
|
|
(funcall additional-widgets)
|
2016-10-29 02:04:42 +00:00
|
|
|
|
(spacemacs-buffer//center-line)
|
|
|
|
|
(delete-trailing-whitespace (line-beginning-position)
|
|
|
|
|
(line-end-position)))))
|
2016-10-27 16:02:59 +00:00
|
|
|
|
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(defun spacemacs-buffer//notes-insert-quickhelp ()
|
|
|
|
|
"Insert quickhelp."
|
2016-02-01 01:24:13 +00:00
|
|
|
|
(let ((widget-func
|
|
|
|
|
(lambda ()
|
|
|
|
|
(add-to-list
|
|
|
|
|
'spacemacs-buffer--note-widgets
|
|
|
|
|
(widget-create 'push-button
|
|
|
|
|
:tag (propertize "Evil Tutorial"
|
|
|
|
|
'face 'font-lock-keyword-face)
|
|
|
|
|
:help-echo
|
|
|
|
|
"Teach you how to use Vim basics."
|
|
|
|
|
:action (lambda (&rest ignore)
|
|
|
|
|
(call-interactively #'evil-tutor-start))
|
|
|
|
|
:mouse-face 'highlight
|
|
|
|
|
:follow-link "\C-m"))
|
|
|
|
|
(widget-insert " ")
|
|
|
|
|
(add-to-list
|
|
|
|
|
'spacemacs-buffer--note-widgets
|
|
|
|
|
(widget-create 'push-button
|
|
|
|
|
:tag (propertize "Emacs Tutorial"
|
|
|
|
|
'face 'font-lock-keyword-face)
|
|
|
|
|
:help-echo "Teach you how to use Emacs basics."
|
|
|
|
|
:action (lambda (&rest ignore)
|
|
|
|
|
(call-interactively #'help-with-tutorial))
|
|
|
|
|
:mouse-face 'highlight
|
|
|
|
|
:follow-link "\C-m"))
|
|
|
|
|
(widget-insert " ")
|
|
|
|
|
(add-to-list
|
|
|
|
|
'spacemacs-buffer--note-widgets
|
|
|
|
|
(widget-create 'push-button
|
|
|
|
|
:tag (propertize "Vim Migration Guide"
|
|
|
|
|
'face 'font-lock-keyword-face)
|
|
|
|
|
:help-echo "Documentation for former vim users."
|
|
|
|
|
:action (lambda (&rest ignore)
|
|
|
|
|
(spacemacs/view-org-file
|
|
|
|
|
(concat spacemacs-docs-directory
|
|
|
|
|
"VIMUSERS.org") "^" 'all))
|
|
|
|
|
:mouse-face 'highlight
|
|
|
|
|
:follow-link "\C-m")))))
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(spacemacs-buffer//notes-insert-note (concat spacemacs-info-directory
|
|
|
|
|
"quickhelp.txt")
|
|
|
|
|
"Quick Help"
|
|
|
|
|
nil
|
|
|
|
|
widget-func)))
|
|
|
|
|
|
|
|
|
|
(defun spacemacs-buffer//notes-insert-release-note ()
|
|
|
|
|
"Insert release note."
|
2016-02-01 01:24:13 +00:00
|
|
|
|
(let ((widget-func
|
|
|
|
|
(lambda ()
|
|
|
|
|
(add-to-list
|
|
|
|
|
'spacemacs-buffer--note-widgets
|
|
|
|
|
(widget-create 'push-button
|
|
|
|
|
:tag (propertize "Click here for full change log"
|
|
|
|
|
'face 'font-lock-warning-face)
|
|
|
|
|
:help-echo "Open the full change log."
|
2016-04-01 03:44:00 +00:00
|
|
|
|
:action
|
|
|
|
|
(lambda (&rest ignore)
|
|
|
|
|
(funcall 'spacemacs/view-org-file
|
2016-06-23 04:19:12 +00:00
|
|
|
|
(concat spacemacs-start-directory
|
2016-04-01 03:44:00 +00:00
|
|
|
|
"CHANGELOG.org")
|
|
|
|
|
(format "Release %s.x"
|
|
|
|
|
spacemacs-buffer-version-info)
|
|
|
|
|
'subtree))
|
2016-02-01 01:24:13 +00:00
|
|
|
|
:mouse-face 'highlight
|
|
|
|
|
:follow-link "\C-m")))))
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(spacemacs-buffer//notes-insert-note (concat spacemacs-release-notes-directory
|
|
|
|
|
spacemacs-buffer-version-info
|
|
|
|
|
".txt")
|
|
|
|
|
(format "Important Notes (Release %s.x)"
|
|
|
|
|
spacemacs-buffer-version-info)
|
|
|
|
|
"Update your dotfile (SPC f e D) and\
|
2016-10-27 16:02:59 +00:00
|
|
|
|
packages after every update"
|
2016-10-27 17:43:22 +00:00
|
|
|
|
widget-func))
|
2015-04-15 14:30:25 +00:00
|
|
|
|
(setq spacemacs-buffer--release-note-version nil)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(spacemacs/dump-vars-to-file '(spacemacs-buffer--release-note-version)
|
|
|
|
|
spacemacs-buffer--cache-file))
|
2015-04-15 14:30:25 +00:00
|
|
|
|
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(defun spacemacs-buffer//notes-clear-notes-and-widgets ()
|
|
|
|
|
"Remove existing note widgets if exists."
|
|
|
|
|
(when spacemacs-buffer--note-widgets
|
|
|
|
|
(mapc 'widget-delete spacemacs-buffer--note-widgets)
|
|
|
|
|
(setq spacemacs-buffer--note-widgets nil)
|
|
|
|
|
(setq spacemacs-buffer--release-note-version spacemacs-version)
|
|
|
|
|
(spacemacs/dump-vars-to-file
|
|
|
|
|
'(spacemacs-buffer--release-note-version) spacemacs-buffer--cache-file)))
|
|
|
|
|
|
|
|
|
|
(defun spacemacs-buffer//notes-redisplay-current-note ()
|
|
|
|
|
"Delete and rediplay the currently displayed note."
|
|
|
|
|
(spacemacs-buffer//notes-clear-notes-and-widgets)
|
|
|
|
|
(let ((type spacemacs-buffer--current-note-type))
|
|
|
|
|
(cond
|
|
|
|
|
((eq type 'quickhelp) (spacemacs-buffer//notes-insert-quickhelp))
|
|
|
|
|
((eq type 'release-note) (spacemacs-buffer//notes-insert-release-note))
|
|
|
|
|
(t))))
|
|
|
|
|
|
|
|
|
|
(defun spacemacs-buffer/toggle-note (type)
|
|
|
|
|
"Toggle the displayed note based on TYPE.
|
|
|
|
|
If TYPE is nil or unknown, just remove the currently displayed note. Currently
|
|
|
|
|
allowed types are `quickhelp' and `release-note'"
|
|
|
|
|
(spacemacs-buffer//notes-clear-notes-and-widgets)
|
|
|
|
|
(if (or (eq spacemacs-buffer--current-note-type nil)
|
|
|
|
|
(not (eq spacemacs-buffer--current-note-type type)))
|
|
|
|
|
(progn
|
|
|
|
|
(setq spacemacs-buffer--current-note-type type)
|
|
|
|
|
(cond
|
|
|
|
|
((eq type 'quickhelp) (spacemacs-buffer//notes-insert-quickhelp))
|
|
|
|
|
((eq type 'release-note) (spacemacs-buffer//notes-insert-release-note))
|
|
|
|
|
(t (setq spacemacs-buffer--current-note-type nil)
|
|
|
|
|
(message "Unknown note type: %s" 'type))))
|
|
|
|
|
(setq spacemacs-buffer--current-note-type nil)))
|
2015-04-04 14:33:04 +00:00
|
|
|
|
|
2015-04-12 04:24:03 +00:00
|
|
|
|
(defun spacemacs-buffer/set-mode-line (format)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Set mode-line format for spacemacs buffer.
|
|
|
|
|
FORMAT: the `mode-line-format' variable Emacs will use to build the mode-line."
|
2016-04-01 03:44:00 +00:00
|
|
|
|
(with-current-buffer (get-buffer-create spacemacs-buffer-name)
|
2015-03-16 05:28:21 +00:00
|
|
|
|
(setq mode-line-format format)))
|
|
|
|
|
|
2015-04-12 04:24:03 +00:00
|
|
|
|
(defun spacemacs-buffer/message (msg &rest args)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Display MSG in *Messages* prepended with '(Spacemacs)'.
|
|
|
|
|
The message is displayed only if `init-file-debug' is non nil.
|
|
|
|
|
ARGS: format string arguments."
|
2015-10-07 19:29:20 +00:00
|
|
|
|
(when init-file-debug
|
2015-04-06 03:45:02 +00:00
|
|
|
|
(message "(Spacemacs) %s" (apply 'format msg args))))
|
2015-01-26 03:36:07 +00:00
|
|
|
|
|
2016-10-10 13:39:03 +00:00
|
|
|
|
(defvar spacemacs-buffer--warnings nil
|
|
|
|
|
"List of warnings during startup.")
|
|
|
|
|
|
2015-04-12 16:25:53 +00:00
|
|
|
|
(defun spacemacs-buffer/warning (msg &rest args)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Display MSG as a warning message but in buffer `*Messages*'.
|
|
|
|
|
ARGS: format string arguments."
|
2016-10-10 13:39:03 +00:00
|
|
|
|
(let ((msg (apply 'format msg args)))
|
|
|
|
|
(message "(Spacemacs) Warning: %s" msg)
|
2016-10-20 13:32:03 +00:00
|
|
|
|
(when message-log-max
|
|
|
|
|
(add-to-list 'spacemacs-buffer--warnings msg 'append))))
|
2015-04-12 16:25:53 +00:00
|
|
|
|
|
2015-04-12 04:24:03 +00:00
|
|
|
|
(defun spacemacs-buffer/insert-page-break ()
|
2015-04-03 02:23:16 +00:00
|
|
|
|
"Insert a page break line in spacemacs buffer."
|
2016-06-05 04:15:02 +00:00
|
|
|
|
(spacemacs-buffer/append "\n\n"))
|
2015-04-03 02:23:16 +00:00
|
|
|
|
|
2015-04-12 04:24:03 +00:00
|
|
|
|
(defun spacemacs-buffer/append (msg &optional messagebuf)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Append MSG to spacemacs buffer.
|
|
|
|
|
If MESSAGEBUF is not nil then MSG is also written in message buffer."
|
2016-04-01 03:44:00 +00:00
|
|
|
|
(with-current-buffer (get-buffer-create spacemacs-buffer-name)
|
2015-01-26 03:36:07 +00:00
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
(let ((buffer-read-only nil))
|
|
|
|
|
(insert msg)
|
2017-01-31 16:54:19 +00:00
|
|
|
|
(when messagebuf
|
|
|
|
|
(message "(Spacemacs) %s" msg)))))
|
2015-01-26 03:36:07 +00:00
|
|
|
|
|
2015-04-12 04:24:03 +00:00
|
|
|
|
(defun spacemacs-buffer/replace-last-line (msg &optional messagebuf)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Replace the last line of the spacemacs buffer with MSG.
|
|
|
|
|
If MESSAGEBUF is not nil then MSG is also written in message buffer."
|
2016-04-01 03:44:00 +00:00
|
|
|
|
(with-current-buffer (get-buffer-create spacemacs-buffer-name)
|
2015-01-26 03:36:07 +00:00
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
(let ((buffer-read-only nil))
|
|
|
|
|
(delete-region (line-beginning-position) (point-max))
|
|
|
|
|
(insert msg)
|
2017-01-31 16:54:19 +00:00
|
|
|
|
(when messagebuf
|
|
|
|
|
(message "(Spacemacs) %s" msg)))))
|
2015-01-26 03:36:07 +00:00
|
|
|
|
|
2015-04-12 04:24:03 +00:00
|
|
|
|
(defun spacemacs-buffer/loading-animation ()
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Display the progress bar by chunks of size `spacemacs--loading-dots-chunk-threshold'."
|
|
|
|
|
(when (and (not noninteractive)
|
|
|
|
|
dotspacemacs-loading-progress-bar)
|
2015-02-16 02:25:12 +00:00
|
|
|
|
(setq spacemacs-loading-counter (1+ spacemacs-loading-counter))
|
2016-06-13 04:56:25 +00:00
|
|
|
|
(setq spacemacs-loading-value (1+ spacemacs-loading-value))
|
2015-02-16 02:25:12 +00:00
|
|
|
|
(when (>= spacemacs-loading-counter spacemacs-loading-dots-chunk-threshold)
|
2016-06-13 04:56:25 +00:00
|
|
|
|
(let ((suffix (format "> %s/%s" spacemacs-loading-value
|
2016-07-17 19:00:43 +00:00
|
|
|
|
(length configuration-layer--used-packages))))
|
2016-06-13 04:56:25 +00:00
|
|
|
|
(setq spacemacs-loading-counter 0)
|
|
|
|
|
(setq spacemacs-loading-string
|
|
|
|
|
(make-string
|
2016-06-13 08:59:29 +00:00
|
|
|
|
(max 0
|
|
|
|
|
(- (* spacemacs-loading-dots-chunk-size
|
|
|
|
|
(floor (/ spacemacs-loading-value
|
|
|
|
|
spacemacs-loading-dots-chunk-threshold)))
|
|
|
|
|
(length suffix)))
|
2016-06-13 04:56:25 +00:00
|
|
|
|
spacemacs-loading-char))
|
|
|
|
|
(spacemacs-buffer/set-mode-line (concat spacemacs-loading-string
|
|
|
|
|
suffix)))
|
2015-02-16 02:25:12 +00:00
|
|
|
|
(spacemacs//redisplay))))
|
2015-01-26 03:36:07 +00:00
|
|
|
|
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(defmacro spacemacs-buffer||add-shortcut
|
|
|
|
|
(shortcut-char search-label &optional no-next-line)
|
|
|
|
|
"Add a single-key keybinding for quick navigation in the home buffer.
|
|
|
|
|
Navigation is done by searching for a specific word in the buffer.
|
|
|
|
|
SHORTCUT-CHAR: the key that the user will have to press.
|
|
|
|
|
SEARCH-LABEL: the word the cursor will be brought under (or on).
|
|
|
|
|
NO-NEXT-LINE: if nil the cursor is brought under the searched word."
|
2016-02-01 01:24:13 +00:00
|
|
|
|
`(define-key spacemacs-buffer-mode-map
|
|
|
|
|
,shortcut-char (lambda ()
|
|
|
|
|
(interactive)
|
|
|
|
|
(unless (search-forward ,search-label (point-max) t)
|
|
|
|
|
(search-backward ,search-label (point-min) t))
|
|
|
|
|
,@(unless no-next-line
|
|
|
|
|
'((forward-line 1)))
|
|
|
|
|
(back-to-indentation))))
|
2015-04-20 20:01:11 +00:00
|
|
|
|
|
2016-11-29 13:12:36 +00:00
|
|
|
|
(defun spacemacs-buffer//center-line (&optional real-width)
|
|
|
|
|
"When point is at the end of a line, center it.
|
|
|
|
|
REAL-WIDTH: the real width of the line. If the line contains an image, the size
|
|
|
|
|
of that image will be considered to be 1 by the calculation method
|
|
|
|
|
used in this function. As a consequence, the caller must calculate
|
|
|
|
|
himself the correct length of the line taking into account the
|
|
|
|
|
images he inserted in it."
|
|
|
|
|
(let* ((width (or real-width (current-column)))
|
|
|
|
|
(margin (max 0 (floor (/ (- spacemacs-buffer--window-width
|
|
|
|
|
width)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
2)))))
|
2016-05-13 06:26:34 +00:00
|
|
|
|
(beginning-of-line)
|
2016-11-29 13:12:36 +00:00
|
|
|
|
(insert (make-string margin ?\s))
|
2016-05-13 06:26:34 +00:00
|
|
|
|
(end-of-line)))
|
|
|
|
|
|
2015-04-12 04:24:03 +00:00
|
|
|
|
(defun spacemacs-buffer//insert-buttons ()
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Create and insert the interactive buttons under Spacemacs banner."
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
(spacemacs-buffer||add-shortcut "m" "[?]" t)
|
|
|
|
|
(widget-create 'url-link
|
|
|
|
|
:tag (propertize "?" 'face 'font-lock-doc-face)
|
|
|
|
|
:help-echo "Open the quickhelp."
|
|
|
|
|
:action (lambda (&rest ignore)
|
|
|
|
|
(spacemacs-buffer/toggle-note 'quickhelp))
|
|
|
|
|
:mouse-face 'highlight
|
|
|
|
|
:follow-link "\C-m")
|
|
|
|
|
(insert " ")
|
|
|
|
|
(widget-create 'url-link
|
|
|
|
|
:tag (propertize "Homepage" 'face 'font-lock-keyword-face)
|
|
|
|
|
:help-echo "Open the Spacemacs Github page in your browser."
|
|
|
|
|
:mouse-face 'highlight
|
|
|
|
|
:follow-link "\C-m"
|
|
|
|
|
"http://spacemacs.org")
|
|
|
|
|
(insert " ")
|
|
|
|
|
(widget-create 'url-link
|
|
|
|
|
:tag (propertize "Documentation" 'face 'font-lock-keyword-face)
|
|
|
|
|
:help-echo "Open the Spacemacs documentation in your browser."
|
|
|
|
|
:mouse-face 'highlight
|
|
|
|
|
:follow-link "\C-m"
|
|
|
|
|
"http://spacemacs.org/doc/DOCUMENTATION.html")
|
|
|
|
|
(insert " ")
|
|
|
|
|
(widget-create 'url-link
|
|
|
|
|
:tag (propertize "Gitter Chat" 'face 'font-lock-keyword-face)
|
|
|
|
|
:help-echo
|
|
|
|
|
"Ask questions and chat with fellow users in our chat room."
|
|
|
|
|
:mouse-face 'highlight
|
|
|
|
|
:follow-link "\C-m"
|
|
|
|
|
"https://gitter.im/syl20bnr/spacemacs")
|
|
|
|
|
(insert " ")
|
|
|
|
|
(widget-create 'push-button
|
|
|
|
|
:help-echo "Update Spacemacs core and layers."
|
|
|
|
|
:action (lambda (&rest ignore) (spacemacs/switch-to-version))
|
|
|
|
|
:mouse-face 'highlight
|
|
|
|
|
:follow-link "\C-m"
|
|
|
|
|
(propertize "Update Spacemacs" 'face 'font-lock-keyword-face))
|
|
|
|
|
(let ((len (- (line-end-position)
|
|
|
|
|
(line-beginning-position))))
|
2016-05-13 06:26:34 +00:00
|
|
|
|
(spacemacs-buffer//center-line)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(setq spacemacs-buffer--buttons-position (- (line-end-position)
|
|
|
|
|
(line-beginning-position)
|
|
|
|
|
len)))
|
|
|
|
|
(insert "\n")
|
|
|
|
|
(widget-create 'push-button
|
|
|
|
|
:help-echo "Update all ELPA packages to the latest versions."
|
|
|
|
|
:action (lambda (&rest ignore)
|
|
|
|
|
(configuration-layer/update-packages))
|
|
|
|
|
:mouse-face 'highlight
|
|
|
|
|
:follow-link "\C-m"
|
|
|
|
|
(propertize "Update Packages" 'face 'font-lock-keyword-face))
|
|
|
|
|
(insert " ")
|
|
|
|
|
(widget-create 'push-button
|
|
|
|
|
:help-echo
|
|
|
|
|
"Rollback ELPA package updates if something got borked."
|
|
|
|
|
:action (lambda (&rest ignore)
|
|
|
|
|
(call-interactively 'configuration-layer/rollback))
|
|
|
|
|
:mouse-face 'highlight
|
|
|
|
|
:follow-link "\C-m"
|
|
|
|
|
(propertize "Rollback Package Update"
|
|
|
|
|
'face 'font-lock-keyword-face))
|
|
|
|
|
(spacemacs-buffer//center-line)
|
|
|
|
|
(insert "\n")
|
|
|
|
|
(widget-create 'push-button
|
|
|
|
|
:tag (propertize "Release Notes"
|
|
|
|
|
'face 'font-lock-preprocessor-face)
|
|
|
|
|
:help-echo "Hide or show the Changelog"
|
|
|
|
|
:action (lambda (&rest ignore)
|
|
|
|
|
(spacemacs-buffer/toggle-note 'release-note))
|
|
|
|
|
:mouse-face 'highlight
|
|
|
|
|
:follow-link "\C-m")
|
|
|
|
|
(insert " ")
|
|
|
|
|
(widget-create 'url-link
|
|
|
|
|
:tag (propertize "Search in Spacemacs"
|
|
|
|
|
'face 'font-lock-function-name-face)
|
|
|
|
|
:help-echo "Search Spacemacs contents."
|
|
|
|
|
:action
|
|
|
|
|
(lambda (&rest ignore)
|
|
|
|
|
(let ((comp-frontend
|
|
|
|
|
(cond
|
2017-07-02 13:48:06 +00:00
|
|
|
|
((configuration-layer/layer-used-p 'helm)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
'helm-spacemacs-help)
|
2017-07-02 13:48:06 +00:00
|
|
|
|
((configuration-layer/layer-used-p 'ivy)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
'ivy-spacemacs-help))))
|
|
|
|
|
(call-interactively comp-frontend)))
|
|
|
|
|
:mouse-face 'highlight
|
|
|
|
|
:follow-link "\C-m")
|
|
|
|
|
(spacemacs-buffer//center-line)
|
|
|
|
|
(insert "\n\n"))
|
2015-01-26 03:36:07 +00:00
|
|
|
|
|
2016-10-10 13:39:03 +00:00
|
|
|
|
(defun spacemacs-buffer//insert-string-list (list-display-name list)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Insert a non-interactive startup list in the home buffer.
|
|
|
|
|
LIST-DISPLAY-NAME: the displayed title of the list.
|
|
|
|
|
LIST: a list of strings displayed as entries."
|
2016-10-10 13:39:03 +00:00
|
|
|
|
(when (car list)
|
|
|
|
|
(insert list-display-name)
|
|
|
|
|
(mapc (lambda (el)
|
|
|
|
|
(insert
|
|
|
|
|
"\n"
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert el)
|
|
|
|
|
(fill-paragraph)
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(insert " - ")
|
|
|
|
|
(while (= 0 (forward-line))
|
|
|
|
|
(insert " "))
|
|
|
|
|
(buffer-string))))
|
|
|
|
|
list)))
|
|
|
|
|
|
2015-06-03 06:45:54 +00:00
|
|
|
|
(defun spacemacs-buffer//insert-file-list (list-display-name list)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Insert an interactive list of files in the home buffer.
|
|
|
|
|
LIST-DISPLAY-NAME: the displayed title of the list.
|
|
|
|
|
LIST: a list of string pathnames made interactive in this function."
|
2015-03-28 14:30:56 +00:00
|
|
|
|
(when (car list)
|
2015-04-13 14:18:19 +00:00
|
|
|
|
(insert list-display-name)
|
2015-03-28 14:30:56 +00:00
|
|
|
|
(mapc (lambda (el)
|
|
|
|
|
(insert "\n ")
|
2015-04-02 14:23:36 +00:00
|
|
|
|
(widget-create 'push-button
|
2016-02-01 01:24:13 +00:00
|
|
|
|
:action `(lambda (&rest ignore)
|
|
|
|
|
(find-file-existing ,el))
|
2015-04-02 14:23:36 +00:00
|
|
|
|
:mouse-face 'highlight
|
|
|
|
|
:follow-link "\C-m"
|
|
|
|
|
:button-prefix ""
|
|
|
|
|
:button-suffix ""
|
|
|
|
|
:format "%[%t%]"
|
|
|
|
|
(abbreviate-file-name el)))
|
2015-03-28 14:30:56 +00:00
|
|
|
|
list)))
|
|
|
|
|
|
2015-07-30 02:21:31 +00:00
|
|
|
|
(defun spacemacs-buffer//insert-bookmark-list (list-display-name list)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Insert an interactive list of bookmarks entries (if any) in the home buffer.
|
|
|
|
|
LIST-DISPLAY-NAME: the displayed title of the list.
|
|
|
|
|
LIST: a list of string bookmark names made interactive in this function."
|
2015-07-30 02:21:31 +00:00
|
|
|
|
(when (car list)
|
|
|
|
|
(insert list-display-name)
|
|
|
|
|
(mapc (lambda (el)
|
|
|
|
|
(insert "\n ")
|
2016-02-14 16:09:16 +00:00
|
|
|
|
(let ((filename (bookmark-get-filename el)))
|
|
|
|
|
(widget-create 'push-button
|
|
|
|
|
:action `(lambda (&rest ignore) (bookmark-jump ,el))
|
|
|
|
|
:mouse-face 'highlight
|
|
|
|
|
:follow-link "\C-m"
|
|
|
|
|
:button-prefix ""
|
|
|
|
|
:button-suffix ""
|
|
|
|
|
:format "%[%t%]"
|
|
|
|
|
(if filename
|
|
|
|
|
(format "%s - %s"
|
|
|
|
|
el (abbreviate-file-name filename))
|
|
|
|
|
(format "%s" el)))))
|
2015-07-30 02:21:31 +00:00
|
|
|
|
list)))
|
|
|
|
|
|
2016-01-07 22:07:28 +00:00
|
|
|
|
(defun spacemacs-buffer//get-org-items (types)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Make a list of agenda file items for today of kind types.
|
|
|
|
|
TYPES: list of `org-mode' types to fetch."
|
2016-01-07 22:07:28 +00:00
|
|
|
|
(require 'org-agenda)
|
|
|
|
|
(let ((date (calendar-gregorian-from-absolute (org-today))))
|
|
|
|
|
(apply #'append
|
|
|
|
|
(loop for file in (org-agenda-files nil 'ifmode)
|
|
|
|
|
collect
|
|
|
|
|
(spacemacs-buffer//make-org-items
|
|
|
|
|
file
|
|
|
|
|
(apply 'org-agenda-get-day-entries file date
|
|
|
|
|
types))))))
|
|
|
|
|
|
|
|
|
|
(defun spacemacs-buffer//agenda-list ()
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Return today's agenda."
|
2016-01-07 22:07:28 +00:00
|
|
|
|
(require 'org-agenda)
|
2016-02-01 01:24:13 +00:00
|
|
|
|
(spacemacs-buffer//get-org-items org-agenda-entry-types))
|
2016-01-07 22:07:28 +00:00
|
|
|
|
|
|
|
|
|
(defun spacemacs-buffer//todo-list ()
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Return current todos."
|
2016-01-07 22:07:28 +00:00
|
|
|
|
(require 'org-agenda)
|
2016-02-01 01:24:13 +00:00
|
|
|
|
(spacemacs-buffer//get-org-items '(:todo)))
|
2016-01-07 22:07:28 +00:00
|
|
|
|
|
|
|
|
|
(defun spacemacs-buffer//make-org-items (file items)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Make a spacemacs-buffer org item list.
|
|
|
|
|
FILE: file name.
|
|
|
|
|
ITEMS:"
|
2016-01-07 22:07:28 +00:00
|
|
|
|
(loop
|
|
|
|
|
for item in items
|
|
|
|
|
collect
|
|
|
|
|
(spacemacs-buffer//make-org-item file item)))
|
|
|
|
|
|
|
|
|
|
(defun spacemacs-buffer//make-org-item (file item)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Make a spacemacs-buffer version of an org item.
|
|
|
|
|
FILE: file name.
|
|
|
|
|
ITEM:"
|
2016-01-07 22:07:28 +00:00
|
|
|
|
(list (cons "text"
|
|
|
|
|
(get-text-property 0 'txt item))
|
|
|
|
|
(cons "file" file)
|
|
|
|
|
(cons "pos"
|
|
|
|
|
(marker-position
|
|
|
|
|
(get-text-property 0 'org-marker item)))
|
|
|
|
|
(cons "time"
|
|
|
|
|
(get-text-property 0 'time item))))
|
|
|
|
|
|
|
|
|
|
(defun spacemacs-buffer//org-jump (el)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Action executed when using an item in the home buffer's todo list.
|
|
|
|
|
EL: `org-agenda' element to jump to."
|
2016-01-07 22:07:28 +00:00
|
|
|
|
(require 'org-agenda)
|
|
|
|
|
(find-file-other-window (cdr (assoc "file" el)))
|
|
|
|
|
(widen)
|
|
|
|
|
(goto-char (cdr (assoc "pos" el)))
|
|
|
|
|
(when (derived-mode-p 'org-mode)
|
|
|
|
|
(org-show-context 'agenda)
|
|
|
|
|
(save-excursion
|
|
|
|
|
(and (outline-next-heading)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(org-flag-heading nil))) ; show the next heading
|
2016-01-07 22:07:28 +00:00
|
|
|
|
(when (outline-invisible-p)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(outline-show-entry)) ; display invisible text
|
2016-01-07 22:07:28 +00:00
|
|
|
|
(recenter (/ (window-height) 2))
|
|
|
|
|
(org-back-to-heading t)
|
|
|
|
|
(if (re-search-forward org-complex-heading-regexp nil t)
|
|
|
|
|
(goto-char (match-beginning 4))))
|
2016-02-01 01:24:13 +00:00
|
|
|
|
(run-hooks 'org-agenda-after-show-hook))
|
2016-01-07 22:07:28 +00:00
|
|
|
|
|
|
|
|
|
(defun spacemacs-buffer//insert-todo-list (list-display-name list)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Insert an interactive todo list of `org-agenda' entries in the home buffer.
|
|
|
|
|
LIST-DISPLAY-NAME: the displayed title of the list.
|
|
|
|
|
LIST: list of `org-agenda' entries in the todo list."
|
2016-01-07 22:07:28 +00:00
|
|
|
|
(when (car list)
|
|
|
|
|
(insert list-display-name)
|
|
|
|
|
(setq list (sort list
|
|
|
|
|
(lambda (a b)
|
|
|
|
|
(cond
|
|
|
|
|
((eq "" (cdr (assoc "time" b)))
|
|
|
|
|
t)
|
|
|
|
|
((eq "" (cdr (assoc "time" a)))
|
|
|
|
|
nil)
|
|
|
|
|
(t
|
|
|
|
|
(string< (cdr (assoc "time" a))
|
|
|
|
|
(cdr (assoc "time" b))))))))
|
|
|
|
|
(mapc (lambda (el)
|
|
|
|
|
(insert "\n ")
|
|
|
|
|
(widget-create 'push-button
|
2016-02-01 01:24:13 +00:00
|
|
|
|
:action `(lambda (&rest ignore)
|
|
|
|
|
(spacemacs-buffer//org-jump ',el))
|
2016-01-07 22:07:28 +00:00
|
|
|
|
:mouse-face 'highlight
|
|
|
|
|
:follow-link "\C-m"
|
|
|
|
|
:button-prefix ""
|
|
|
|
|
:button-suffix ""
|
|
|
|
|
:format "%[%t%]"
|
|
|
|
|
(format "%s %s %s"
|
|
|
|
|
(abbreviate-file-name
|
|
|
|
|
(cdr (assoc "file" el)))
|
|
|
|
|
(if (not (eq "" (cdr (assoc "time" el))))
|
|
|
|
|
(format "- %s -"
|
|
|
|
|
(cdr (assoc "time" el)))
|
|
|
|
|
"-")
|
|
|
|
|
(cdr (assoc "text" el)))))
|
|
|
|
|
list)))
|
|
|
|
|
|
2016-06-08 06:42:35 +00:00
|
|
|
|
(defun spacemacs//subseq (seq start end)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Adapted version of `cl-subseq'.
|
|
|
|
|
Use `cl-subseq', but accounting for end points greater than the size of the
|
|
|
|
|
list. Return entire list if end is omitted.
|
|
|
|
|
SEQ, START and END are the same arguments as for `cl-subseq'"
|
2016-06-08 06:42:35 +00:00
|
|
|
|
(let ((len (length seq)))
|
|
|
|
|
(cl-subseq seq start (and (number-or-marker-p end)
|
|
|
|
|
(min len end)))))
|
|
|
|
|
|
2016-09-03 10:47:58 +00:00
|
|
|
|
(defun spacemacs-buffer//do-insert-startupify-lists ()
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Insert the startup lists in the current buffer."
|
2017-05-25 11:35:36 +00:00
|
|
|
|
(let ((list-separator "\n\n")
|
|
|
|
|
(recentf-exclude '((lambda (filename) t))))
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(mapc (lambda (els)
|
|
|
|
|
(let ((el (or (car-safe els) els))
|
|
|
|
|
(list-size
|
|
|
|
|
(or (cdr-safe els)
|
|
|
|
|
spacemacs-buffer-startup-lists-length)))
|
|
|
|
|
(cond
|
|
|
|
|
((eq el 'warnings)
|
|
|
|
|
(when (spacemacs-buffer//insert-string-list
|
|
|
|
|
"Warnings:"
|
|
|
|
|
spacemacs-buffer--warnings)
|
|
|
|
|
(spacemacs-buffer||add-shortcut "w" "Warnings:")
|
|
|
|
|
(insert list-separator)))
|
|
|
|
|
((eq el 'recents)
|
|
|
|
|
(recentf-mode)
|
|
|
|
|
(when (spacemacs-buffer//insert-file-list
|
|
|
|
|
"Recent Files:"
|
|
|
|
|
(spacemacs//subseq recentf-list 0 list-size))
|
|
|
|
|
(spacemacs-buffer||add-shortcut "r" "Recent Files:")
|
|
|
|
|
(insert list-separator)))
|
|
|
|
|
((eq el 'todos)
|
|
|
|
|
(when (spacemacs-buffer//insert-todo-list
|
|
|
|
|
"ToDo:"
|
|
|
|
|
(spacemacs//subseq (spacemacs-buffer//todo-list)
|
|
|
|
|
0 list-size))
|
|
|
|
|
(spacemacs-buffer||add-shortcut "d" "ToDo:")
|
|
|
|
|
(insert list-separator)))
|
|
|
|
|
((eq el 'agenda)
|
|
|
|
|
(when (spacemacs-buffer//insert-todo-list
|
|
|
|
|
"Agenda:"
|
|
|
|
|
(spacemacs//subseq (spacemacs-buffer//agenda-list)
|
|
|
|
|
0 list-size))
|
|
|
|
|
(spacemacs-buffer||add-shortcut "c" "Agenda:")
|
|
|
|
|
(insert list-separator)))
|
|
|
|
|
((eq el 'bookmarks)
|
2017-07-02 13:48:06 +00:00
|
|
|
|
(when (configuration-layer/layer-used-p 'spacemacs-helm)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(helm-mode))
|
|
|
|
|
(require 'bookmark)
|
|
|
|
|
(when (spacemacs-buffer//insert-bookmark-list
|
|
|
|
|
"Bookmarks:"
|
|
|
|
|
(spacemacs//subseq (bookmark-all-names)
|
|
|
|
|
0 list-size))
|
|
|
|
|
(spacemacs-buffer||add-shortcut "b" "Bookmarks:")
|
|
|
|
|
(insert list-separator)))
|
|
|
|
|
((and (eq el 'projects)
|
|
|
|
|
(fboundp 'projectile-mode))
|
|
|
|
|
(projectile-mode)
|
|
|
|
|
(when (spacemacs-buffer//insert-file-list
|
|
|
|
|
"Projects:"
|
|
|
|
|
(spacemacs//subseq (projectile-relevant-known-projects)
|
|
|
|
|
0 list-size))
|
|
|
|
|
(spacemacs-buffer||add-shortcut "p" "Projects:")
|
|
|
|
|
(insert list-separator))))))
|
|
|
|
|
(append
|
|
|
|
|
'(warnings)
|
|
|
|
|
dotspacemacs-startup-lists))))
|
2016-09-03 10:47:58 +00:00
|
|
|
|
|
|
|
|
|
(defun spacemacs-buffer//get-buffer-width ()
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Return the length of longest line in the current buffer."
|
2016-09-03 10:47:58 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
(goto-char 0)
|
|
|
|
|
(let ((current-max 0))
|
|
|
|
|
(while (not (eobp))
|
|
|
|
|
(let ((line-length (- (line-end-position) (line-beginning-position))))
|
|
|
|
|
(if (< current-max line-length)
|
|
|
|
|
(setq current-max line-length)))
|
|
|
|
|
(forward-line 1))
|
|
|
|
|
current-max)))
|
|
|
|
|
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(defun spacemacs-buffer//center-startup-lists ()
|
|
|
|
|
"Center startup lists after they were inserted."
|
2016-09-03 10:47:58 +00:00
|
|
|
|
(let* ((lists-width (spacemacs-buffer//get-buffer-width))
|
|
|
|
|
(margin (max 0 (- spacemacs-buffer--buttons-position
|
|
|
|
|
spacemacs-buffer-buttons-startup-lists-offset)))
|
2016-10-29 02:04:42 +00:00
|
|
|
|
(final-padding (if (< spacemacs-buffer--window-width
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(+ margin lists-width))
|
2016-10-29 02:04:42 +00:00
|
|
|
|
(max 0 (floor (/ (- spacemacs-buffer--window-width
|
2016-10-27 17:43:22 +00:00
|
|
|
|
lists-width)
|
|
|
|
|
2)))
|
2016-09-03 10:47:58 +00:00
|
|
|
|
margin)))
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(goto-char (point-min))
|
2016-09-03 10:47:58 +00:00
|
|
|
|
(while (not (eobp))
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(beginning-of-line)
|
|
|
|
|
(insert (make-string final-padding ?\s))
|
2016-09-03 10:47:58 +00:00
|
|
|
|
(forward-line))))
|
|
|
|
|
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(defun spacemacs-buffer/insert-startup-lists ()
|
|
|
|
|
"Insert startup lists in home buffer."
|
2016-09-03 10:47:58 +00:00
|
|
|
|
(interactive)
|
|
|
|
|
(with-current-buffer (get-buffer spacemacs-buffer-name)
|
|
|
|
|
(let ((buffer-read-only nil))
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
(spacemacs-buffer/insert-page-break)
|
|
|
|
|
(insert "\n")
|
|
|
|
|
(save-restriction
|
|
|
|
|
(narrow-to-region (point) (point))
|
|
|
|
|
(spacemacs-buffer//do-insert-startupify-lists)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(spacemacs-buffer//center-startup-lists)))))
|
2015-03-28 14:30:56 +00:00
|
|
|
|
|
2015-04-12 04:24:03 +00:00
|
|
|
|
(defun spacemacs-buffer/goto-link-line ()
|
2016-01-27 14:15:34 +00:00
|
|
|
|
"Set point to the beginning of the link line."
|
2015-02-04 04:56:52 +00:00
|
|
|
|
(interactive)
|
2015-07-30 02:07:07 +00:00
|
|
|
|
(with-current-buffer spacemacs-buffer-name
|
|
|
|
|
(goto-char (point-min))
|
2015-12-01 20:02:48 +00:00
|
|
|
|
(with-demoted-errors "spacemacs buffer error: %s"
|
|
|
|
|
(widget-forward 1))))
|
2015-02-04 04:56:52 +00:00
|
|
|
|
|
2016-04-01 03:44:00 +00:00
|
|
|
|
(defun spacemacs-buffer//startup-hook ()
|
|
|
|
|
"Code executed when Emacs has finished loading."
|
|
|
|
|
(with-current-buffer (get-buffer spacemacs-buffer-name)
|
|
|
|
|
(when dotspacemacs-startup-lists
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(spacemacs-buffer/insert-startup-lists))
|
2016-06-05 04:04:53 +00:00
|
|
|
|
(spacemacs-buffer//insert-footer)
|
2016-04-01 03:44:00 +00:00
|
|
|
|
(if configuration-layer-error-count
|
|
|
|
|
(progn
|
|
|
|
|
(spacemacs-buffer-mode)
|
|
|
|
|
(spacemacs-buffer/set-mode-line
|
|
|
|
|
(format
|
|
|
|
|
(concat "%s error(s) at startup! "
|
|
|
|
|
"Spacemacs may not be able to operate properly.")
|
|
|
|
|
configuration-layer-error-count))
|
|
|
|
|
(face-remap-add-relative 'mode-line
|
|
|
|
|
'((:background "red") mode-line)))
|
|
|
|
|
(spacemacs-buffer/set-mode-line spacemacs--default-mode-line)
|
|
|
|
|
(spacemacs-buffer-mode))
|
|
|
|
|
(force-mode-line-update)
|
|
|
|
|
(spacemacs-buffer/goto-link-line)))
|
|
|
|
|
|
2016-06-08 07:00:57 +00:00
|
|
|
|
(defvar spacemacs-buffer--last-width nil
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Previous width of spacemacs-buffer.")
|
2016-06-08 07:00:57 +00:00
|
|
|
|
|
|
|
|
|
(defun spacemacs-buffer/goto-buffer (&optional refresh)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Create the special buffer for `spacemacs-buffer-mode' and switch to it.
|
|
|
|
|
REFRESH if the buffer should be redrawn."
|
2015-10-16 13:17:03 +00:00
|
|
|
|
(interactive)
|
2016-06-08 07:00:57 +00:00
|
|
|
|
(let ((buffer-exists (buffer-live-p (get-buffer spacemacs-buffer-name)))
|
2016-09-07 00:05:15 +00:00
|
|
|
|
(save-line nil))
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(when (not buffer-exists)
|
|
|
|
|
(setq spacemacs-buffer--note-widgets nil))
|
2016-09-14 17:29:07 +00:00
|
|
|
|
(when (or (not (eq spacemacs-buffer--last-width (window-width)))
|
2016-09-07 00:05:15 +00:00
|
|
|
|
(not buffer-exists)
|
|
|
|
|
refresh)
|
2016-11-29 13:12:36 +00:00
|
|
|
|
(setq spacemacs-buffer--window-width (if dotspacemacs-startup-buffer-responsive
|
|
|
|
|
(window-width)
|
|
|
|
|
80)
|
2016-10-29 02:04:42 +00:00
|
|
|
|
spacemacs-buffer--last-width spacemacs-buffer--window-width)
|
2016-09-07 00:05:15 +00:00
|
|
|
|
(with-current-buffer (get-buffer-create spacemacs-buffer-name)
|
|
|
|
|
(page-break-lines-mode)
|
|
|
|
|
(save-excursion
|
|
|
|
|
(when (> (buffer-size) 0)
|
|
|
|
|
(set 'save-line (line-number-at-pos))
|
|
|
|
|
(let ((inhibit-read-only t))
|
|
|
|
|
(erase-buffer)))
|
|
|
|
|
(spacemacs-buffer/set-mode-line "")
|
|
|
|
|
(spacemacs-buffer/insert-banner-and-buttons)
|
2017-01-22 05:31:30 +00:00
|
|
|
|
(when (bound-and-true-p spacemacs-initialized)
|
|
|
|
|
(spacemacs-buffer//notes-redisplay-current-note)
|
|
|
|
|
(configuration-layer/display-summary emacs-start-time)
|
|
|
|
|
(when dotspacemacs-startup-lists
|
|
|
|
|
(spacemacs-buffer/insert-startup-lists))
|
|
|
|
|
(spacemacs-buffer//insert-footer)
|
|
|
|
|
(spacemacs-buffer/set-mode-line spacemacs--default-mode-line)
|
|
|
|
|
(force-mode-line-update)
|
|
|
|
|
(spacemacs-buffer-mode))))
|
2016-09-07 00:05:15 +00:00
|
|
|
|
(if save-line
|
|
|
|
|
(progn (goto-char (point-min))
|
|
|
|
|
(forward-line (1- save-line))
|
|
|
|
|
(forward-to-indentation 0))
|
2016-09-14 17:29:07 +00:00
|
|
|
|
(spacemacs-buffer/goto-link-line))
|
|
|
|
|
(switch-to-buffer spacemacs-buffer-name)
|
|
|
|
|
(spacemacs//redisplay))))
|
2016-06-08 07:00:57 +00:00
|
|
|
|
|
2016-09-02 12:42:25 +00:00
|
|
|
|
(add-hook 'window-setup-hook
|
|
|
|
|
(lambda ()
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(add-hook 'window-configuration-change-hook
|
|
|
|
|
'spacemacs-buffer//resize-on-hook)
|
2016-09-02 12:42:25 +00:00
|
|
|
|
(spacemacs-buffer//resize-on-hook)))
|
2016-06-08 07:00:57 +00:00
|
|
|
|
|
|
|
|
|
(defun spacemacs-buffer//resize-on-hook ()
|
2016-10-27 17:43:22 +00:00
|
|
|
|
"Hook run on window resize events to redisplay the home buffer."
|
|
|
|
|
(let ((home-buffer (get-buffer-window spacemacs-buffer-name))
|
2016-06-08 07:00:57 +00:00
|
|
|
|
(frame-win (frame-selected-window)))
|
2016-09-02 20:45:34 +00:00
|
|
|
|
(when (and dotspacemacs-startup-buffer-responsive
|
2016-10-27 17:43:22 +00:00
|
|
|
|
home-buffer
|
2016-06-08 07:00:57 +00:00
|
|
|
|
(not (window-minibuffer-p frame-win)))
|
2016-10-27 17:43:22 +00:00
|
|
|
|
(with-selected-window home-buffer
|
2016-09-14 17:29:07 +00:00
|
|
|
|
(spacemacs-buffer/goto-buffer)))))
|
2015-10-16 13:17:03 +00:00
|
|
|
|
|
2016-05-13 06:26:34 +00:00
|
|
|
|
(defun spacemacs-buffer/refresh ()
|
2016-06-08 07:00:57 +00:00
|
|
|
|
"Force recreation of the spacemacs buffer."
|
2016-05-13 06:26:34 +00:00
|
|
|
|
(interactive)
|
2016-06-08 07:00:57 +00:00
|
|
|
|
(setq spacemacs-buffer--last-width nil)
|
|
|
|
|
(spacemacs-buffer/goto-buffer t))
|
2016-05-13 06:26:34 +00:00
|
|
|
|
|
2016-10-09 16:57:46 +00:00
|
|
|
|
(defalias 'spacemacs/home 'spacemacs-buffer/refresh
|
|
|
|
|
"Go to home Spacemacs buffer")
|
|
|
|
|
|
|
|
|
|
(defun spacemacs/home-delete-other-windows ()
|
|
|
|
|
"Open home Spacemacs buffer and delete other windows.
|
|
|
|
|
Useful for making the home buffer the only visible buffer in the frame."
|
|
|
|
|
(interactive)
|
|
|
|
|
(spacemacs/home)
|
|
|
|
|
(delete-other-windows))
|
|
|
|
|
|
2015-01-27 03:51:47 +00:00
|
|
|
|
(provide 'core-spacemacs-buffer)
|
2016-10-27 17:43:22 +00:00
|
|
|
|
|
|
|
|
|
;;; core-spacemacs-buffer ends here
|