From 6a1cab0a467a1a64aac60b6aa85ea6bc38ef82a3 Mon Sep 17 00:00:00 2001
From: leeper <thosjleeper@gmail.com>
Date: Sun, 22 Mar 2015 19:45:50 +0100
Subject: [PATCH] outline document_msgs func (#1)

---
 R/document.R | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

diff --git a/R/document.R b/R/document.R
index bb66132..ceca7a9 100644
--- a/R/document.R
+++ b/R/document.R
@@ -19,9 +19,25 @@ function(pkg = ".",
             stop("'fmt' must be 'Rd' or 'roxygen'")
     }
     
-    # document
+    # extract messages
+    m1 <- get_messages(pkg = pkg, type = "xgettext")
+    m2 <- get_messages(pkg = pkg, type = "xngettext")
     
-    # format
+    
+    # check if documentation file already exists
+    # if file exists:
+    
+        # parse documentation file
+    
+        # compare file to messages
+        
+        # update file
+    
+    # if file doesn't exist:
+    
+        # document messages
+        
+        # write to file
     
     con <- file(file)
     on.exit(close(con))