diff --git a/config.org b/config.org index e76f290..570ea4a 100644 --- a/config.org +++ b/config.org @@ -2934,6 +2934,15 @@ API Integration for [[https://linkding.link/][Linkding]]. linkding-user "mmk2410")) #+end_src +* EDAM + +A simple work-in-progress photography DAM in Emacs. + +#+begin_src emacs-lisp +(use-package edam + :load-path "packages/") +#+end_src + * Work For my workplace I have some additional packages and configuration that I keep in an own file. diff --git a/packages/edam.el b/packages/edam.el new file mode 100644 index 0000000..01d5c84 --- /dev/null +++ b/packages/edam.el @@ -0,0 +1,23 @@ +;;; edam.el --- Eamcs DAM -*- lexical-binding: t -*- + +;;; Commentary: +;;; A simple work-in-progress photography DAM in Emacs + +;;; Code: +(require 'dired) + +(defun edam-set-rating-file-at-point (rating) + "Set image RATING." + (interactive "nRating: ") + (let ((args (cond ((= rating 1) "-Rating=1 -RatingPercent=1") + ((= rating 2) "-Rating=2 -RatingPercent=25") + ((= rating 3) "-Rating=3 -RatingPercent=50") + ((= rating 4) "-Rating=4 -RatingPercent=75") + ((= rating 5) "-Rating=5 -RatingPercent=99") + (t (error "Not a valid rating"))))) + (dired-do-shell-command + (concat "exiftool " args) + (dired-get-marked-files)))) + +(provide 'edam) +;;; edam.el ends here