Apply the package to itself:

stamp_dir("R", template = "agpl-3", recursive = TRUE, action="modify",
          copyright = "2025",
          author = "James J Balamuta")

Author: coatless

R/language-support.R

@@ -1,3 +1,20 @@
+# Copyright (c) 2025
+# Author: James J Balamuta
+# License: GNU Affero General Public License v3.0 or later
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
 #' Register a new language
 #'
 #' @param name Character. Language name.
@@ -8,7 +25,7 @@
 #'
 #' @return stamp_language object, invisibly.
 #' @export
-language_register <- function(name, extensions, comment_single, 
+language_register <- function(name, extensions, comment_single,
                               comment_multi_start = NULL, comment_multi_end = NULL) {
   lang <- structure(
     list(
@@ -20,11 +37,11 @@ language_register <- function(name, extensions, comment_single,
     ),
     class = "stamp_language"
   )
-  
+
   langs <- getOption("filestamp.languages", list())
   langs[[name]] <- lang
   options(filestamp.languages = langs)
-  
+
   invisible(lang)
 }
 
@@ -36,11 +53,11 @@ language_register <- function(name, extensions, comment_single,
 #' @export
 language_get <- function(name) {
   langs <- getOption("filestamp.languages", list())
-  
+
   if (!name %in% names(langs)) {
     cli::cli_abort("Language not found: {name}")
   }
-  
+
   langs[[name]]
 }
 
@@ -60,16 +77,16 @@ languages <- function() {
 #' @export
 detect_language <- function(file) {
   ext <- tolower(tools::file_ext(file))
-  
+
   langs <- languages()
-  
+
   for (lang_name in names(langs)) {
     lang <- langs[[lang_name]]
     if (ext %in% lang$extensions) {
       return(lang)
     }
   }
-  
+
   # Default to plain text
   language_get("text")
 }
@@ -84,7 +101,7 @@ detect_language <- function(file) {
 format_header <- function(content, language) {
   # Ensure content is properly split into lines
   lines <- unlist(strsplit(content, "\n"))
-  
+
   if (!is.null(language$comment_multi_start) && !is.null(language$comment_multi_end)) {
     # Use multi-line comments
     paste0(

R/printers.R

@@ -1,3 +1,20 @@
+# Copyright (c) 2025
+# Author: James J Balamuta
+# License: GNU Affero General Public License v3.0 or later
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
 #' Print method for templates
 #'
 #' @param x stamp_template object.
@@ -8,18 +25,18 @@
 #' @method print stamp_template
 print.stamp_template <- function(x, ...) {
   cli::cli_h1("Template: {x$name}")
-  
+
   cli::cli_h2("Fields:")
   for (field_name in names(x$fields)) {
     field <- x$fields[[field_name]]
     default <- if (is.null(field$default)) "<none>" else field$default
     required <- if (field$required) "Required" else "Optional"
     cli::cli_li("{field_name}: {default} ({required})")
   }
-  
+
   cli::cli_h2("Content:")
   cli::cli_code(x$content)
-  
+
   invisible(x)
 }
 
@@ -33,10 +50,10 @@ print.stamp_template <- function(x, ...) {
 #' @method print stamp_preview
 print.stamp_preview <- function(x, ...) {
   cli::cli_h1("Preview for: {x$file}")
-  
+
   cli::cli_h2("Header to be inserted:")
   cli::cli_code(x$header)
-  
+
   cli::cli_h2("Insertion point:")
   if (x$insert_position == 0) {
     cli::cli_text("Beginning of file")
@@ -45,12 +62,12 @@ print.stamp_preview <- function(x, ...) {
   } else {
     cli::cli_text("Line {x$insert_position}")
   }
-  
+
   cli::cli_h2("File properties:")
   cli::cli_li("Encoding: {x$encoding}")
   cli::cli_li("Line ending: {if (x$line_ending == '\n') 'LF' else if (x$line_ending == '\r') 'CR' else 'CRLF'}")
   cli::cli_li("Read-only: {if (x$read_only) 'Yes' else 'No'}")
-  
+
   invisible(x)
 }
 
@@ -64,19 +81,19 @@ print.stamp_preview <- function(x, ...) {
 #' @method print stamp_language
 print.stamp_language <- function(x, ...) {
   cli::cli_h1("Language: {x$name}")
-  
+
   cli::cli_h2("File extensions:")
   extensions <- paste(x$extensions, collapse = ", ")
   cli::cli_text(extensions)
-  
+
   cli::cli_h2("Comment style:")
   cli::cli_li("Single line: {x$comment_single}")
-  
+
   if (!is.null(x$comment_multi_start) && !is.null(x$comment_multi_end)) {
     cli::cli_li("Multi-line start: {x$comment_multi_start}")
     cli::cli_li("Multi-line end: {x$comment_multi_end}")
   }
-  
+
   invisible(x)
 }
 
@@ -90,25 +107,25 @@ print.stamp_language <- function(x, ...) {
 #' @method print stamp_dir_results
 print.stamp_dir_results <- function(x, ...) {
   cli::cli_h1("Directory Stamping Results: {x$dir}")
-  
+
   cli::cli_h2("Action: {x$action}")
-  
+
   success_count <- sum(sapply(x$results, function(r) r$status == "success"))
   error_count <- sum(sapply(x$results, function(r) r$status == "error"))
-  
+
   cli::cli_alert_success("{success_count} files successfully processed")
-  
+
   if (error_count > 0) {
     cli::cli_alert_danger("{error_count} files had errors")
-    
+
     cli::cli_h2("Errors:")
     for (result in x$results) {
       if (result$status == "error") {
         cli::cli_li("{result$file}: {result$message}")
       }
     }
   }
-  
+
   invisible(x)
 }
 
@@ -122,11 +139,11 @@ print.stamp_dir_results <- function(x, ...) {
 #' @method print stamp_file_info
 print.stamp_file_info <- function(x, ...) {
   cli::cli_h1("File Information: {x$path}")
-  
+
   cli::cli_li("Encoding: {x$encoding}")
   cli::cli_li("Line ending: {if (x$line_ending == '\n') 'LF' else if (x$line_ending == '\r') 'CR' else 'CRLF'}")
   cli::cli_li("Read-only: {if (x$read_only) 'Yes' else 'No'}")
-  
+
   invisible(x)
 }
 
@@ -140,19 +157,19 @@ print.stamp_file_info <- function(x, ...) {
 #' @method print stamp_update_preview
 print.stamp_update_preview <- function(x, ...) {
   cli::cli_h1("Update Preview for: {x$file}")
-  
+
   cli::cli_h2("Updated fields:")
   for (field_name in names(x$fields)) {
     cli::cli_li("{field_name}: {x$fields[[field_name]]}")
   }
-  
+
   cli::cli_h2("Header location:")
   cli::cli_text("Lines {x$range[1]} to {x$range[2]}")
-  
+
   cli::cli_h2("File properties:")
   cli::cli_li("Encoding: {x$encoding}")
   cli::cli_li("Line ending: {if (x$line_ending == '\n') 'LF' else if (x$line_ending == '\r') 'CR' else 'CRLF'}")
   cli::cli_li("Read-only: {if (x$read_only) 'Yes' else 'No'}")
-  
+
   invisible(x)
-}
+}

R/stamp-dir.R

@@ -1,3 +1,20 @@
+# Copyright (c) 2025
+# Author: James J Balamuta
+# License: GNU Affero General Public License v3.0 or later
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
 #' Stamp all files in a directory with a header
 #'
 #' @param dir Character. Path to directory to stamp.

R/stamp-file.R

@@ -1,3 +1,20 @@
+# Copyright (c) 2025
+# Author: James J Balamuta
+# License: GNU Affero General Public License v3.0 or later
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
 #' Stamp a single file with a header
 #'
 #' @param file Character. Path to file to stamp.

R/stamp-template.R

@@ -1,3 +1,20 @@
+# Copyright (c) 2025
+# Author: James J Balamuta
+# License: GNU Affero General Public License v3.0 or later
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
 #' Create a new template
 #'
 #' @param name Character. Name of template.

R/stamp-update.R

@@ -1,3 +1,20 @@
+# Copyright (c) 2025
+# Author: James J Balamuta
+# License: GNU Affero General Public License v3.0 or later
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
 #' Update existing file headers
 #'
 #' @param file Character. Path to file to update.

R/stamp-variables.R

@@ -1,3 +1,20 @@
+# Copyright (c) 2025
+# Author: James J Balamuta
+# License: GNU Affero General Public License v3.0 or later
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
 #' Get built-in variables
 #'
 #' @return Environment with built-in variables.

R/stamp.R

@@ -1,3 +1,20 @@
+# Copyright (c) 2025
+# Author: James J Balamuta
+# License: GNU Affero General Public License v3.0 or later
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
 #' Stamp a file or directory with a header
 #'
 #' This is the main entry point for the filestamp package. It automatically