;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'ede) #@46 Browse the home page of the current project. (defalias 'ede-web-browse-home #[nil "\301 \204 \302\303!\210\304\301 \305\"\211\306\230\203\302\307!\210\310\311!\210\311!)\207" [home ede-toplevel error "No project" eieio-oref web-site-url "" "Now URL is stored in this project" require browse-url] 4 (#$ . 423) nil]) #@37 Edit the web site for this project. (defalias 'ede-edit-web-page #[nil "\304 \305\306\"\305\307\"\310 !\nP\311\312 \"\203\313\314!\210\315 !\204;\n\311\312 \"\2031\313\314!\210\315 !\204;\316\317!\210\320 !,\207" [toplevel dir file endfile ede-toplevel eieio-oref web-site-directory web-site-file file-name-as-directory string-match "^/r[:@]" require tramp file-exists-p error "No project file found" find-file] 3 (#$ . 749) nil]) #@188 Upload the current distribution to the correct location. Use /user@ftp.site.com: file names for FTP sites. Download tramp, and use /r:machine: for names on remote sites w/out FTP access. (defalias 'ede-upload-distribution #[nil "\303\304 !\305\304 \306\"\307\230\203\305\304 \310\"\202\305\304 \306\"\211\307\230\204)\311 !\204.\312\313 \"\210\203e\314\305\304 \315\"!@P\311\n!\204P\316\317\n\"\210\320 \210\312\317\n\"\210\321 !\322\323\n!Q\324\n \"\210A)\202.*\316\325!\207" [files upload localfile project-dist-files ede-toplevel eieio-oref ftp-upload-site "" ftp-site file-exists-p error "Upload directory %S does not exist" file-name-directory file message "File %s does not exist yet. Building a distribution" ede-make-dist directory-file-name "/" file-name-nondirectory copy-file "Done uploading files..."] 5 (#$ . 1199) nil]) #@187 Upload the current distributions documentation as HTML. Use /user@ftp.site.com: file names for FTP sites. Download tramp, and use /r:machine: for names on remote sites w/out FTP access. (defalias 'ede-upload-html-documentation #[nil "\303\304\305 \306\"\307\230\203\304\305 \310\"\202\304\305 \306\"\211\307\230\204&\311 !\204+\312\313 \"\210\203V\314\304\305 \315\"!@P\311\n!\204J\316\317\n\"\210\312\317\n\"\210\320\n \"\210A)\202+*\316\321!\207" [files upload localfile nil eieio-oref ede-toplevel ftp-upload-site "" ftp-site file-exists-p error "Upload directory %S does not exist" file-name-directory file message "File %s does not exist yet. Building a distribution" copy-file "Done uploading files..."] 5 (#$ . 2058) nil]) #@38 Run `vc-dir' on the current project. (defalias 'ede-vc-project-directory #[nil "\302!\303 \304\")\207" [default-directory top ede-toplevel-project-or-nil vc-dir nil] 3 (#$ . 2811) nil]) (provide 'ede/system)