[PATCH RFC 2/2] Expose the user-agent setting with a getter/setter

[Aaron Conole]

* lisp/xwidget.el (xwidget-webkit-get-user-agent): New function to get
  the user agent for the current webkit session
  (xwidget-webkit-set-user-agent): New function to set the user agent
  for the current webkit session
---
 lisp/xwidget.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index 7a0ca8b..64fe899 100644
--- a/lisp/xwidget.el
+++ b/lisp/xwidget.el
@@ -462,6 +462,18 @@ xwidget-webkit-current-url
     (message "url: %s" url)
     url))
 
+(defun xwidget-webkit-get-user-agent ()
+  "Get the webkit UserAgent string."
+  (interactive)
+  (xwidget-webkit-get-web-string-setting (xwidget-webkit-current-session)
+                                         "user-agent"))
+
+(defun xwidget-webkit-set-user-agent (ua)
+  "Set the webkit UserAgent string."
+  (interactive)
+  (xwidget-webkit-set-web-string-setting (xwidget-webkit-current-session)
+                                         "user-agent" ua))
+
 (defun xwidget-webkit-execute-script-rv (xw script &optional default)
   "Same as `xwidget-webkit-execute-script' but with return value.
 XW is the webkit instance.  SCRIPT is the script to execute.
-- 
2.5.5