将 ID 属性添加到目录中的 Org 模式文件

 #!/bin/bash # Directory containing the Org-mode files ORG_DIR = " ${ 1 :- . } " # Defaults to current directory if not provided   
# Loop through all .org files in the specified directory for file in " $ORG_DIR " /*.org; do # Skip if no Org-mode files are found [ -e " $file " ] || continue   
# Check if the :ID: property exists in the first 5 lines if ! head -n 5 " $file " | grep -q "^:ID:" ; then # Generate a unique ID (UUID) id = $( uuidgen )   
# Create the :PROPERTIES: block with the :ID: properties_block = ":PROPERTIES:\n:ID: $id \n:END:"   
# Insert the :PROPERTIES: block at the very top of the file gsed -i "1i $properties_block " " $file "   
 echo "Added :ID: $id inside a :PROPERTIES: block to $file " else echo ":ID: already exists in the first 5 lines of $file " fi done

 (defun add-id-to-org-files-in-dired () "Add :ID: property inside a :PROPERTIES: block at the top of all Org files in the current Dired buffer." (interactive) ;;(require 'uuidgen) ;; Ensure `uuidgen` is available (dired-map-dired-file-lines (lambda (file) (when (and (string-suffix-p ".org" file t ) (file-exists-p file)) (with-temp-buffer (insert-file-contents file) ;; Check the first 5 lines for an existing :ID: property (unless (save-excursion (goto-char (point-min)) (search-forward ":ID:" (line-end-position 5 ) t )) ;; Insert the :PROPERTIES: block at the top of the file (goto-char (point-min)) (insert ":PROPERTIES:\n:ID: " (org-id-uuid) "\n:END:\n\n" ) (write-region (point-min) (point-max) file)) (message "Added :ID: to %s" file))))))