emacs: charm-freeze is a package now!

doom/config.el

@@ -40,6 +40,8 @@
   (dolist (file config-files)
     (load! file doom-user-dir)))
 
+(use-package! charm-freeze)
+
 ;; Elfeed
 (add-hook! 'elfeed-search-mode-hook #'elfeed-update)
 
@@ -81,26 +83,3 @@
 
  :prefix ("p" . "project")
  :desc "Occur in Project"  "O" #'projectile-multi-occur)
-
-(defun charm-freeze-clipboard ()
-  "Export your clipboard as a PNG using Charm's Freeze"
-  (interactive)
-  (let*
-      ((charm-freeze/lang (read-from-minibuffer "Language: "))
-       (charm-freeze/dir (concat
-                          (xdg-user-dir "PICTURES")
-                          "/freeze/"))
-
-       (charm-freeze/filename (concat
-                               (format-time-string "%FT%T%z" (current-time))
-                               ".png"))
-
-       (charm-freeze/output (concat charm-freeze/dir charm-freeze/filename))
-
-       (charm-freeze/cmd (concat
-                          "fish_clipboard_paste | freeze"
-                          " --output " charm-freeze/output
-                          " --language " charm-freeze/lang
-                          " --theme gruvbox")))
-
-    (async-shell-command charm-freeze/cmd (get-buffer-create "*Shell Output*"))))

doom/packages.el

@@ -16,6 +16,11 @@
 (package! centered-cursor-mode)
 (package! dape)
 
+;;(package! charm-freeze :recipe (:local-repo "~/Code/charm-freeze.el"))
+(package! charm-freeze :recipe (:host codeberg
+                                :repo "godmaire/charm-freeze.el"
+                                :branch "main"))
+
 (package! protobuf-mode)
 (package! prisma-mode :recipe (:host github :repo "pimeys/emacs-prisma-mode" :branch "main"))