Fix Perspectives lazy loading

.gitignore

@@ -1,6 +1,6 @@
 auto-save-list/
 elpa/
-doc/export/
+export/
 ac-comphist.dat
 eproject.lst
 .smex-items

core/core-documentation.el

@@ -35,7 +35,7 @@
     (dolist (l layers)
       (let ((layer-name (file-name-nondirectory l))
             (target-path (concat (file-relative-name
-                                  l (concat user-emcas-directory "layers"))
+                                  l (concat user-emacs-directory "layers"))
                                  "/README.org")))
         (insert (format "- [[file:%s][%s]]\n" target-path layer-name))))
     (dolist (c categories)
@@ -46,7 +46,7 @@
         (message "%S" category-name)
         (unless (string= "distribution" category-name)
           (insert (format "\n%s %s\n" level pretty-name))
-          (spacemacs/generate-layers-from-path c (concat level "*"))
+          (spacemacs//generate-layers-from-path c (concat level "*"))
           )))))
 
 (defun spacemacs//generate-layers-file ()
@@ -75,7 +75,7 @@
                   src=\"http://www.pirilampo.org/styles/lib/js/jquery.stickytableheaders.js\"></script>
           <script type=\"text/javascript\"
                   src=\"http://www.pirilampo.org/styles/readtheorg/js/readtheorg.js\"></script>")
