Rename system-info to describe-system-info and add it to SPC h d s

syl20bnr · Aug 1, 2015 · e97c85e · swaroopch · Aug 1, 2015 · e97c85e
1 parent 6798c5b
commit e97c85e
Show file tree

Hide file tree

Showing 3 changed files with 33 additions and 23 deletions.
diff --git a/core/core-spacemacs.el b/core/core-spacemacs.el
@@ -232,20 +232,23 @@ FILE-TO-LOAD is an explicit file to load after the installation."
        (force-mode-line-update))
      (spacemacs/check-for-new-version spacemacs-version-check-interval))))
 
-(defun spacemacs/system-info ()
+(defun spacemacs/describe-system-info ()
   "Gathers info about your Spacemacs setup and copies to clipboard."
   (interactive)
-  (kill-new
-   (format
-    (concat "OS: %s"
-            " Emacs: %s"
-            " Spacemacs: %s"
-            " Spacemacs branch: %s"
-            " Layers: %s")
-    system-type
-    emacs-version
-    spacemacs-version
-    (spacemacs/git-get-current-branch)
-    dotspacemacs-configuration-layers)))
+  (let ((sysinfo (format
+                  (concat "#### System Info\n"
+                          "- OS: %s\n"
+                          "- Emacs: %s\n"
+                          "- Spacemacs: %s\n"
+                          "- Spacemacs branch: %s\n"
+                          "- Layers:\n```elisp\n%s```\n")
+                  system-type
+                  emacs-version
+                  spacemacs-version
+                  (spacemacs/git-get-current-branch)
+                  (pp dotspacemacs-configuration-layers))))
+    (kill-new sysinfo)
+    (message (concat "%s\nInformation has been copied to clipboard.\n"
+                     "You can past it in gitter chat.") sysinfo)))
 
 (provide 'core-spacemacs)
diff --git a/doc/DOCUMENTATION.org b/doc/DOCUMENTATION.org
@@ -136,12 +136,17 @@
          - [[#line-formatting][Line formatting]]
          - [[#replacing-text-with-iedit][Replacing text with iedit]]
              - [[#iedit-states-key-bindings][iedit states key bindings]]
+                 - [[#state-transitions][State transitions]]
+                 - [[#in-iedit-state][In iedit state]]
+                 - [[#in-iedit-insert-state][In iedit-insert state]]
              - [[#examples][Examples]]
          - [[#replacing-text-in-several-files][Replacing text in several files]]
          - [[#commenting][Commenting]]
          - [[#deleting-files][Deleting files]]
          - [[#editing-lisp-code][Editing Lisp code]]
              - [[#lisp-key-bindings][Lisp Key Bindings]]
+                 - [[#lisp-state-key-bindings][Lisp state key bindings]]
+                 - [[#emacs-lisp-specific-key-bindings][Emacs lisp specific key bindings]]
      - [[#managing-projects][Managing projects]]
      - [[#registers][Registers]]
      - [[#errors-handling][Errors handling]]
@@ -1066,16 +1071,17 @@ bindings.
 information about functions, variables, modes etc. These commands are bound
 thusly:
 
-| Key Binding | Description                            |
-|-------------+----------------------------------------|
-| ~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 k~ | describe a key                         |
-| ~SPC h d m~ | describe current modes                 |
-| ~SPC h d p~ | describe a package                     |
-| ~SPC h d t~ | describe a theme                       |
-| ~SPC h d v~ | describe a variable                    |
+| Key Binding | Description                                           |
+|-------------+-------------------------------------------------------|
+| ~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 k~ | describe a key                                        |
+| ~SPC h d m~ | describe current modes                                |
+| ~SPC h d p~ | describe a package                                    |
+| ~SPC h d s~ | copy ready to paste system information in gitter chat |
+| ~SPC h d t~ | describe a theme                                      |
+| ~SPC h d v~ | describe a variable                                   |
 
 Other help key bindings:
 

diff --git a/spacemacs/keybindings.el b/spacemacs/keybindings.el
@@ -96,6 +96,7 @@ Ensure that helm is required before calling FUNC."
 (spacemacs||set-helm-key "hdk" describe-key)
 (spacemacs||set-helm-key "hdm" describe-mode)
 (spacemacs||set-helm-key "hdp" describe-package)
+(evil-leader/set-key "hds" 'spacemacs/describe-system-info)
 (spacemacs||set-helm-key "hdt" describe-theme)
 (spacemacs||set-helm-key "hdv" describe-variable)
 (spacemacs||set-helm-key "hL" helm-locate-library)