diff --git a/init.el b/init.el index 8624320f16afa438775c153faaa3d3b1472cdf71..0b4d8cb7f061215601aae6981598587e77fef859 100644 --- a/init.el +++ b/init.el @@ -8,7 +8,13 @@ ;;; Code: ;;====================================================================================== -;; (setq debug-on-error t) +(setq debug-on-error t) + + +(let ( + ;; adjust garbage collection at startup + (gc-cons-threshold most-positive-fixnum) + (gc-cons-percentage 0.6)) ;; Use a hook so the messages doesn't get clobbered by other messages. (add-hook 'emacs-startup-hook @@ -20,9 +26,9 @@ gcs-done))) ;; adjust garbage collection thresholds during startup, and thereafter -(setq gc-cons-threshold (* 128 1024 1024)) -(add-hook 'emacs-startup-hook - (lambda () (setq gc-cons-threshold (* 20 1024 1024)))) +;; (add-hook 'emacs-startup-hook +;; (lambda () (setq gc-cons-threshold most-positive-fixnum) +;; (setq gc-cons-percentage 0.6))) ;; extract different file for emacs (setq custom-file (expand-file-name "custom.el" user-emacs-directory)) @@ -40,15 +46,6 @@ (expand-file-name "elpa" user-emacs-directory ) "Packages install by package-initilize.") -;; variables---------------------------------------------------------------------------- -(defvar helm-display-buffer-regexp - `("*.*helm.**" - (display-buffer-in-side-window) - (inhibit-same-window . t) - (side . bottom) - (window-width . 0.6) - (window-height . 0.4))) - ;;; My Functions======================================================================= (defun open-init-file() "Find and open the init.el." @@ -209,13 +206,21 @@ (use-package snails :load-path "lisp/snails" - :bind (("C-c s s" . snails)) + :bind (("C-c s s" . 'snails)) ) (use-package window-jump - :ensure t) + :ensure t + :bind + (("C-c w l" . 'window-jump-right) + ("C-c w h" . 'window-jump-left) + ("C-c w k" . 'window-jump-up) + ("C-c w j" . 'window-jump-down) + ("C-c w 2" . 'split-window-right) + ("C-c w 0" . 'delete-window) + ("C-c w 1" . 'delete-other-windows) + )) -;; Helm------------------------------------------------------------------------------------ (use-package popwin :ensure t) @@ -230,7 +235,8 @@ :diminish projectile-mode :bind (("C-c p f" . 'counsel-projectile-find-file) ("C-c p p" . 'counsel-projectile-switch-project) - ("C-c p b" . 'counsel-projectile-switch-to-buffer)) + ("C-c p b" . 'counsel-projectile-switch-to-buffer) + ("C-c p k" . 'projectile-kill-buffers)) ) (use-package recentf :defer 1) @@ -291,10 +297,16 @@ :diminish which-key-mode ) (require 'keybindings) - +) ;;; self-defined packages (use-package program - :load-path "lisp/program") + :load-path "lisp/program" + :hook prog-mode + ) + +(use-package use-org + :load-path "lisp/use-org" + :hook org-mode) (provide 'init) ;;; init.el ends here diff --git a/lisp/keybindings.el b/lisp/keybindings.el index 8b04eb058dd7bdee78bcf730ed99f5a878ca2d83..0e71592e311ab6aae193db7d3ae3b1b3cdd29281 100644 --- a/lisp/keybindings.el +++ b/lisp/keybindings.el @@ -28,6 +28,7 @@ "p h" 'counsel-projectile "p p" 'counsel-projectile-switch-project "p b" 'counsel-projectile-switch-to-buffer + "p k" 'projectile-kill-buffers ;; windows options------------------------- "w l" 'window-jump-right "w h" 'window-jump-left diff --git a/lisp/program/program.el b/lisp/program/program.el index 0b9fc63cc35f55f5e28f74440848b0506801046b..5c1b4b6f8bd5699cf1b8135efa57d47fe52aa0cc 100644 --- a/lisp/program/program.el +++ b/lisp/program/program.el @@ -15,5 +15,10 @@ (require 'prog-haskell) (require 'prog-lsp) +(defun program () + "Manage programming issues for Emacs." + (interactive) + ) + (provide 'program) ;;; program.el ends here diff --git a/lisp/use-org.el b/lisp/use-org/use-org.el similarity index 89% rename from lisp/use-org.el rename to lisp/use-org/use-org.el index 94bbea8ff6828d6da52b55528df671347170db75..61fee25cc49ddb45b1b5a25f1b1976b2122a0e7f 100644 --- a/lisp/use-org.el +++ b/lisp/use-org/use-org.el @@ -1,4 +1,5 @@ ;; use-org.el --- the org mode file +;;; Commentary: ;;; Code: @@ -34,5 +35,10 @@ (defvar org-user-latex-class (list org-ctexart-class org-complex-ctexbook-class org-simple-ctexbook-class)) +(defun use-org () + "Manage useage of 'org-mode'." + (interactive) + (message "Welcome to the world of writting")) + (provide 'use-org) ;;; use-org ends here