From b374baa04513ad6f18381c30339f8879bb2dbc30 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 2 Jan 2016 15:08:49 -0500 Subject: [PATCH] Clean up --- core/core.el | 2 +- core/lib/defuns-workgroup.el | 4 ++-- private/my-commands.el | 9 +++++---- 3 files changed, 8 insertions(+), 7 deletions(-) diff --git a/core/core.el b/core/core.el index 29bec675b..211e3087a 100644 --- a/core/core.el +++ b/core/core.el @@ -146,7 +146,7 @@ (defun narf-init () (setq-default - gc-cons-threshold 16777216 + gc-cons-threshold 8388608 gc-cons-percentage 0.3) (defadvice save-buffers-kill-emacs (around no-query-kill-emacs activate) diff --git a/core/lib/defuns-workgroup.el b/core/lib/defuns-workgroup.el index 23c851ded..00070a87a 100644 --- a/core/lib/defuns-workgroup.el +++ b/core/lib/defuns-workgroup.el @@ -26,8 +26,8 @@ (wg-save-session))) ;;;###autoload (autoload 'narf:load-session "defuns-workgroup" nil t) -(evil-define-command narf:load-session (&optional bang session-name) - (interactive "") +(evil-define-command narf:load-session (&optional session-name) + (interactive "") (wg-open-session (if session-name (concat wg-workgroup-directory session-name) wg-session-file)) diff --git a/private/my-commands.el b/private/my-commands.el index 0e8e35659..12ff562e3 100644 --- a/private/my-commands.el +++ b/private/my-commands.el @@ -66,10 +66,7 @@ (exmap "proj[ect]" 'narf:org-crm-project) (exmap "invo[ice]" 'narf:org-crm-invoice) -;; Plugins -(after! flycheck - (exmap "er[rors]" (λ! (flycheck-buffer) (flycheck-list-errors)))) - +;; Sessions/tabs (exmap "sl[oad]" 'narf:load-session) (exmap "ss[ave]" 'narf:save-session) (exmap "tabs" 'narf/tab-display) @@ -81,5 +78,9 @@ (exmap "tabp[rev]" 'narf:switch-to-tab-left) (exmap "tabl[ast]" 'narf:switch-to-tab-last) +;; Plugins +(after! flycheck + (exmap "er[rors]" (λ! (flycheck-buffer) (flycheck-list-errors)))) + (provide 'my-commands) ;;; my-commands.el ends here