🚧 (edam) First development version

This commit is contained in:
Marcel Kapfer 2025-06-28 15:11:09 +02:00
parent 4c58fa1033
commit 9d0d4ce330
Signed by: mmk2410
GPG key ID: CADE6F0C09F21B09
2 changed files with 32 additions and 0 deletions

View file

@ -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.

23
packages/edam.el Normal file
View file

@ -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