Move {core,modules}/lib/*.el to {core,modules}/defuns/

core/lib/defuns-ui.el

@@ -1,61 +0,0 @@
-;;; defuns-ui.el
-;; for ../core-ui.el
-
-;;;###autoload
-(defun narf:toggle-transparency ()
-  (interactive)
-  (let* ((alpha (frame-parameter nil 'alpha))
-         (alpha-val (if (listp alpha) (car alpha) alpha)))
-    (if (/= alpha-val 97)
-        (set-frame-parameter nil 'alpha 100)
-      (set-frame-parameter nil 'alpha 0))))
-
-;;;###autoload (autoload 'narf:toggle-fullscreen "defuns-ui" nil t)
-(evil-define-command narf:toggle-fullscreen (&optional bang)
-  (interactive "<!>")
-  (if bang
-      (writeroom-mode (if writeroom-mode -1 1))
-    (set-frame-parameter nil 'fullscreen (if (not (frame-parameter nil 'fullscreen)) 'fullboth))))
-
-(defvar narf--big-mode nil)
-;;;###autoload
-(defun narf:toggle-big-mode ()
-  (interactive)
-  (set-frame-font (if narf--big-mode narf-default-font narf-big-font))
-  (setq narf--big-mode (not narf--big-mode)))
-
-;;;###autoload
-(defun narf/reset-theme ()
-  (interactive)
-  (narf/load-theme narf-theme))
-
-;;;###autoload
-(defun narf/load-theme (theme)
-  (interactive)
-  (ignore-errors
-    (mapc (lambda (th)
-            (when (custom-theme-enabled-p th) (disable-theme th)))
-          custom-enabled-themes))
-  (load-theme theme t))
-
-;;;###autoload
-(defun narf/default-font ()
-  (interactive)
-  (set-frame-font narf-default-font))
-
-;;;###autoload
-(defun narf/big-font ()
-  (interactive)
-  (set-frame-font narf-big-font))
-
-;;;###autoload
-(defun narf/show-as (how &optional pred)
-  (let* ((beg (match-beginning 1))
-         (end (match-end 1))
-         (ok (or (not pred) (funcall pred beg end))))
-    (when ok
-      (compose-region beg end how 'decompose-region))
-    nil))
-
-(provide 'defuns-ui)
-;;; defuns-ui.el ends here