diff options
| -rw-r--r-- | el-exiftool-tests.el | 19 | ||||
| -rw-r--r-- | el-exiftool.el | 19 |
2 files changed, 37 insertions, 1 deletions
diff --git a/el-exiftool-tests.el b/el-exiftool-tests.el index 0dd0cc6..0025cf4 100644 --- a/el-exiftool-tests.el +++ b/el-exiftool-tests.el @@ -1,3 +1,12 @@ +;;; el-exiftool.el --- Elisp wrapper around exiftool ;; -*- lexical-binding: t -*- + +;; Elisp wrapper around exiftool +;; Copyright (C) 2017 by Arun I +;; +;; Author: Arun I <arunisaac@systemreboot.net> +;; Keywords: data +;; Homepage: https://git.systemreboot.net/el-exiftool + ;; This file is part of el-exiftool. ;; el-exiftool is free software: you can redistribute it and/or modify @@ -13,6 +22,12 @@ ;; You should have received a copy of the GNU General Public License ;; along with el-exiftool. If not, see <http://www.gnu.org/licenses/>. +;;; Commentary: +;; +;; Unit testing for el-exiftool + +;;; Code: + (require 'el-exiftool) (require 'ert) @@ -26,3 +41,7 @@ (should (equal (el-exiftool-read temp-filename (caar tag-value-alist)) tag-value-alist)) (delete-file temp-filename)))) + +(provide 'el-exiftool-tests) + +;;; el-exiftool-tests.el ends here diff --git a/el-exiftool.el b/el-exiftool.el index 789269c..dd4081b 100644 --- a/el-exiftool.el +++ b/el-exiftool.el @@ -1,4 +1,11 @@ -;; -*- lexical-binding: t -*- +;;; el-exiftool.el --- Elisp wrapper around exiftool ;; -*- lexical-binding: t -*- + +;; Elisp wrapper around exiftool +;; Copyright (C) 2017 by Arun I +;; +;; Author: Arun I <arunisaac@systemreboot.net> +;; Keywords: data +;; Homepage: https://git.systemreboot.net/el-exiftool ;; This file is part of el-exiftool. @@ -15,6 +22,14 @@ ;; You should have received a copy of the GNU General Public License ;; along with el-exiftool. If not, see <http://www.gnu.org/licenses/>. +;;; Commentary: +;; +;; el-exiftool is an elisp wrapper around exiftool. Exiftool supports +;; reading and writing metadata in various formats including EXIF, XMP +;; and IPTC. + +;;; Code: + (require 'subr-x) (require 'cl) @@ -89,3 +104,5 @@ The metadata to be written is specified as (TAG . VALUE) pairs. (list file)))) (provide 'el-exiftool) + +;;; el-exiftool.el ends here |