docs

photogal.el

@@ -181,13 +181,6 @@ for all tags defined -- one function per tag."
     (photogal-set-tags-for-file file
 		       (seq-sort #'string< (seq-uniq (cons tag tags))))))
 
-(defun photogal-name-the-file (name)
-  (interactive "sWhat do u want to name this file? ")
-  (photogal-set-name-for-file
-   (photogal-current-file)
-   (string-replace " " "-"  name))
-  (photogal-refresh-buffer))
-
 (defun photogal-rm-tag-from-file (file tag)
   "Dissociate tag from file."
   (defun tags-without-tag (tags tag)
@@ -205,6 +198,16 @@ for all tags defined -- one function per tag."
   (let ((tags (photogal-get-tags-for-file file)))
     (seq-contains-p tags tag)))
 
+
+;;;;  --  ----  --  -     FILE NAME     -  --  ----  --  ;;;;
+
+(defun photogal-name-the-file (name)
+  (interactive "sWhat do u want to name this file? ")
+  (photogal-set-name-for-file
+   (photogal-current-file)
+   (string-replace " " "-"  name))
+  (photogal-refresh-buffer))
+
 ;;;;  --  ----  --  -      FILE OPS     -  --  ----  --  ;;;;
 
 (defun photogal-all-photos (directory)
@@ -275,6 +278,10 @@ for all tags defined -- one function per tag."
   (photogal-refresh-buffer t))
 
 ;;;;  --  ----  --  - LO-LEVEL DISPLAY  -  --  ----  --  ;;;;
+;; this stuff paints the words on the screen, changing     ;;
+;; color, etc, pprinting stuff at a pretty granular and    ;;
+;; tediously technical level.                              ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defun photogal-insert-tags-to-buffer (tags)
   "Pretty print the tags with their toggle key."
@@ -319,6 +326,8 @@ for all tags defined -- one function per tag."
     (put-text-property beg (point) 'font-lock-face `(:foreground ,color))))
 
 ;;;;  --  ----  --  -     META SHIT     -  --  ----  --  ;;;;
+;; this is the coolest damn thing here.                    ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defmacro photogal-generate-tagger (name)
   "Generate function to toggle a tag which is itself on the current file.