🚧 (edam) First development version

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.

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