-         (publish-target (concat spacemacs-docs-directory "export/"))
+         (publish-target (concat user-emacs-directory "export/"))
          (org-publish-project-alist
           `(("spacemacs"
              :components ("spacemacs-doc"
@@ -95,7 +95,7 @@
              :recursive t
              :publishing-directory ,(concat publish-target "layers/")
              :publishing-function org-html-publish-to-html
-             :preparation-function spacemacs/generate-layers-file
+             :preparation-function spacemacs//generate-layers-file
              :exclude "extensions"
              :html-head ,header)
             ("spacemacs-doc-static"
@@ -106,7 +106,7 @@
              :publishing-function org-publish-attachment)
             ("layers-doc-static"
              :base-directory ,(concat user-emacs-directory "layers/")
-             :base-extension "png"
+             :base-extension "jpg\\|png"
              :recursive t
              :publishing-directory ,(concat publish-target "layers/")
              :publishing-function org-publish-attachment))))

core/core-dotspacemacs.el

@@ -188,8 +188,9 @@ can be toggled through `toggle-transparency'.")
 overrides the default behavior of Emacs which recenters the point when
 it reaches the top or bottom of the screen.")
 
-(defvar dotspacemacs-global-line-numbers nil
-  "If non nil line numbers are turned on in all `prog-mode' and `text-mode'.")
+(defvar dotspacemacs-line-numbers nil
+  "If non nil line numbers are turned on in all `prog-mode' and `text-mode'
+derivatives. If set to `relative', also turns on relative line numbers.")
 
 (defvar dotspacemacs-persistent-server nil
   "If non nil advises quit functions to keep server open when quitting.")

core/templates/.spacemacs.template

@@ -168,9 +168,10 @@ values."
    ;; scrolling overrides the default behavior of Emacs which recenters the
    ;; point when it reaches the top or bottom of the screen. (default t)
    dotspacemacs-smooth-scrolling t
-   ;; If non nil line numbers are turned on in all `prog-mode' and `text-mode'.
+   ;; If non nil line numbers are turned on in all `prog-mode' and `text-mode'
+   ;; derivatives. If set to `relative', also turns on relative line numbers.
    ;; (default nil)
-   dotspacemacs-global-line-numbers nil
+   dotspacemacs-line-numbers nil
    ;; If non-nil smartparens-strict-mode will be enabled in programming modes.
    ;; (default nil)
    dotspacemacs-smartparens-strict-mode nil

doc/DOCUMENTATION.org

@@ -941,11 +941,17 @@ and ~T~):
 
 **** Global line numbers
 Line numbers can be toggled on in all =prog-mode= and =text-mode= buffers by
-setting the =dotspacemacs-global-line-numbers= variable in your =~/.spacemacs=
-to something different than =nil=:
+setting the =dotspacemacs-line-numbers= variable in your =~/.spacemacs=
+to something different than =nil=.
 
 #+BEGIN_SRC emacs-lisp
-(setq-default dotspacemacs-global-line-numbers t)
+(setq-default dotspacemacs-line-numbers t)
+#+END_SRC
+
+If it is set to =relative=, line numbers are show in a relative way:
+
+#+BEGIN_SRC emacs-lisp
+(setq-default dotspacemacs-line-numbers 'relative)
 #+END_SRC
 
 *** Mouse usage
@@ -1312,6 +1318,7 @@ thusly:
 | ~SPC h d b~ | describe bindings in a =helm= buffer                      |
 | ~SPC h d c~ | describe current character under point                    |
 | ~SPC h d f~ | describe a function                                       |
+| ~SPC h d F~ | describe a face                                           |
 | ~SPC h d k~ | describe a key                                            |
 | ~SPC h d m~ | describe current modes                                    |
 | ~SPC h d p~ | describe a package                                        |
@@ -2105,34 +2112,37 @@ adding a major-mode to the variable =spacemacs-indent-sensitive-modes= in your
 *** Text manipulation commands
 Text related commands (start with ~x~):
 
-    | Key Binding | Description                                                   |
-    |-------------+---------------------------------------------------------------|
-    | ~SPC x o~   | use avy to select a link in the buffer and open it            |
-    | ~SPC x u~   | set the selected text to lower case                           |
-    | ~SPC x U~   | set the selected text to upper case                           |
-    | ~SPC x a a~ | align region (or guessed section) using default rules         |
-    | ~SPC x a r~ | align region using user-specified regexp                      |
-    | ~SPC x a m~ | align region at arithmetic operators (+-*/)                   |
-    | ~SPC x a .~ | align region at . (for numeric tables)                        |
-    | ~SPC x a ,~ | align region at ,                                             |
-    | ~SPC x a ;~ | align region at ;                                             |
-    | ~SPC x a =~ | align region at =                                             |
-    | ~SPC x a &~ | align region at &                                             |
-    | ~SPC x a ¦~ | align region at ¦                                             |
-    | ~SPC x c~   | count the number of chars/words/lines in the selection region |
-    | ~SPC x d w~ | delete trailing whitespaces                                   |
-    | ~SPC x g l~ | set languages used by translate commands                      |
-    | ~SPC x g t~ | translate current word using Google Translate                 |
-    | ~SPC x g T~ | reverse source and target languages                           |
-    | ~SPC x J~   | move down a line of text (enter micro-state)                  |
-    | ~SPC x K~   | move up a line of text (enter micro-state)                    |
-    | ~SPC x l s~ | sort lines                                                    |
-    | ~SPC x l u~ | uniquify lines                                                |
-    | ~SPC x t c~ | swap (transpose) the current character with the previous one  |
-    | ~SPC x t w~ | swap (transpose) the current word with the previous one       |
-    | ~SPC x t l~ | swap (transpose) the current line with the previous one       |
-    | ~SPC x w c~ | count the number of occurrences per word in the select region |
-    | ~SPC x w d~ | show dictionary entry of word from wordnik.com                |
+    | Key Binding   | Description                                                   |
+    |---------------+---------------------------------------------------------------|
+    | ~SPC x o~     | use avy to select a link in the buffer and open it            |
+    | ~SPC x u~     | set the selected text to lower case                           |
+    | ~SPC x U~     | set the selected text to upper case                           |
+    | ~SPC x a a~   | align region (or guessed section) using default rules         |
+    | ~SPC x a r~   | align region using user-specified regexp                      |
+    | ~SPC x a m~   | align region at arithmetic operators (+-*/)                   |
+    | ~SPC x a .~   | align region at . (for numeric tables)                        |
+    | ~SPC x a ,~   | align region at ,                                             |
+    | ~SPC x a ;~   | align region at ;                                             |
+    | ~SPC x a =~   | align region at =                                             |
+    | ~SPC x a &~   | align region at &                                             |
+    | ~SPC x a ¦~   | align region at ¦                                             |
+    | ~SPC x c~     | count the number of chars/words/lines in the selection region |
+    | ~SPC x d w~   | delete trailing whitespaces                                   |
+    | ~SPC x g l~   | set languages used by translate commands                      |
+    | ~SPC x g t~   | translate current word using Google Translate                 |
+    | ~SPC x g T~   | reverse source and target languages                           |
+    | ~SPC x i l l~ | insert lorem-ipsum list                                       |
+    | ~SPC x i l p~ | insert lorem-ipsum paragraph                                  |
+    | ~SPC x i l s~ | insert lorem-ipsum sentence                                   |
+    | ~SPC x J~     | move down a line of text (enter micro-state)                  |
+    | ~SPC x K~     | move up a line of text (enter micro-state)                    |
+    | ~SPC x l s~   | sort lines                                                    |
+    | ~SPC x l u~   | uniquify lines                                                |
+    | ~SPC x t c~   | swap (transpose) the current character with the previous one  |
+    | ~SPC x t w~   | swap (transpose) the current word with the previous one       |
+    | ~SPC x t l~   | swap (transpose) the current line with the previous one       |
+    | ~SPC x w c~   | count the number of occurrences per word in the select region |
+    | ~SPC x w d~   | show dictionary entry of word from wordnik.com                |
 
 *** Searching and inserting Unicode characters
 You can very easily search for and insert Unicode characters into the

layers/+distribution/spacemacs-base/config.el

@@ -58,6 +58,7 @@
                                        ("xa"  "align")
                                        ("xd"  "delete")
                                        ("xg"  "google-translate")
+                                       ("xi"  "insert")
                                        ("xl"  "lines")
                                        ("xm"  "move")
                                        ("xt"  "transpose")
@@ -172,7 +173,7 @@ It runs `tabulated-list-revert-hook', then calls `tabulated-list-print'."
 (setq column-number-mode t)
 ;; Activate linum-mode in all prog-mode and text-mode buffers if the setting is
 ;; enabled.
-(when dotspacemacs-global-line-numbers
+(when dotspacemacs-line-numbers
   (add-hook 'prog-mode-hook 'linum-mode)
   (add-hook 'text-mode-hook 'linum-mode))
 ;; line number

layers/+distribution/spacemacs-base/funcs.el

@@ -320,10 +320,9 @@ argument takes the kindows rotate backwards."
 (defun spacemacs/kill-other-buffers ()
   "Kill all other buffers."
   (interactive)
-  (let (name (buffer-name))
-    (when (yes-or-no-p (format "Killing all buffers except \"%s\" ? " buffer-file-name))
-      (mapc 'kill-buffer (delq (current-buffer) (buffer-list)))
-      (message "Buffers deleted!"))))
+  (when (yes-or-no-p (format "Killing all buffers except \"%s\"? " (buffer-name)))
+    (mapc 'kill-buffer (delq (current-buffer) (buffer-list)))
+    (message "Buffers deleted!")))
 
 ;; from http://dfan.org/blog/2009/02/19/emacs-dedicated-windows/
 (defun spacemacs/toggle-current-window-dedication ()

layers/+distribution/spacemacs-base/packages.el

@@ -541,9 +541,6 @@ Removes the automatic guessing of the initial value based on thing at point. "
             helm-semantic-fuzzy-match t
             helm-buffers-fuzzy-matching t)
 
-      ;; helm-locate uses es (from everything on windows, which doesnt like fuzzy)
-      (setq helm-locate-fuzzy-match (executable-find "locate"))
-
       ;; Use helm to provide :ls, unless ibuffer is used
       (unless (configuration-layer/package-usedp 'ibuffer)
         (evil-ex-define-cmd "buffers" 'helm-buffers-list))
@@ -623,6 +620,15 @@ Removes the automatic guessing of the initial value based on thing at point. "
               (switch-to-buffer-other-window "*hgrep*")
             (message "No previous search buffer found"))))
 
+      (defun spacemacs/helm-faces ()
+        "Describe face."
+        (interactive)
+        (require 'helm-elisp)
+        (let ((default (thing-at-point 'symbol)))
+          (helm :sources (list (helm-def-source--emacs-faces default))
+                :buffer "*helm faces*"
+                :preselect (and default (concat "\\_<" (regexp-quote default) "\\_>")))))
+
       ;; use helm by default for M-x
       (unless (configuration-layer/package-usedp 'smex)
         (global-set-key (kbd "M-x") 'helm-M-x))
@@ -636,6 +642,7 @@ Removes the automatic guessing of the initial value based on thing at point. "
         "fL"   'helm-locate
         "fr"   'helm-recentf
         "hb"   'helm-filtered-bookmarks
+        "hdF"  'spacemacs/helm-faces
         "hi"   'helm-info-at-point
         "hl"   'helm-resume
         "hm"   'helm-man-woman
@@ -724,6 +731,11 @@ Removes the automatic guessing of the initial value based on thing at point. "
     :config
     (progn
       (helm-mode +1)
+
+      ;; helm-locate uses es (from everything on windows, which doesnt like fuzzy)
+      (helm-locate-set-command)
+      (setq helm-locate-fuzzy-match (string-match "locate" helm-locate-command))
+
       (defun spacemacs//set-dotted-directory ()
         "Set the face of diretories for `.' and `..'"
         (set-face-attribute 'helm-ff-dotted-directory
@@ -1246,18 +1258,22 @@ ARG non nil means that the editing style is `vim'."
   (use-package recentf
     :defer t
     :init
-    ;; lazy load recentf
-    (add-hook 'find-file-hook (lambda () (unless recentf-mode
-                                           (recentf-mode)
-                                           (recentf-track-opened-file))))
+    (progn
+      ;; lazy load recentf
+      (add-hook 'find-file-hook (lambda () (unless recentf-mode
+                                             (recentf-mode)
+                                             (recentf-track-opened-file))))
+      (setq recentf-save-file (concat spacemacs-cache-directory "recentf")
+            recentf-max-saved-items 1000
+            recentf-auto-cleanup 'never
+            recentf-auto-save-timer (run-with-idle-timer 600 t
+                                                         'recentf-save-list)))
     :config
-    (add-to-list 'recentf-exclude (expand-file-name spacemacs-cache-directory))
-    (add-to-list 'recentf-exclude (expand-file-name package-user-dir))
-    (add-to-list 'recentf-exclude "COMMIT_EDITMSG\\'")
-    (setq recentf-save-file (concat spacemacs-cache-directory "recentf"))
-    (setq recentf-max-saved-items 100)
-    (setq recentf-auto-cleanup 'never)
-    (setq recentf-auto-save-timer (run-with-idle-timer 600 t 'recentf-save-list))))
+    (progn
+      (add-to-list 'recentf-exclude
+                   (expand-file-name spacemacs-cache-directory))
+      (add-to-list 'recentf-exclude (expand-file-name package-user-dir))
+      (add-to-list 'recentf-exclude "COMMIT_EDITMSG\\'"))))
 
 (defun spacemacs-base/init-restart-emacs()
   (use-package restart-emacs

layers/+distribution/spacemacs/packages.el

@@ -13,6 +13,7 @@
 (setq spacemacs-packages
       '(
         ;; default
+        ace-jump-helm-line
         ace-link
         ace-window
         adaptive-wrap
@@ -68,6 +69,7 @@
         open-junk-file
         leuven-theme
         linum-relative
+        lorem-ipsum
         move-text
         neotree
         pcre2el
@@ -91,6 +93,13 @@
 
 ;; Initialization of packages
 
+(defun spacemacs/init-ace-jump-helm-line ()
+  (use-package ace-jump-helm-line
+    :defer t
+    :init
+    (with-eval-after-load 'helm
+      (define-key helm-map (kbd "C-q") 'ace-jump-helm-line))))
+
 (defun spacemacs/init-ace-link ()
   (use-package ace-link
     :commands spacemacs/ace-buffer-links
@@ -1458,13 +1467,29 @@ It will toggle the overlay under point or create an overlay of one character."
 
 (defun spacemacs/init-linum-relative ()
   (use-package linum-relative
-    :commands linum-relative-toggle
+    :commands (linum-relative-toggle linum-relative-on)
     :init
-    (evil-leader/set-key "tr" 'linum-relative-toggle)
+    (progn
+      (when (eq dotspacemacs-line-numbers 'relative)
+        (linum-relative-on))
+      (evil-leader/set-key "tr" 'linum-relative-toggle))
     :config
     (progn
       (setq linum-relative-current-symbol ""))))
 
+(defun spacemacs/init-lorem-ipsum ()
+  (use-package lorem-ipsum
+    :commands (lorem-ipsum-insert-list
+               lorem-ipsum-insert-paragraphs
+               lorem-ipsum-insert-sentences)
+    :init
+    (progn
+      (spacemacs/declare-prefix "xil" "lorem ipsum")
+      (evil-leader/set-key
+        "xill" 'lorem-ipsum-insert-list
+        "xilp" 'lorem-ipsum-insert-paragraphs
+        "xils" 'lorem-ipsum-insert-sentences))))
+
 (defun spacemacs/init-move-text ()
   (use-package move-text
     :defer t

layers/+lang/emacs-lisp/packages.el

@@ -103,6 +103,7 @@
     :mode ("\\*.el\\'" . emacs-lisp-mode)
     :init
     (progn
+      (evil-define-key 'normal macrostep-keymap "q" 'macrostep-collapse-all)
       (spacemacs|define-micro-state macrostep
         :doc "[e] expand [c] collapse [n/N] next/previous [q] quit"
         :disable-evil-leader t

layers/+lang/haskell/packages.el

@@ -53,6 +53,13 @@
 (defun haskell/init-haskell-mode ()
   (use-package haskell-mode
     :defer t
+    :init
+    (progn
+      (defun spacemacs//force-haskell-mode-loading ()
+        "Force `haskell-mode' loading when visiting cabal file."
+        (require 'haskell-mode))
+      (add-hook 'haskell-cabal-mode-hook
+                'spacemacs//force-haskell-mode-loading))
     :config
     (progn
       ;; Haskell main editing mode key bindings.

layers/+lang/latex/packages.el

@@ -105,7 +105,7 @@
   (spacemacs/add-flycheck-hook 'LaTeX-mode))
 
 (defun latex/post-init-flyspell ()
-  (add-hook 'LaTeX-mode-hook 'flyspell-mode))
+  (spell-checking/add-flyspell-hook 'LaTeX-mode))
 
 (defun latex/post-init-smartparens ()
   (add-hook 'LaTeX-mode-hook 'smartparens-mode))

layers/+lang/ocaml/packages.el

@@ -91,7 +91,10 @@
       (spacemacs//init-ocaml-opam)
       (evil-leader/set-key-for-mode 'tuareg-mode
         "mga" 'tuareg-find-alternate-file
-        "mcc" 'compile))
+        "mcc" 'compile)
+      ;; Make OCaml-generated files invisible to filename completion
+      (dolist (ext '(".cmo" ".cmx" ".cma" ".cmxa" ".cmi" ".cmxs" ".cmt" ".annot"))
+        (add-to-list 'completion-ignored-extensions ext)))
     :config
     (when (fboundp 'sp-local-pair)
       ;; don't auto-close apostrophes (type 'a = foo) and backticks (`Foo)