summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--el-exiftool-tests.el19
-rw-r--r--el-exiftool.el19
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