[global] Multiple small improvements.

elisp/init-dashboard.el

@@ -6,8 +6,8 @@
 ;; Copyright (C) 2019 Mingde (Matthew) Zeng
 ;; Created: Thu Mar 14 17:21:46 2019 (-0400)
 ;; Version: 2.0.0
-;; Last-Updated: Mon Dec 23 18:19:44 2019 (-0500)
-;;           By: Mingde (Matthew) Zeng
+;; Last-Updated: lun. janv. 13 17:02:52 2020 (+0100)
+;;           By: Mikaël Capelle
 ;; URL: https://github.com/MatthewZMD/.emacs.d
 ;; Keywords: M-EMACS .emacs.d dashboard
 ;; Compatibility: emacs-version >= 26.1
@@ -46,34 +46,34 @@
   (dashboard-banner-logo-title "Close the world. Open the nExt.")
   (dashboard-startup-banner
    (expand-file-name "images/KEC_Dark_BK_Small.png" user-emacs-directory))
-  (dashboard-items '((recents  . 7)
-		     (bookmarks . 7)
-		     (agenda . 5)))
+  (dashboard-items '((recents  . 8)
+                     (projects . 8)
+                     (bookmarks . 8)))
   (dashboard-set-heading-icons t)
   (dashboard-set-navigator t)
   (initial-buffer-choice (lambda () (get-buffer dashboard-buffer-name)))
   (dashboard-navigator-buttons
    (if (featurep 'all-the-icons)
        `(((,(all-the-icons-octicon "mark-github" :height 1.1 :v-adjust -0.05)
-	   "M-EMACS" "Browse M-EMACS Homepage"
-	   (lambda (&rest _) (browse-url "https://github.com/MatthewZMD/.emacs.d")))
-	  (,(all-the-icons-fileicon "elisp" :height 1.0 :v-adjust -0.1)
-	   "Configuration" "" (lambda (&rest _) (edit-configs)))))
+           "M-EMACS" "Browse M-EMACS Homepage"
+           (lambda (&rest _) (browse-url "https://github.com/MatthewZMD/.emacs.d")))
+          (,(all-the-icons-fileicon "elisp" :height 1.0 :v-adjust -0.1)
+           "Configuration" "" (lambda (&rest _) (edit-configs)))))
      `((("" "M-EMACS" "Browse M-EMACS Homepage"
-	 (lambda (&rest _) (browse-url "https://github.com/MatthewZMD/.emacs.d")))
-	("" "Configuration" "" (lambda (&rest _) (edit-configs)))))))
+         (lambda (&rest _) (browse-url "https://github.com/MatthewZMD/.emacs.d")))
+        ("" "Configuration" "" (lambda (&rest _) (edit-configs)))))))
   :custom-face
   (dashboard-banner-logo-title ((t (:family "Love LetterTW" :height 123))))
   :config
   (dashboard-modify-heading-icons '((recents . "file-text")
-				    (bookmarks . "book")))
+                                    (bookmarks . "book")))
   (dashboard-setup-startup-hook)
   ;; Open Dashboard function
   (defun open-dashboard ()
     "Open the *dashboard* buffer and jump to the first widget."
     (interactive)
     (if (get-buffer dashboard-buffer-name)
-	(kill-buffer dashboard-buffer-name))
+        (kill-buffer dashboard-buffer-name))
     (dashboard-insert-startupify-lists)
     (switch-to-buffer dashboard-buffer-name)
     (goto-char (point-min))

elisp/init-projectile.el

@@ -6,8 +6,8 @@
 ;; Copyright (C) 2019 Mingde (Matthew) Zeng
 ;; Created: Fri Mar 15 09:10:23 2019 (-0400)
 ;; Version: 2.0.0
-;; Last-Updated: Thu Aug  8 16:07:35 2019 (-0400)
-;;           By: Mingde (Matthew) Zeng
+;; Last-Updated: lun. janv. 13 17:34:30 2020 (+0100)
+;;           By: Mikaël Capelle
 ;; URL: https://github.com/MatthewZMD/.emacs.d
 ;; Keywords: M-EMACS .emacs.d projectile
 ;; Compatibility: emacs-version >= 26.1
@@ -48,13 +48,20 @@
   ("C-z p" . projectile-add-known-project)
   :custom
   (projectile-completion-system 'ivy)
+  (projectile-git-submodule-command
+   "git submodule --quiet foreach \"echo $sm_path\" | tr '\\n' '\\0'")
   :config
   (projectile-mode 1)
-  (when (and *sys/win32* *tr*)
-    (setq projectile-indexing-method 'alien))
+  (setq projectile-indexing-method 'alien)
   (add-to-list 'projectile-globally-ignored-directories "node_modules"))
 ;; -ProjPac
 
+(use-package counsel-projectile
+  :custom
+  (projectile-use-git-grep t)
+  :config
+  (counsel-projectile-mode))
+
 (provide 'init-projectile)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; init-projectile.el ends here

elisp/init-search.el

@@ -87,7 +87,8 @@
   :custom-face
   (snails-content-buffer-face ((t (:background "#111" :height 110))))
   (snails-input-buffer-face ((t (:background "#222" :foreground "gold" :height 110))))
-  (snails-header-line-face ((t (:inherit font-lock-function-name-face :underline t :height 1.1))))
+  (snails-header-line-face
+   ((t (:inherit font-lock-function-name-face :underline t :height 1.1))))
   :config
   (use-package exec-path-from-shell
     :if (featurep 'cocoa) :defer t)
@@ -109,6 +110,14 @@
    ("M-s e" . snails-everywhere)))
 ;; -SnailsPac
 
+(use-package imenu-list
+  :custom
+  (imenu-list-auto-resize t)
+  :bind
+  (("C-x t l" . imenu-list-smart-toggle))
+  :config
+  (imenu-list-minor-mode))
+
 (provide 'init-search)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; init-ag.el ends here