General cleanup

core/core-company.el

@@ -1,8 +1,6 @@
 ;;; core-company.el --- auto completion backend (Company-mode)
 ;; see lib/company-macros.el
 
-(eval-when-compile (require 'core))
-
 (use-package company
   :commands (global-company-mode company-complete-common company-dict
              company-files company-tags company-ispell company-yasnippet

core/core-vars.el

@@ -19,7 +19,7 @@
                               messages-buffer-mode)
   "A list of regexps or modes whose buffers are considered unreal, and will be
 ignored when using `narf:next-real-buffer' and `narf:previous-real-buffer', and
-killed by `narf:kill-unreal-buffers'.
+killed by `narf/kill-unreal-buffers'.
 
 `narf:kill-this-buffer' will also gloss over these buffers when finding a new
 buffer to display.")

core/core-workgroups.el

@@ -4,6 +4,7 @@
 (use-package workgroups2
   :when (display-graphic-p)
   :init
+  (add-hook! after-init 'workgroups-mode)
   (setq-default
    wg-session-file          (expand-file-name "wg-default" narf-temp-dir)
    wg-workgroup-directory   (expand-file-name "workgroups" narf-temp-dir)
@@ -52,7 +53,7 @@ lib/defuns-workgroups.el.")
   (advice-add 'wg-change-modeline :override 'ignore)
 
   ;; Don't remember popup windows
-  (add-hook! (kill-emacs) 'narf-popup-close-all))
+  (add-hook! kill-emacs 'narf-popup-close-all))
 
 (provide 'core-workgroups)
 ;;; core-workgroups.el ends here

core/core.el

@@ -13,6 +13,7 @@
 ;;
 ;;;
 
+;; Ask for confirmation on exit only if there are real buffers left
 (when window-system
   (setq confirm-kill-emacs
         (lambda (_)
@@ -72,13 +73,15 @@
 
 ;; Bootstrap ;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+(autoload 'use-package "use-package" "" nil 'macro)
+(require 'dash)
+
 (unless (require 'autoloads nil t)
   (load (concat narf-emacs-dir "scripts/generate-autoloads.el"))
   (require 'autoloads))
 (require 'core-vars)
 (require 'core-defuns)
 
-(autoload 'use-package "use-package" "" nil 'macro)
 (eval-when-compile
   (setq use-package-verbose nil)
 
@@ -135,6 +138,12 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+(require (cond (IS-MAC      'core-os-osx)
+               (IS-LINUX    'core-os-linux)
+               (IS-WINDOWS  'core-os-win32)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
 (defun narf-init ()
   (setq-default
    gc-cons-threshold 16777216

core/lib/defuns-compile.el

@@ -1,7 +1,5 @@
 ;;; defuns-compile.el
 
-;; (eval-when-compile (require 'core))
-
 ;;;###autoload
 (defun narf/is-recompilable-p ()
   "Does an .elc file exist and is this file in the .emacs.d folder?"

init-packages.el

@@ -10,7 +10,7 @@
 (defconst narf-modules-dir   (concat narf-emacs-dir "modules/"))
 (defconst narf-contrib-dir   (concat narf-emacs-dir "contrib/"))
 (defconst narf-private-dir   (concat narf-emacs-dir "private/"))
-(defconst narf-packages-dir  (concat narf-emacs-dir ".packages/"))
+(defconst narf-packages-dir  (concat narf-emacs-dir ".cask/" emacs-version "/elpa/"))
 
 (defconst narf-script-dir    (concat narf-emacs-dir "scripts/"))
 (defconst narf-dropbox-dir   "~/Dropbox/")
@@ -51,14 +51,11 @@
                                 (list (concat narf-core-dir "lib"))
                                 (list (concat narf-modules-dir "lib"))
                                 (--subdirs narf-contrib-dir)
-                                (--subdirs (concat narf-packages-dir "el-get/"))
+                                (--subdirs narf-packages-dir)
                                 load-path))))
 
 ;;;;;;;;;;;;;;;;
 
-(autoload 'use-package "use-package" "" nil 'macro)
-(require 'dash)
-
 (when (file-exists-p "~/.emacs.local.el")
   (load "~/.emacs.local.el"))