[global] Multiple small improvements.

elisp/init-cc.el

@@ -6,8 +6,8 @@
 ;; Copyright (C) 2019 Mingde (Matthew) Zeng
 ;; Created: Fri Mar 15 10:58:29 2019 (-0400)
 ;; Version: 2.0.0
-;; Last-Updated: Thu Dec 26 02:07:34 2019 (-0500)
+;; Last-Updated: mar. janv. 14 10:20:42 2020 (+0100)
-;;           By: Mingde (Matthew) Zeng
+;;           By: Mikaël Capelle
 ;; URL: https://github.com/MatthewZMD/.emacs.d
 ;; Keywords: M-EMACS .emacs.d c c++ go ccls
 ;; Compatibility: emacs-version >= 26.1
@@ -41,29 +41,30 @@
   (require 'init-const))
 
 ;; CCLSPac
-(use-package ccls
+;; (use-package ccls
-  :defer t
+;;   :defer t
-  :if (not *sys/win32*)
+;;   :if (not *sys/win32*)
-  :hook ((c-mode c++-mode objc-mode) .
+;;   :hook ((c-mode c++-mode objc-mode) .
-         (lambda () (require 'ccls) (lsp)))
+;;          (lambda () (require 'ccls) (lsp)))
-  :custom
+;;   :custom
-  (ccls-executable (executable-find "ccls")) ; Add ccls to path if you haven't done so
+;;   (ccls-executable (executable-find "ccls")) ; Add ccls to path if you haven't done so
-  (ccls-sem-highlight-method 'font-lock)
+;;   (ccls-sem-highlight-method 'font-lock)
-  (ccls-enable-skipped-ranges nil)
+;;   (ccls-enable-skipped-ranges nil)
-  :config
+;;   :config
-  (lsp-register-client
+;;   (lsp-register-client
-   (make-lsp-client
+;;    (make-lsp-client
-    :new-connection (lsp-tramp-connection (cons ccls-executable ccls-args))
+;;     :new-connection (lsp-tramp-connection (cons ccls-executable ccls-args))
-    :major-modes '(c-mode c++-mode cuda-mode objc-mode)
+;;     :major-modes '(c-mode c++-mode cuda-mode objc-mode)
-    :server-id 'ccls-remote
+;;     :server-id 'ccls-remote
-    :multi-root nil
+;;     :multi-root nil
-    :remote? t
+;;     :remote? t
-    :notification-handlers
+;;     :notification-handlers
-    (lsp-ht ("$ccls/publishSkippedRanges" #'ccls--publish-skipped-ranges)
+;;     (lsp-ht ("$ccls/publishSkippedRanges" #'ccls--publish-skipped-ranges)
-            ("$ccls/publishSemanticHighlight" #'ccls--publish-semantic-highlight))
+;;             ("$ccls/publishSemanticHighlight" #'ccls--publish-semantic-highlight))
-    :initialization-options (lambda () ccls-initialization-options)
+;;     :initialization-options (lambda () ccls-initialization-options)
-    :library-folders-fn nil)))
+;;     :library-folders-fn nil)))
-;; -CCLSPac
+;; ;; -CCLSPac
+
 
 ;; CPPFontLockPac
 (use-package modern-cpp-font-lock

elisp/init-dired.el

@@ -72,6 +72,13 @@
                                  (lambda () (interactive) (find-alternate-file ".."))))))
 ;; -DiredPackage
 
+(use-package dired-subtree
+  :config
+  (bind-keys :map dired-mode-map
+             ("i" . dired-subtree-insert)
+             (";" . dired-subtree-remove)
+             ("<tab>" . dired-subtree-toggle)))
+
 ;; DiskUsage
 (use-package disk-usage
   :commands (disk-usage))

elisp/init-langs.el

@@ -54,6 +54,10 @@
 (use-package yaml-mode
   :mode "\\.yml\\'")
 
+(use-package ssh-config-mode)
+
+(add-hook 'prog-mode-hook #'hs-minor-mode)
+
 (provide 'init-langs)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; init-langs.el ends here