Clean up

core/lib/defuns-flycheck.el

@@ -1,9 +1,15 @@
 ;;; defuns-flycheck.el
 ;; for ../core-flycheck.el
 
+;;;###autoload
+(defun narf|flycheck-enable-maybe ()
+  (unless (or (bound-and-true-p org-src-mode)
+              (eq major-mode 'org-mode))
+    (flycheck-mode +1)))
+
 ;;;###autoload
 (defun narf*flycheck-buffer ()
-  (when (and (featurep 'flycheck) flycheck-mode)
+  (when (bound-and-true-p flycheck-mode)
     (flycheck-buffer)))
 
 ;;;###autoload

core/lib/defuns-helm.el

@@ -6,17 +6,6 @@
   (when (narf/project-p)
     (projectile-invalidate-cache nil)))
 
-;;;###autoload
-(defun narf*projectile-replace-prompt (&optional string)
-  "Don't show the project name in the prompts; I already know."
-  helm-global-prompt)
-
-;;;###autoload
-(defun narf*helm-hide-modeline (source &optional force)
-  "No persistent header."
-  (setq mode-line-format nil)
-  (setq header-line-format nil))
-
 ;;;###autoload
 (defun narf/helm-get-org-candidates-in-file (filename min-depth max-depth &optional fontify nofname)
   (with-current-buffer (pcase filename
@@ -70,8 +59,7 @@
     (helm :sources (if search helm-ag-source '(helm-source-do-ag))
           :buffer "*helm-ag*"
           :keymap helm-ag-map
-          :input input
-          :prompt helm-global-prompt)))
+          :input input)))
 
 ;;;###autoload (autoload 'narf:helm-regex-search "defuns-helm" nil t)
 (evil-define-operator narf:helm-regex-search (beg end &optional search bang)

core/lib/defuns-workgroup.el

@@ -108,5 +108,15 @@
       (wg-switch-to-workgroup-at-index index)
       (narf:workgroup-display))))
 
+;;;###autoload
+(defun narf/undo-window-change ()
+  (interactive)
+  (call-interactively (if (wg-current-workgroup t) 'wg-undo-wconfig-change 'winner-undo)))
+
+;;;###autoload
+(defun narf/redo-window-change ()
+  (interactive)
+  (call-interactively (if (wg-current-workgroup t) 'wg-redo-wconfig-change 'winner-redo)))
+
 (provide 'defuns-workgroup)
 ;;; defuns-workgroup.el ends here