🚧 (edam) First development version
This commit is contained in:
parent
4c58fa1033
commit
9d0d4ce330
2 changed files with 32 additions and 0 deletions
|
@ -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
23
packages/edam.el
Normal 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
|
Loading…
Add table
Add a link
Reference in a new issue