;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. #@33 Current version of weblogger.el (defconst weblogger-version "1.4.6" (#$ . 87)) (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require xml-rpc message ring] 2) #@47 The address where bug reports should be sent. (defconst weblogger-maintainer-address "mah@everybody.org" (#$ . 259)) (byte-code "\300\301\302\303\304\305%\210\306\307\302\310\304\301\311\312&\210\306\313\314\315\304\301\311\312&\210\306\316\317\320\304\301\311\312&\210\306\321\302\322\304\301\311\312&\210\306\323\324\325\304\301\311\326&\210\306\327\330\331\304\301\311\332&\210\306\333\302\334\304\301\311\335&\210\306\336\302\337\304\301\311\340&\210\306\341\302\342\304\301\311\335&\210\306\343\344\345\304\301\311\312&\210\306\346\347\350\304\301\311\351&\210\306\352\302\353\304\301\311\351&\210\306\354\302\355\304\301\311\351&\210\306\356\357\360\304\301\311\361&\210\306\362\302\363\304\301\311\351&\210\306\364\302\365\304\301\311\351&\207" [custom-declare-group weblogger nil "Edit Weblogs with Emacs." :group emacs custom-declare-variable weblogger-server-username "Your weblog server username. You will be prompted if this is left nil." :type string weblogger-server-password #1="" "Your password. You will be prompted if this is empty or nil." weblogger-server-url "http://www.openweblog.com/interface/blogger/" "Server you want to use. If this is an OpenWeblog.com site, leave this\nat the default. Otherwise, you will need to change it." weblogger-weblog-id "Your weblog ID. For many weblog servers, you can leave this\nnil and weblogger.el will prompt you for the weblog. If it is a\nManila site, you need to provide the URL of your site." weblogger-max-entries-in-ring 20 "Maximum number of entries that will be retrieved from the\nserver. There may be a server-side limitation to this number." integer weblogger-ping-urls '("http://rpc.weblogs.com/RPC2") "List of URLs to ping using the XML-RPC interface defined at\n." list weblogger-save-password "Whether to save to the password or not." boolean weblogger-config-alist "Alist of possible configurations." (alist :tag "Name" :key-type (string :tag "Configuration Name") :value-type (list :tag "Weblog Config" (string :tag "Server URL") (string :tag "Username") (string :tag "Password") (string :tag "Weblog ID"))) weblogger-blogger-firstline-title "Look for the title in the first line surrounded by \ntags when using the Blogger API." weblogger-config-name "default" "Name of the default configuration." weblogger-start-edit-entry-hook (list (lambda nil (message-goto-body) (while (search-forward " " nil t) (replace-match #1# nil t)))) "Hook to run after loading an entry in buffer for editing." hook weblogger-edit-entry-hook "Hook to run after updating an entry." weblogger-pre-struct-hook "Hook to run just before the buffer is converted to a struct to\nsend to the server." weblogger-edit-mode 'nxml-mode "Major mode to use for editing weblog entries" function weblogger-edit-mode-toggle-hook "Hook to call when switching to edit mode" weblogger-weblogger-mode-toggle-hook "Hook to call when switching back to weblogger mode"] 8) #@84 List of weblog entries that we know about. Chronological order, with newest first. (defvar weblogger-entry-list nil (#$ . 3237)) #@40 List of categories that we know about. (defvar weblogger-category-list nil (#$ . 3372)) #@35 Server-side ID of logged in user. (defvar weblogger-server-userid nil (#$ . 3466)) #@37 The buffer where we compose entries (defvar *weblogger-entry* nil (#$ . 3555)) #@47 Hook to run after starting up weblogger mode. (defvar weblogger-entry-mode-hook nil (#$ . 3640)) #@157 Hook to run after sending a new entry. Typically, this is where you would put weblogger-ping-weblogs to let weblog aggregators know that you have updated. (defvar weblogger-new-entry-hook '(weblogger-ping-weblogs) (#$ . 3744)) #@34 Keymap for weblogger-entry-mode. (defvar weblogger-entry-mode-map nil (#$ . 3978)) #@37 Keymap for weblogger-template-mode. (defvar weblogger-template-mode-map nil (#$ . 4067)) #@34 Ring that holds all the entries. (defvar weblogger-entry-ring nil (#$ . 4162)) #@37 Ring that holds all the categories. (defvar weblogger-category-ring nil (#$ . 4247)) #@34 Pointer to the index on the ring (defvar weblogger-ring-index 0 (#$ . 4338)) #@39 Known capabilities of the remote host (defvar weblogger-capabilities nil (#$ . 4421)) #@162 The Default title to use when making an entry. This is added if your weblog server supports titles on entries but you haven't set one. Set to "" for no title. (defvar weblogger-default-title "" (#$ . 4514)) #@176 The default list of categories when making an entry. This is added if your weblog server supports categories on entries but you haven't set one. Set to nil for no category. (defvar weblogger-default-categories nil (#$ . 4730)) (defvar weblogger-api-new-entry nil) (defvar weblogger-api-send-edits nil) (defvar weblogger-api-list-entries nil) (defvar weblogger-api-list-categories nil) (defvar weblogger-api-delete-entry 'weblogger-api-blogger-delete-entry) #@41 Weblogs the user can use on the server. (defvar weblogger-weblog-alist nil (#$ . 5195)) #@36 Texttypes supported by the server. (defvar weblogger-texttype-alist nil (#$ . 5289)) (defvar menu-bar-weblogger-menu nil) #@25 Holds the weblog header (defvar weblogger-header nil (#$ . 5417)) #@86 OBSOLETE. The appkey to send to weblog server. Generally this shouldn't be changed. (defconst weblogger-blogger-app-key "07C72E6970E0FBA5DE21BA9F4800C44534C19870" (#$ . 5489)) (defconst weblogger-no-capabilities '(("wp.getUsersBlogs") ("wp.getPage") ("wp.getPages") ("wp.newPage") ("wp.deletePage") ("wp.editPage") ("wp.getPageList") ("wp.getAuthors") ("wp.getCategories") ("wp.getTags") ("wp.newCategory") ("wp.deleteCategory") ("wp.suggestCategories") ("wp.uploadFile") ("wp.getCommentCount") ("wp.getPostStatusList") ("wp.getPageStatusList") ("wp.getPageTemplates") ("wp.getOptions") ("wp.setOptions") ("wp.getComment") ("wp.getComments") ("wp.deleteComment") ("wp.editComment") ("wp.newComment") ("wp.getCommentStatusList") ("blogger.getUsersBlogs") ("blogger.getUserInfo") ("blogger.getPost") ("blogger.getRecentPosts") ("blogger.getTemplate") ("blogger.setTemplate") ("blogger.newPost") ("blogger.editPost") ("blogger.deletePost") ("metaWeblog.newPost") ("metaWeblog.editPost") ("metaWeblog.getPost") ("metaWeblog.getRecentPosts") ("metaWeblog.getCategories") ("metaWeblog.newMediaObject") ("metaWeblog.deletePost") ("metaWeblog.getTemplate") ("metaWeblog.setTemplate") ("metaWeblog.getUsersBlogs") ("mt.getCategoryList") ("mt.getRecentPostTitles") ("mt.getPostCategories") ("mt.setPostCategories") ("mt.supportedMethods") ("mt.supportedTextFilters") ("mt.getTrackbackPings") ("mt.publishPost") ("pingback.ping") ("pingback.extensions.getPingbacks") ("demo.sayHello") ("demo.addTwoNumbers") ("wpStats.check_key") ("wpStats.get_blog_id") ("wpStats.get_site_id") ("wpStats.update_bloginfo") ("wpStats.update_postinfo") ("wpStats.ping_blog") ("wpStats.flush_posts"))) (byte-code "\204\200�\306 !\307 \310 \311\312#\210\310 \313\314#\210\315\316!\2035�\310 \317\316#\210\310 \320\321#\210\310 \322\323#\210\310 \324\325#\210\310 \326\327#\210\310 \330\331#\210\310 \332\333#\210\310 \334\335#\210\310\n\336\337#\210\310\n\340\341#\210\310 \342\n#\210\310 \343\344#\210\310 \345\346#\210\310 \347\350#\210\310 \351\352#\210\310 \353\354#\210 *\f\204\216�\306 !\310\f\313\355#\210\315\356!\204\231�\357\356\360\"\2104\204\313�\361\362!\210\363\364\365\366$\210\367\370!\203\313�\3568\371\372\373$\210\3568\374\375\376$\210\3568\377\201@�\201A�$\210\362\207" [weblogger-entry-mode-map message-mode-map template-map map weblogger-template-mode-map text-mode-map copy-keymap make-sparse-keymap define-key "" weblogger-send-entry "" weblogger-publish-entry fboundp unicode-smart-double-quote "\"" "'" unicode-smart-single-quote "-" unicode-smart-hyphen "." unicode-smart-period "" weblogger-next-entry "" weblogger-prev-entry " " weblogger-delete-entry "\347" weblogger-fetch-entries "m" weblogger-edit-main-template "a" weblogger-edit-archive-template "" "" weblogger-change-server "" weblogger-change-weblog "" weblogger-change-user "" weblogger-toggle-edit-body "" weblogger-publish-to-all-weblogs weblogger-save-template define-key-after defalias #[(keymap key definition &optional after) "\204�\306\307 !\204�\310\311\307 D\"\210\nG\312X\203 �\n\313H\2022�\314 \315\316\317\320\321\n\"!\"\"\n\211GSH \322\211\f?\205\226� \205\226� A@\242\n=\203Q� \211AA\241\210\307 @!\203[� @ @\242=\203i�\306=\203v� A@\301=\204v� A\204\220� A@\301=\203\200�\306 \204\216� \nB AB\241\210\306 A\2029�+\207" [after keymap key inserted done tail t keymapp signal wrong-type-argument 1 0 lookup-key apply vector butlast mapcar identity nil definition] 8 "Add binding in KEYMAP for KEY => DEFINITION, right after AFTER's binding.\nThis is like `define-key' except that the binding for KEY is placed\njust after the binding for the event AFTER, instead of at the beginning\nof the map. Note that AFTER must be an event type (like KEY), NOT a command\n(like DEFINITION).\n\nIf AFTER is t or omitted, the new binding goes at the end of the keymap.\nAFTER should be a single event type--a symbol or a character, not a sequence.\n\nBindings are always added before any inherited map.\n\nThe order of bindings in a keymap matters when it is used as a menu."] (lambda (def-tmp-var) (defvar menu-bar-weblogger-menu def-tmp-var #1="")) nil easy-menu-do-define menu-bar-weblogger-menu #1# ("Weblogger" ["Start a new Weblog Entry" weblogger-start-entry t] ["Save weblog entry as draft" weblogger-save-entry t] ["Publish weblog entry" weblogger-send-entry t :active (buffer-modified-p)] ["--" nil nil] ["Switch to edit mode" weblogger-toggle-edit-body t] ["--" nil nil] ["Delete entry" weblogger-delete-entry t] ["--" nil nil] ["Previous entry" weblogger-prev-entry t] ["Next entry" weblogger-next-entry t] ["--" nil nil] ["Edit Main Template" weblogger-edit-main-template t] ["Edit Archive Template" weblogger-edit-main-template t] ["--" nil t] ["Set edit mode" (lambda nil (interactive) (customize-variable 'weblogger-edit-mode)) t] ["Change Weblog" weblogger-change-weblog t] ["Setup Weblog" weblogger-setup-weblog t]) boundp menu-bar-tools-menu [separator-weblogger] ("--") simple-calculator [start-weblog] (menu-item "Start a new Weblog Entry" weblogger-start-entry :enable (or weblogger-config-alist weblogger-server-url)) separator-weblogger [setup-weblog] (menu-item "Setup your Weblog" weblogger-setup-weblog) start-weblog] 5) #@35 Submit a bug report on weblogger. (defalias 'weblogger-submit-bug-report #[nil "\304\305!\210\306\307!\203�\307\310\211K\"\202�\311\310!\310\312!\313\n\314 P\301\300\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\257#*\207" [date-parses-as xml-rpc-tz-pd-defined-in weblogger-maintainer-address weblogger-version require reporter fboundp find-lisp-object-file-name timezone-parse-date symbol-file "20091130T00:52:53" reporter-submit-bug-report "weblogger.el " xml-rpc-load-hook xml-rpc-use-coding-system xml-rpc-allow-unicode-string xml-rpc-base64-encode-unicode xml-rpc-base64-decode-unicode weblogger-config-alist weblogger-config-name weblogger-start-edit-entry-hook weblogger-edit-entry-hook weblogger-pre-struct-hook weblogger-edit-mode weblogger-edit-mode-toggle-hook weblogger-weblogger-mode-toggle-hook weblogger-server-url weblogger-entry-mode-hook weblogger-new-entry-hook weblogger-capabilities] 22 (#$ . 10749) nil]) #@42 Select a previously saved configuration. (defalias 'weblogger-select-configuration #[(&optional config) "\304 \206�\nG\305U\203�\n@@\202�\306\307\n\310\304$\311 !\210\312\304!\210\313 *\207" [completion-ignore-case config weblogger-config-alist name t 1 completing-read "Config Name: " nil weblogger-switch-configuration weblogger-api-blogger-weblog-alist weblogger-fetch-entries] 5 (#$ . 11709) nil]) #@32 Create a profile for a weblog. (defalias 'weblogger-setup-weblog #[nil "\306 \210\307\310\311!\312\311!\313\311!\314\315\316\"\317\f\" \203%�\n\202&�\320 F\211\2039�\241\210\202b�\f\203B�\f<\204K�BC\202b�B\211\f\235\203\\�\f\210\202a�\fB)*\321 \210\322 +\207" [weblogger-config-name weblog pass user weblogger-config-alist weblogger-server-url weblogger-change-server nil weblogger-server-username t weblogger-server-password weblogger-weblog-id read-from-minibuffer "Name this configuration: " "default" assoc "" weblogger-save-configuration weblogger-fetch-entries weblogger-save-password settings conf #1=#:x] 6 (#$ . 12122) nil]) #@101 Save the current configuration using the name from CONFIG in the filename in weblogger-config-file. (defalias 'weblogger-save-configuration #[nil "\301\300\"\207" [weblogger-config-alist customize-save-variable] 3 (#$ . 12792)]) #@24 Change the server-url. (defalias 'weblogger-change-server #[nil "\301\302;\203 �\202\f�\303\"\304 \207" [weblogger-server-url read-from-minibuffer "Server Endpoint (URL): " "" weblogger-determine-capabilities] 3 (#$ . 13028) nil]) #@31 Change username and password. (defalias 'weblogger-change-user #[nil "\300\301!\210\302\301!\207" [weblogger-server-username t weblogger-server-password] 2 (#$ . 13268) nil]) #@20 Change the weblog. (defalias 'weblogger-change-weblog #[nil "`\301\302!\210\303\304!\210\305\306\307\301 !P!\210b)\207" [point-save weblogger-weblog-id t message-remove-header "Newsgroup" message-add-header "Newsgroup: " weblogger-weblog-name-from-id] 4 (#$ . 13449) nil]) #@19 Change Text Type. (defalias 'weblogger-change-texttype #[nil "`\301\302!\210\303\304\305\306 !P!\210b)\207" [point-save message-remove-header "X-TextType" message-add-header "X-TextType: " weblogger-texttype-name-from-id weblogger-select-texttype] 4 (#$ . 13730) nil]) (defvar weblogger-entry-mode-hook nil) (byte-code "\300\301N\204\f�\302\300\301\303#\210\304\305!\204�\302\305\306\307#\210\300\207" [weblogger-entry-mode-hook variable-documentation put "Hook run after entering Weblog mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp weblogger-entry-mode-map definition-name weblogger-entry-mode] 4) (defvar weblogger-entry-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204�\303\301\302\304\305!#\210\306\307!\204�\303\307\310\311#\210\312\313 !\210\307\302N\204-�\303\307\302\304\314!#\210\306\300!\204B�\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P�\303\300\302\304\320!#\210\303\311\321\322#\207" [weblogger-entry-mode-abbrev-table weblogger-entry-mode-map variable-documentation put purecopy "Keymap for `weblogger-entry-mode'." boundp weblogger-entry-mode-syntax-table definition-name weblogger-entry-mode (lambda (def-tmp-var) (defvar weblogger-entry-mode-syntax-table def-tmp-var)) make-syntax-table "Syntax table for `weblogger-entry-mode'." (lambda (def-tmp-var) (defvar weblogger-entry-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "Abbrev table for `weblogger-entry-mode'." derived-mode-parent message-mode] 5) #@279 Major mode for editing text for Weblogger. Based on message-mode. In addition to any hooks its parent mode `message-mode' might have run, this mode runs the hook `weblogger-entry-mode-hook', as the final or penultimate step during initialization. \{weblogger-entry-mode-map} (defalias 'weblogger-entry-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203�\314\311\313\310\313N#\210\315 !\204'�\316 \317 \"\210\320\f!\211\2036� \321 =\203<�\322\f\323 \"\210)\324\325\"\204V�=\204V�\326\325C#\210\327 !\210\330\f!\210\204m�\331!)\332\333!\207" [delay-mode-hooks major-mode mode-name weblogger-entry-mode-map weblogger-entry-mode-syntax-table parent make-local-variable t message-mode weblogger-entry-mode "Weblog" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table make-ring run-mode-hooks weblogger-entry-mode-hook weblogger-entry-mode-abbrev-table local-abbrev-table weblogger-entry-ring weblogger-max-entries-in-ring] 6 (#$ . 15294) nil]) #@69 Major mode for editing templates for Weblogger. Based on text-mode. (defalias 'weblogger-template-mode #[nil "\303 \210\304!\210\305\306\211\207" [weblogger-template-mode-map mode-name major-mode text-mode use-local-map "weblogger-template" weblogger-template-mode] 2 (#$ . 16438) nil]) #@24 Edit the main template (defalias 'weblogger-edit-main-template #[nil "\300\301!\207" [weblogger-api-blogger-edit-template "main"] 2 (#$ . 16734) nil]) #@40 Edit the template for archive listings (defalias 'weblogger-edit-archive-template #[nil "\300\301!\207" [weblogger-api-blogger-edit-template "archive"] 2 (#$ . 16891) nil]) #@198 Start creating a weblog entry in the *weblogger-entry* buffer. With a prefix, it will check the available weblogs on the server and prompt for the weblog to post to if multiple ones are available. (defalias 'weblogger-start-entry #[(&optional prompt) "\203�\304!\210 \204�\305\n!\306 \307\310BC\"\210\311\312\313 \314\"\"\203*�\306 \307\310BC\"\210\314\315 \207" [prompt weblogger-entry-ring weblogger-max-entries-in-ring weblogger-ring-index weblogger-weblog-id make-ring ring-insert "content" "" assoc "entry-id" ring-ref 0 weblogger-edit-entry] 5 (#$ . 17071) "P"]) #@48 Add any pertinant headers to the weblog entry. (defalias 'weblogger-entry-setup-headers #[(entry &optional body-line) "\306\307\"A\205 �\306\307\"A;\203�\306\307\"A\202 �\310\306\307\"A!\306\311\"A\312\313\314\315\316\317\320\n\205O�\321\322\n\323 \324 !\325\f! >\204J�\326\327\330\fD\"\210\f\331H)$D\332\333\334\306\335\"AA@\"D\336\3154\312\337\306\340\"A\"\2104\205p�4)D\341\306\342\"AD\343\306\344\"AD\345 D\346\306\347\"A\2115G\350V\205\230�\351\3525\353#)D\354\306\355\"AD\356\306\357\"A\206\254�6D\360\361\323 !\206\266�\362D\257\n\"\"\"\210db\2107\205\312�8\363\261*\207" [entry title entry-id weblogger-server-url cl-x cl-struct-url-tags assoc "entry-id" int-to-string "title" mapc message-add-header delq nil mapcar #[(bit) "\243@\205 �@\301A@Q\207" [bit ": "] 3] "Message-ID" format "<%s/%s@%s>" weblogger-weblog-id url-generic-parse-url type-of signal wrong-type-argument url 4 "Date" format-time-string "%d %b %Y %H:%M:%S %z" "dateCreated" "In-Reply-To" #[(p) " \302Q\211\207" [hold p ", "] 3] "trackbacks" "X-URL" "url" "X-TextType" "texttype" "Subject" "Keywords" "categories" 0 mapconcat #[(p) "\207" [p] 1] ", " "Summary" "mt_keywords" "From" "authorName" "Newsgroup" weblogger-weblog-name-from-id "unknown" "\n" hold cats weblogger-server-username body-line mail-header-separator] 19 (#$ . 17652)]) #@97 Send but not publish the current entry. With optional argument, prompts for the weblog to use. (defalias 'weblogger-send-entry #[(&optional arg) "\301\302\"\210\303 \207" [arg weblogger-save-entry nil bury-buffer] 3 (#$ . 19005) nil]) #@84 Publish the current entry. With optional argument, prompts for the weblog to use. (defalias 'weblogger-publish-entry #[(&optional arg) "\301\302!\210\303\302\"\207" [arg set-buffer-modified-p t weblogger-save-entry] 3 (#$ . 19248) nil]) #@27 Switch the configuration. (defalias 'weblogger-switch-configuration #[(config) "\306 \"A\n@\nA@\307\n8 \310\n8\211\n)\207" [config weblogger-config-alist conf weblogger-config-name weblogger-server-url weblogger-server-username assoc 2 3 weblogger-server-password weblogger-weblog-id] 3 (#$ . 19493)]) #@48 Publish to all weblogs in weblog-config-alist. (defalias 'weblogger-publish-to-all-weblogs #[nil "\306 \307\211\211\211\211\310\311\n\".\207" [weblogger-weblog-id weblogger-server-password weblogger-server-username weblogger-server-url weblogger-config-name entry weblogger-entry-buffer-to-struct nil mapc #[(config) "\302@!\210\303 \304\"\207" [config entry weblogger-switch-configuration weblogger-api-new-entry t] 3] weblogger-config-alist] 6 (#$ . 19809) nil]) #@103 Publish the current entry is publishp is set. With optional argument, prompts for the weblog to use. (defalias 'weblogger-save-entry #[(&optional publishp arg) "p\232\204\n�\304\305!\207\306 \307 \203H�\310\311 \"A\312\230\204H�\313\n!\210\314\n!\210\315\n!\210\310\316 \"A\203?�\317 !\210\320 \"\210\321\322!\202K�\323\324 \"!\202K�\304\325!)\207" [*weblogger-entry* entry arg publishp message "You are not in the *weblogger-entry* buffer." weblogger-entry-buffer-to-struct buffer-modified-p assoc "content" "" weblogger-server-username weblogger-server-password weblogger-weblog-id "entry-id" weblogger-update-ring weblogger-api-send-edits set-buffer-modified-p nil weblogger-entry-setup-headers weblogger-api-new-entry "Nothing to post."] 4 (#$ . 20290) nil]) #@50 Update the entry ring with the contents of ENTRY (defalias 'weblogger-update-ring #[(entry) "\304 \"\305\306 \")\207" [weblogger-entry-ring weblogger-ring-index ring-entry entry ring-ref mapcar #[(el) "\303@ \"\211\205�\nA\241)\207" [el ring-entry field assoc] 4]] 3 (#$ . 21064)]) #@68 Get the username. If you've not yet logged in then prompt for it. (defalias 'weblogger-server-username #[(&optional prompt) "\204 � \203 � ;\204c�\306\307!\205.�\307\310\311\n!\312 !\f>\204(�\313\314\315 D\"\210 \316H)\317#\320 \"AA@\211\203C�\202_�\203M�\202_�\203\\� \203\\�\321\322 \"\202_�\321\322!\211*\207 \207" [prompt weblogger-server-username weblogger-server-url cl-x cl-struct-url-tags weblogger-config-name fboundp auth-source-user-or-password "login" url-generic-parse-url type-of signal wrong-type-argument url 4 "http" assoc read-from-minibuffer "Username: " weblogger-config-alist config-user auth-user] 7 (#$ . 21358)]) #@50 Get the server url of the current configuration. (defalias 'weblogger-server-url #[nil "\203� \203�\303 \"A@\211\207\n\207" [weblogger-config-alist weblogger-config-name weblogger-server-url assoc] 3 (#$ . 22018)]) #@67 Get the password. If you've not yet logged in then prompt for it (defalias 'weblogger-server-password #[(&optional prompt) ";\204�\306 \204�\306\230\203X�\307\310!\2052�\310\311\312\n!\313 !\f>\204,�\314\315\316 D\"\210 \317H)\320#\321\322 \"A8\211\203G�\202T�\203Q�\202T�\323\324!\211*\207\207" [weblogger-server-password prompt weblogger-server-url cl-x cl-struct-url-tags weblogger-config-name "" fboundp auth-source-user-or-password "password" url-generic-parse-url type-of signal wrong-type-argument url 4 "http" 2 assoc read-passwd "Password for weblog server: " weblogger-config-alist get-pass auth-pass] 7 (#$ . 22244)]) #@20 Get the weblog ID. (defalias 'weblogger-weblog-id #[(&optional prompt) "\304 \"\203�\n\204�\305!\210 \204�\n\204�\306 !\202�\n\211\207" [weblogger-config-name weblogger-config-alist weblogger-weblog-id prompt assoc weblogger-select-configuration weblogger-select-weblog] 3 (#$ . 22900)]) #@236 Allows the user to select a weblog and returns the weblog ID. If there is only one weblog owned by the user on the server, then that weblog is returned. With FETCH defined, the server is re-queried for a list of weblogs the user owns (defalias 'weblogger-select-weblog #[(&optional fetch) "\304\305\306\307\310\311\n!\"\211G\312U\203� @@\202�\313\314 \315\305$+!\207" [completion-ignore-case seq fetch webloglist weblogger-weblog-id-from-weblog-name t 0 mapcar #[(weblog) " T\211B\207" [weblog seq] 3] weblogger-list-weblog-names 1 completing-read "Weblog: " nil] 7 (#$ . 23203)]) #@39 Returns the weblog id given the name. (defalias 'weblogger-weblog-id-from-weblog-name #[(name) "\301\302\303\304 \"\"A\207" [name assoc mapcar #[(weblog) "\301\302\"A\301\303\"AB\207" [weblog assoc "blogName" "blogid"] 4] weblogger-api-blogger-weblog-alist] 5 (#$ . 23798)]) #@39 Returns the weblog name given the id. (defalias 'weblogger-weblog-name-from-id #[(id) "\301\302\303\304 \"\"A\207" [id assoc mapcar #[(weblog) "\301\302\"A\301\303\"AB\207" [weblog assoc "blogid" "blogName"] 4] weblogger-api-blogger-weblog-alist] 5 (#$ . 24082)]) #@41 Returns the texttype name given the id. (defalias 'weblogger-texttype-name-from-id #[(id) "\301\302\303\304 \"\"A\207" [id assoc mapcar #[(texttype) "\301\302\"A\301\303\"AB\207" [texttype assoc "key" "label"] 4] weblogger-texttype-alist] 5 (#$ . 24355)]) #@41 Returns the texttype id given the name. (defalias 'weblogger-texttype-id-from-name #[(name) "\301\302\303\304 \"\"A\207" [name assoc mapcar #[(texttype) "\301\302\"A\301\303\"AB\207" [texttype assoc "label" "key"] 4] weblogger-texttype-alist] 5 (#$ . 24620)]) #@35 Returns a list of texttype names. (defalias 'weblogger-list-texttype-names #[(&optional fetch) "\301\302\303!\"\207" [fetch mapcar #[(texttype) "\301\302\"A\207" [texttype assoc "label"] 3] weblogger-texttype-alist] 4 (#$ . 24889)]) #@55 Returns the alist of texttypes allowed by the server. (defalias 'weblogger-texttype-alist #[(&optional fetch) "\304\305\"A\205� \204�\n\204�\306 \307\"\n\207" [weblogger-capabilities fetch weblogger-texttype-alist weblogger-server-url assoc "mt.supportedTextFilters" xml-rpc-method-call mt\.supportedTextFilters] 3 (#$ . 25130)]) #@51 Allows the user to select a texttype for entries. (defalias 'weblogger-select-texttype #[(&optional fetch) "\304\305\306\307\310\311\n!\"\211G\312U\203� @@\202�\313\314 \315\305$+!\207" [completion-ignore-case seq fetch ttlist weblogger-texttype-id-from-name t 0 mapcar #[(texttype) " T\211B\207" [texttype seq] 3] weblogger-list-texttype-names 1 completing-read "TextType: " nil] 7 (#$ . 25471)]) #@38 Returns the weblog URL given the id. (defalias 'weblogger-server-url-from-id #[(id) "\301\302\303\304 \"\"A\207" [id assoc mapcar #[(weblog) "\301\302\"A\301\303\"AB\207" [weblog assoc "blogid" "url"] 4] weblogger-api-blogger-weblog-alist] 5 (#$ . 25882)]) #@33 Returns a list of weblog names. (defalias 'weblogger-list-weblog-names #[(&optional fetch) "\301\302\303!\"\207" [fetch mapcar #[(blog) "\301\302\"A\207" [blog assoc "blogName"] 3] weblogger-api-blogger-weblog-alist] 4 (#$ . 26148)]) #@60 Ping the weblog aggregators listed in weblogger-ping-urls. (defalias 'weblogger-ping-weblogs #[(&optional id) "\301\302\"\207" [weblogger-ping-urls mapcar #[(url) "\303\304\305\306 \206\n�\n!\307 \206�\n!%\207" [url id weblogger-weblog-id xml-rpc-method-call-async weblogger-handle-weblog-ping-response weblogUpdates\.ping weblogger-weblog-name-from-id weblogger-server-url-from-id] 7]] 3 (#$ . 26390)]) #@173 Handle the response from a weblog ping. Print a entry with the result. For old w3.el, resp is expected. Otherwise current-buffer is expected to contain the http result. (defalias 'weblogger-handle-weblog-ping-response #[(&optional resp) "\203 �\301\302\303A\"A!\207\301\302\303\304\305p!!A\"A!\207" [resp message assoc "message" xml-rpc-xml-to-response xml-rpc-request-process-buffer] 6 (#$ . 26804)]) #@126 Move to the entry identified by NUM in the ring. If RELATIVE is set, then add it to the current index and go to that entry. (defalias 'weblogger-goto-entry #[(num &optional relativep) "\306 \203\n�\307\310\211\"\210\204�\311 !\210\n\203$� \203� \202�\312\f\\\202%�\f\211)\313!\2034�\311 !\210\314\315 \"!\207" [weblogger-entry-list weblogger-max-entries-in-ring relativep weblogger-ring-index num entry-id buffer-modified-p weblogger-save-entry nil weblogger-api-list-entries -1 ring-empty-p weblogger-edit-entry ring-ref weblogger-entry-ring] 5 (#$ . 27218)]) #@38 Edit the contents of the next entry. (defalias 'weblogger-next-entry #[nil "\300\301\302\"\207" [weblogger-goto-entry -1 t] 3 (#$ . 27796) nil]) #@42 Edit the contents of the previous entry. (defalias 'weblogger-prev-entry #[nil "\300\301\302\"\207" [weblogger-goto-entry 1 t] 3 (#$ . 27947) nil]) #@19 Delete the entry. (defalias 'weblogger-delete-entry #[nil "\204�\304\305!\210\306\307!\205'�\310\311\312 \"\"A \n!\210\313 \"\210\314\312 \"!)\207" [weblogger-ring-index weblogger-entry-ring msgid weblogger-api-delete-entry message "You must have an entry loaded first." y-or-n-p "Do you really want to delete this entry? " assoc "entry-id" ring-ref ring-remove weblogger-edit-entry] 5 (#$ . 28101) nil]) #@63 Publish a new entry (STRUCT) using the best method available. (defalias 'weblogger-api-new-entry #[(struct publishp) "\306\307!\210\204 �\310 \210\311 \312\n \"B\211\n\235\203�\n\202#�\f\nB\211)\"\210\313\314 \"\207" [weblogger-api-new-entry weblogger-entry-ring struct publishp #1=#:x weblogger-ring-index run-hooks weblogger-new-entry-hook weblogger-determine-capabilities ring-insert "entry-id" 0 ring-ref] 7 (#$ . 28518)]) #@62 Update an entry (in STRUCT) using the best method available. (defalias 'weblogger-api-send-edits #[(struct publishp) "\303\304!\210\204 �\305 \210 \n\"\207" [weblogger-api-send-edits struct publishp run-hooks weblogger-edit-entry-hook weblogger-determine-capabilities] 3 (#$ . 28958)]) #@24 Get a list of entries. (defalias 'weblogger-api-list-entries #[(&optional count) "\204�\302 \210 !\207" [weblogger-api-list-entries count weblogger-determine-capabilities] 2 (#$ . 29252)]) #@27 Get a list of categories. (defalias 'weblogger-api-list-categories #[nil "\204�\301 \210 \207" [weblogger-api-list-categories weblogger-determine-capabilities] 1 (#$ . 29450)]) #@54 Return a list of entries that the weblog server has. (defalias 'weblogger-api-meta-list-categories #[nil "\301\302\303\304 \305\306 \307 \310 %\"\211\207" [weblogger-category-list mapcar #[(category) "\302\303\304 \"A\"\207" [weblogger-category-ring category ring-insert-at-beginning assoc "categoryName"] 5] xml-rpc-method-call weblogger-server-url metaWeblog\.getCategories weblogger-weblog-id weblogger-server-username weblogger-server-password] 8 (#$ . 29636)]) #@194 Return a list of entries that the weblog server has. COUNT specifies how many of the most recent entries to get. If COUNT is not specified, then the default is weblogger-max-entries-in-ring. (defalias 'weblogger-api-meta-list-entries #[(&optional count) "\303\304\305\306 \307\310 \311 \312 \206� &\"\211\207" [count weblogger-max-entries-in-ring weblogger-entry-list mapcar #[(entry) "\302\303 !\"\207" [weblogger-entry-ring entry ring-insert-at-beginning weblogger-response-to-struct] 4] xml-rpc-method-call weblogger-server-url metaWeblog\.getRecentPosts weblogger-weblog-id weblogger-server-username weblogger-server-password] 9 (#$ . 30111)]) #@123 MetaWeblog API method to post edits to a entry specified by STRUCT. If PUBLISHP is non-nil, publishes the entry as well. (defalias 'weblogger-api-meta-send-edits #[(struct &optional publishp) "\302\303 \304\305\306\"A\307 \310 \311! &\207" [struct publishp xml-rpc-method-call weblogger-server-url metaWeblog\.editPost assoc "entry-id" weblogger-server-username weblogger-server-password weblogger-struct-to-request] 8 (#$ . 30773)]) #@82 Post a new entry (STRUCT). If PUBLISHP is non-nil, publishes the entry as well. (defalias 'weblogger-api-meta-new-entry #[(struct publishp) "\302\303 \304\305 \306 \307 \310! &\207" [struct publishp xml-rpc-method-call weblogger-server-url metaWeblog\.newPost weblogger-weblog-id weblogger-server-username weblogger-server-password weblogger-struct-to-request] 8 (#$ . 31217)]) #@44 Edit a Template. TYPE indicates which one. (defalias 'weblogger-api-blogger-edit-template #[(type) "\303\304!\210\305 \210\306 \210\307\310 \311\312 \313 \314 &c\210\315\316!\210eb\210 \211\207" [weblogger-blogger-app-key type weblogger-template-type switch-to-buffer "*weblogger-template*" weblogger-template-mode erase-buffer xml-rpc-method-call weblogger-server-url blogger\.getTemplate weblogger-weblog-id weblogger-server-username weblogger-server-password set-buffer-modified-p nil] 8 (#$ . 31604)]) #@44 Save a Template. TYPE indicates which one. (defalias 'weblogger-api-blogger-save-template #[nil "\302 \205�\303\304 \305\306 \307 \310 \311ed\" &\210\312\313!\207" [weblogger-blogger-app-key weblogger-template-type buffer-modified-p xml-rpc-method-call weblogger-server-url blogger\.setTemplate weblogger-weblog-id weblogger-server-username weblogger-server-password buffer-substring-no-properties set-buffer-modified-p nil] 10 (#$ . 32120) nil]) #@61 Returns the alist of weblogs owned by a user on the server. (defalias 'weblogger-api-blogger-weblog-alist #[(&optional fetch) "\204� \204�\303\304 \305\n\306 \307 %\202� \211\207" [fetch weblogger-weblog-alist weblogger-blogger-app-key xml-rpc-method-call weblogger-server-url blogger\.getUsersBlogs weblogger-server-username weblogger-server-password] 6 (#$ . 32576)]) #@85 Post a new entry from STRUCT. If PUBLISHP is non-nil, publishes the entry as well. (defalias 'weblogger-api-blogger-new-entry #[(struct publishp) "\303\304 \305\306 \307 \310 \311 !\n&\207" [weblogger-blogger-app-key struct publishp xml-rpc-method-call weblogger-server-url blogger\.newPost weblogger-weblog-id weblogger-server-username weblogger-server-password weblogger-api-blogger-get-content] 9 (#$ . 32957)]) #@128 Return the content for this post, optionally inserting the title in the first row if weblogger-blogger-firstline-title is set. (defalias 'weblogger-api-blogger-get-content #[(struct) "\203�\302\303\304 \"A\305\303\306 \"AR\207\303\306 \"A\207" [weblogger-blogger-firstline-title struct "<title>" assoc "title" "\n" "content"] 6 (#$ . 33382)]) #@121 Blogger API method to post edits to an entry specified by STRUCT. If PUBLISHP is non-nil, publishes the entry as well. (defalias 'weblogger-api-blogger-send-edits #[(struct &optional publishp) "\303\304 \305\306\307 \"A\310 \311 \312 !\n&\207" [weblogger-blogger-app-key struct publishp xml-rpc-method-call weblogger-server-url blogger\.editPost assoc "entry-id" weblogger-server-username weblogger-server-password weblogger-api-blogger-get-content] 9 (#$ . 33742)]) #@77 Return a list of categories that the weblog server has. (Not supported yet) (defalias 'weblogger-api-blogger-list-categories #[nil "\301\211\207" [weblogger-category-list nil] 2 (#$ . 34218)]) #@194 Return a list of entries that the weblog server has. COUNT specifies how many of the most recent entries to get. If COUNT is not specified, then the default is weblogger-max-entries-in-ring. (defalias 'weblogger-api-blogger-list-entries #[(&optional count) "\304\305\306\307 \310\311 \312 \313 \206\n&\"\211\207" [weblogger-blogger-app-key count weblogger-max-entries-in-ring weblogger-entry-list mapcar #[(entry) "\302\303 !\"\207" [weblogger-entry-ring entry ring-insert-at-beginning weblogger-response-to-struct] 4] xml-rpc-method-call weblogger-server-url blogger\.getRecentPosts weblogger-weblog-id weblogger-server-username weblogger-server-password] 10 (#$ . 34419)]) (defalias 'weblogger-api-blogger-delete-entry #[(msgid) "\302\303 \304 \305 \306 \307&\207" [weblogger-blogger-app-key msgid xml-rpc-method-call weblogger-server-url blogger\.deletePost weblogger-server-username weblogger-server-password t] 8]) #@89 Edit a entry. If ENTRY is specified, then use that entry. Otherwise, open a new entry. (defalias 'weblogger-edit-entry #[(&optional entry) "\303\304!\305\306 \210\307 \210\310\n\311\"\210\n\203$\312\313\n\"A\203$\312\313\n\"Ac\210\314\315!\210\316 \210\317\305!\210\320\321!\210\314\322!\203?\323 \210\202B\324 \210\325!\207" [*weblogger-entry* buffer-read-only entry switch-to-buffer "*weblogger-entry*" nil weblogger-entry-mode erase-buffer weblogger-entry-setup-headers t assoc "content" message-fetch-field "Keywords" message-goto-keywords set-buffer-modified-p run-hooks weblogger-start-edit-entry-hook "Subject" message-goto-body message-goto-subject pop-to-buffer] 3 (#$ . 35356)]) (byte-code "\300\301!\204 \302\301\303\"\210\300\207" [fboundp assoc-string defalias #[(key list &optional fold) "\302 \"\207" [key list assoc-ignore-case] 3]] 3) #@64 Convert the result of the xml-rpc call to a structure we like. (defalias 'weblogger-response-to-struct #[(response) "\306\307\310#A\306\311\310#A\306\312\310#A\306\313\310#A\306\314\310#A\306\315\"\306\316\310#A\306\317\310#A\306\320\310#A\306\321\310#\306\322\310#A\306\323\310#\306\324\310#A\306\325\310#A-./0123450\203\326\3275\205w\3305B2\203\203\3132B\202\3326\205\332\331\3320A\"\205\332\333\3340A\"20\335\336\310\"7r7q\210\337\2160Ac\210eb\210\333\3400A\"\341\230\204\321\342\333\3400A\"\327\310#\203\321\343\341\327\310#\210\202\260\344 +\241\210\3132B4\205\343\3454B3\205\354\3123B1\205\365\3461B0\205\377\3150AB\257\"\202y \203v\326\3274\205\3454B5\205\3305B/\205&\347/B \205> A\203:\315 A\350 AQB\202>\315 AB2\205G\3132B-\205P\351-B1\205Y\3461B\f\205`\322\fB \205g\325 B.\205p\352.B\257\n\"\202y\353\354!.\207" [response categories tags extended mt_keywords description assoc-string "postid" t "authorname" "userid" "title" "datecreated" "content" "mt_tb_ping_urls" "mt_convert_breaks" "link" "description" "mt_keywords" "mt_text_more" "mt_tags" "categories" delq nil "entry-id" string-match "^\\(.*\\).*\n" match-string 1 generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] 0 "" search-forward replace-match buffer-string "authorName" "dateCreated" "trackbacks" "" "url" "texttype" error "bogosity!" url textType trackbacks content dateCreated title userid authorName postid weblogger-blogger-firstline-title #1#] 17 (#$ . 36224)]) #@73 Convert the struct to something that can be used in an xml-rpc request. (defalias 'weblogger-struct-to-request #[(entry) "\301\302\303\304\"\303\305\"\303\306\"\303\307\"\303\310\"A\205!\311\303\310\"AB\303\312\"A\2052\313\314\303\312\"A!B\303\315\"A\205A\316\303\315\"AB\303\317\"A\205P\320\303\317\"AB\303\321\"A\205_\321\303\321\"AB\303\322\"A\205n\322\303\322\"AB\257\n\"\207" [entry delq nil assoc "title" "authorName" "userid" "dateCreated" "trackbacks" "mt_tb_ping_urls" "texttype" "mt_convert_breaks" weblogger-texttype-id-from-name "url" "link" "content" "description" "categories" "mt_keywords"] 15 (#$ . 37854)]) #@26 Get information on user. (defalias 'weblogger-server-userid #[nil "\206\302\303\304\305 \306 \307 \310 %\"A\211\207" [weblogger-server-userid weblogger-blogger-app-key assoc "userid" xml-rpc-method-call weblogger-server-url blogger\.getUserInfo weblogger-server-username weblogger-server-password] 8 (#$ . 38506)]) #@56 Sync the entry ring with what is on the weblog server. (defalias 'weblogger-fetch-entries #[nil "\304!\304\305!\306 \210\307!\210\310\211\207" [weblogger-max-entries-in-ring weblogger-entry-ring weblogger-category-ring weblogger-ring-index make-ring 20 weblogger-api-list-categories weblogger-api-list-entries 0] 2 (#$ . 38831) nil]) #@57 Determine the capabilities of the remote weblog server. (defalias 'weblogger-determine-capabilities #[nil "\306!\307\211\211\3101\311\312\313\314 \315\"\"0\210\202\210\316+\317\320 \"A\203,\321\202.\322\317\323 \"A\203<\324\202?\325\317\326 \"A\203M\327\202P\330\317\331 \"A\203]\332\211\207\333\211\207" [weblogger-no-capabilities weblogger-capabilities has-blogger-api has-mt-api has-meta-api weblogger-api-send-edits copy-alist t (error) mapc #[(method) "\302 \"\205 \302 \"\303\241\207" [method weblogger-capabilities assoc t] 3] xml-rpc-method-call weblogger-server-url mt\.supportedMethods nil assoc "metaWeblog.editPost" weblogger-api-meta-send-edits weblogger-api-blogger-send-edits "metaWeblog.newPost" weblogger-api-meta-new-entry weblogger-api-blogger-new-entry "metaWeblog.getCategories" weblogger-api-meta-list-categories weblogger-api-blogger-list-categories "metaWeblog.getRecentPosts" weblogger-api-meta-list-entries weblogger-api-blogger-list-entries weblogger-api-new-entry weblogger-api-list-categories weblogger-api-list-entries] 5 (#$ . 39176)]) #@119 Convert an entry BUFFER to a struct (which is then used internally). If BUFFER is not given, use the current buffer. (defalias 'weblogger-entry-buffer-to-struct #[(&optional encode buffer) "\204p\212\306 !\210q\210\307\310\311\312\313!B\314\315\316\312\317!!DB\320\312\321!B\322\312\323!B\324\312\325!\2060\nB\326\327\330\312\331!\332\"\206= !B\333\312\334!B\312\335!\205V\336\330\312\335!\332\"\206U B\f\205\206\337 !\340V\205\206\341\312\342!\211-\203|\343\344-\"\203|\345\346-\"\202\204\347\341\350 \f\"\"A)B\351\352 \210.\203\230\353\354`d\"!\202\234\354`d\"B\257\n\")\207" [buffer weblogger-pre-struct-hook weblogger-default-title weblogger-default-categories weblogger-ring-index weblogger-entry-ring run-hooks delq nil "authorName" message-fetch-field "From" "dateCreated" :datetime date-to-time "Date" "texttype" "X-TextType" "url" "X-Url" "title" "Subject" "categories" vconcat message-tokenize-header "Keywords" ", " "mt_keywords" "Summary" "In-Reply-To" "trackbacks" ring-length 0 "entry-id" "Message-ID" string-match "<\\([0-9]+\\)/" match-string 1 assoc ring-ref "content" message-goto-body url-insert-entities-in-string buffer-substring-no-properties msgid encode] 17 (#$ . 40284)]) #@57 Toggle between editing the body and editing the headers (defalias 'weblogger-toggle-edit-body #[nil "\303\230\203\304 \210e`{e`|\210\305\306!\210\n \210\307\301!\207\301\310 \236\204'\311\312!\207eb\210\305\313!\210eb\210 c\210\314 \207" [mode-name weblogger-header weblogger-edit-mode "Weblog" message-goto-body run-hooks weblogger-edit-mode-toggle-hook make-local-variable buffer-local-variables error "You didn't come here from a weblogger buffer, so we can switch back" weblogger-weblogger-mode-toggle-hook weblogger-entry-mode] 2 (#$ . 41508) nil]) (byte-code "\300\301!\203\f\301\302!\204%\303\302\304\305\306\307\310\311\312\313\314\315& \210\316\313\317\"\210\316\320\321\"\210\322\323!\207" [fboundp widgetp alist define-widget list "An association list." :key-type (sexp :tag "Key") :value-type (sexp :tag "Value") :convert-widget widget-alist-convert-widget :tag "Alist" defalias #[(widget) "\305\306\"\305\307\"\310\311\312\313\314\315\305\316\"\n\257F \2030\317\311\312\320\312\321\322 \"BBBBB D\2022 C\323\324\f#\210,\207" [widget options widget-alist-value-type other args widget-get :options :value-type editable-list :inline t cons :format "%v" :key-type checklist :greedy mapcar widget-alist-convert-option widget-put :args] 9] widget-alist-convert-option #[(option) "\305\211\n<\203\"\n@\nA@ <\203 \202\306 D)\202(\306\nD\f\307\310\311 \257*\207" [value-type key-type option key widget-alist-value-type nil const cons :format "Key: %v"] 5] provide weblogger] 12)