diff --git a/R/console.R b/R/console.R
index 6c8f6bb208e..1d84509df1c 100644
--- a/R/console.R
+++ b/R/console.R
@@ -38,6 +38,8 @@ igraph.console <- function() {
 
 #' The igraph console
 #'
+#' `r lifecycle::badge("deprecated")`
+#'
 #' The igraph console is a GUI window that shows what the currently running
 #' igraph function is doing.
 #'
diff --git a/R/tkplot.R b/R/tkplot.R
index 9342a284939..41723c78809 100644
--- a/R/tkplot.R
+++ b/R/tkplot.R
@@ -197,6 +197,8 @@ assign(".next", 1, .tkplot.env)
 
 #' Interactive plotting of graphs
 #'
+#' `r lifecycle::badge("deprecated")`
+#'
 #' `tkplot()` and its companion functions serve as an interactive graph
 #' drawing facility. Not all parameters of the plot can be changed
 #' interactively right now though, e.g. the colors of vertices, edges, and also
diff --git a/man/console.Rd b/man/console.Rd
index d2280ed140e..aca756973ca 100644
--- a/man/console.Rd
+++ b/man/console.Rd
@@ -10,10 +10,12 @@ console()
 \code{NULL}, invisibly.
 }
 \description{
-The igraph console is a GUI window that shows what the currently running
-igraph function is doing.
+\ifelse{html}{\href{https://lifecycle.r-lib.org/articles/stages.html#deprecated}{\figure{lifecycle-deprecated.svg}{options: alt='[Deprecated]'}}}{\strong{[Deprecated]}}
 }
 \details{
+The igraph console is a GUI window that shows what the currently running
+igraph function is doing.
+
 The console can be started by calling the \code{console()} function.
 Then it stays open, until the user closes it.
 
diff --git a/man/tkplot.Rd b/man/tkplot.Rd
index f601f105f74..98f5b301a4f 100644
--- a/man/tkplot.Rd
+++ b/man/tkplot.Rd
@@ -78,12 +78,14 @@ used to manipulate it from the command line.
 and \code{tk_rotate()} return \code{NULL} invisibly.
 }
 \description{
+\ifelse{html}{\href{https://lifecycle.r-lib.org/articles/stages.html#deprecated}{\figure{lifecycle-deprecated.svg}{options: alt='[Deprecated]'}}}{\strong{[Deprecated]}}
+}
+\details{
 \code{tkplot()} and its companion functions serve as an interactive graph
 drawing facility. Not all parameters of the plot can be changed
 interactively right now though, e.g. the colors of vertices, edges, and also
 others have to be pre-defined.
-}
-\details{
+
 \code{tkplot()} is an interactive graph drawing facility. It is not very well
 developed at this stage, but it should be still useful.
 
diff --git a/vignettes/articles/current-deprecations.Rmd b/vignettes/articles/current-deprecations.Rmd
index 96fee9a2914..5c24884987e 100644
--- a/vignettes/articles/current-deprecations.Rmd
+++ b/vignettes/articles/current-deprecations.Rmd
@@ -61,28 +61,46 @@ parse_lifecycle_call <- function(symbol_function_call) {
     warn = "2 -- warn",
     stop = "3 -- stop"
   )
-  
+
   args <- purrr::keep(
     xml2::xml_siblings(xml2::xml_parent(symbol_function_call)),
     \(x) xml2::xml_name(x) == "expr"
   )
   version <- xml2::xml_text(args[[1]])
   old <- xml2::xml_text(args[[2]])
+  if (grepl("I\\(", old)) {
+    old <- sub('.*I\\("(.*)"\\).*', '\\1', old)
+    old_text <- withr::with_options(list("downlit.attached" = "igraph"), {
+      downlit::downlit_md_string(old)
+    })
+  } else {
+    old_text <- old
+  }
   new <- if (length(args) > 2) xml2::xml_text(args[[3]]) else ""
-  
-  new_text <- link_new(clean_arg(new))
-  
-  if (!grepl("<a", new_text)) {
-    old_text <- link_new(clean_arg(old))
+  if (grepl("base::c", new) || grepl("^sprintf", new)) {
+    new_text <- ""
+  } else if (grepl("I\\(", new)) {
+    new <- sub('.*I\\("(.*)"\\).*', '\\1', new)
+    new <- sub("^'", "", new)
+    new <- sub("'$", "", new)
+    new_text <- withr::with_options(list("downlit.attached" = "igraph"), {
+      downlit::downlit_md_string(new)
+    })
   } else {
-    old_text <- clean_arg(old)
+    new_text <- sub("\n", "", link_new(clean_arg(new)))
+
+    if (!grepl("<a", new_text)) {
+      old_text <- link_new(clean_arg(old))
+    } else {
+      old_text <- clean_arg(old)
+    }
   }
-  
+
   tibble::tibble(
     level = level,
     version = clean_arg(version),
     old = old_text,
-    new  = new_text
+    new = new_text
   )
 }
 
@@ -92,12 +110,14 @@ parse_script <- function(path) {
     xmlparsedata::xml_parse_data(pretty = TRUE) |>
     xml2::read_xml() |>
     xml2::xml_find_all(
-    ".//SYMBOL_FUNCTION_CALL[contains(text(), 'deprecate_')]"
-  ) 
-  
-  if (length(lifecycle_calls) == 0) return(NULL)
-  
-  lifecycle_calls_info <-  purrr::map(lifecycle_calls, parse_lifecycle_call)
+      ".//SYMBOL_FUNCTION_CALL[contains(text(), 'deprecate_')]"
+    )
+
+  if (length(lifecycle_calls) == 0) {
+    return(NULL)
+  }
+
+  lifecycle_calls_info <- purrr::map(lifecycle_calls, parse_lifecycle_call)
 
   do.call(rbind, lifecycle_calls_info)
 }
@@ -109,7 +129,6 @@ table <- do.call(
   rbind,
   purrr::map(scripts, parse_script)
 )
-
+table <- table[order(table$level, table$version, decreasing = TRUE), ]
 knitr::kable(table)
-
 ```