From 809f3dde2c476a271215df67c7ddaf0e5b98cbe8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Kirill=20M=C3=BCller?= Date: Sun, 24 Nov 2024 19:58:03 +0100 Subject: [PATCH] Move code --- R/update-news.R | 64 ++++++++++++++++++++++++------------------------- 1 file changed, 32 insertions(+), 32 deletions(-) diff --git a/R/update-news.R b/R/update-news.R index 42845ffd..fc40bbfb 100644 --- a/R/update-news.R +++ b/R/update-news.R @@ -22,38 +22,6 @@ update_news_impl <- function(commits, add_news_to_fledgeling(fledgeling, news_lines, which, news_items) } -add_news_to_fledgeling_samedev <- function(fledgeling, news_lines) { - # Append and regroup - initializing <- is.null(fledgeling[["news"]]) - - if (initializing) { - fledgeling[["news"]] <- tibble::tibble( - start = 3, - h2 = FALSE, - version = fledgeling[["version"]], - date = "", - nickname = "", - original = "", - news = list(parse_news_lines(news_lines)), - raw = news_lines, - section_state = "new" - ) - } else { - old_news <- news_from_versions(parse_news_md(fledgeling[["news"]]$raw[[1]]))[[1]] - combined <- c(parse_news_lines(news_lines), old_news) - combined <- purrr::discard(combined, purrr::is_empty) - regrouped <- regroup_news(combined) - fledgeling[["news"]]$raw[[1]] <- format_news_subsections(regrouped, header_level = 2) - fledgeling[["news"]][1, ]$section_state <- "new" - } - - if (fledge_chatty()) { - cli_alert("Added items to {.file {news_path()}}.") - } - - fledgeling -} - add_news_to_fledgeling <- function( fledgeling, news_lines, @@ -145,6 +113,38 @@ add_news_to_fledgeling <- function( fledgeling } + +add_news_to_fledgeling_samedev <- function(fledgeling, news_lines) { + # Append and regroup + initializing <- is.null(fledgeling[["news"]]) + + if (initializing) { + fledgeling[["news"]] <- tibble::tibble( + start = 3, + h2 = FALSE, + version = fledgeling[["version"]], + date = "", + nickname = "", + original = "", + raw = news_lines, + section_state = "new" + ) + } else { + old_news <- news_from_versions(parse_news_md(fledgeling[["news"]]$raw[[1]]))[[1]] + combined <- c(parse_news_lines(news_lines), old_news) + combined <- purrr::discard(combined, purrr::is_empty) + regrouped <- regroup_news(combined) + fledgeling[["news"]]$raw[[1]] <- format_news_subsections(regrouped, header_level = 2) + fledgeling[["news"]][1, ]$section_state <- "new" + } + + if (fledge_chatty()) { + cli_alert("Added items to {.file {news_path()}}.") + } + + fledgeling +} + news_path <- function() { "NEWS.md" }