;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require speedbar eieio-speedbar ede] 2)
#@49 A Generic object based speedbar display keymap.
(defvar ede-speedbar-key-map nil (#$ . 178))
#@48 Make the generic object based speedbar keymap.
(defalias 'ede-speedbar-make-map #[0 "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\312\313#\210\302\314\315#\210\302\316\317#\210\302\320\321#\210\302\322\323#\210\302\324\325#\210\302\326\327#\207" [ede-speedbar-key-map speedbar-make-specialized-keymap define-key "
" speedbar-edit-line "+" speedbar-expand-line "=" "-" speedbar-contract-line " " speedbar-toggle-line-expansion "C" eieio-speedbar-customize-line "R" ede-speedbar-remove-file-from-target "b" ede-speedbar-compile-line "B" ede-speedbar-compile-project "D" ede-speedbar-make-distribution "E" ede-speedbar-edit-projectfile] 4 (#$ . 277)])
#@71 Menu part in easymenu format used in speedbar while browsing objects.
(defvar ede-speedbar-menu '(["Compile" ede-speedbar-compile-line t] ["Compile Project" ede-speedbar-compile-project (ede-project-child-p (speedbar-line-token))] "---" ["Edit File/Tag" speedbar-edit-line (not (eieio-object-p (speedbar-line-token)))] ["Expand" speedbar-expand-line (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.\\+. "))] ["Contract" speedbar-contract-line (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.-. "))] "---" ["Remove File from Target" ede-speedbar-remove-file-from-target (stringp (speedbar-line-token))] ["Customize Project/Target" eieio-speedbar-customize-line (eieio-object-p (speedbar-line-token))] ["Edit Project File" ede-speedbar-edit-projectfile t] ["Make Distribution" ede-speedbar-make-distribution (ede-project-child-p (speedbar-line-token))]) (#$ . 977))
(eieio-speedbar-create 'ede-speedbar-make-map 'ede-speedbar-key-map 'ede-speedbar-menu "Project" 'ede-speedbar-toplevel-buttons)
#@59 EDE development environment project browser for speedbar.
(defalias 'ede-speedbar #[0 "\300\301!\210\302\303!\210\304 \207" [speedbar-frame-mode 1 speedbar-change-initial-expansion-list "Project" speedbar-get-focus] 2 (#$ . 1998) nil])
#@132 Return a list of objects to display in speedbar.
Argument DIR is the directory from which to derive the list of objects.

(fn DIR)
(defalias 'ede-speedbar-toplevel-buttons #[257 "\207" [ede-projects] 2 (#$ . 2241)])
#@43 Remove the file at point from its target.
(defalias 'ede-speedbar-remove-file-from-target #[0 "\300 ;\205\301 \210\302 \207" [speedbar-line-token speedbar-edit-line ede-remove-file] 1 (#$ . 2464) nil])
#@51 Compile/Build the project or target on this line.
(defalias 'ede-speedbar-compile-line #[0 "\300 \301
!\205!\302
\303\"\203\304
!\207\302
\305\"\203\306
!\207\307\310!\207" [eieio-speedbar-find-nearest-object eieio-object-p obj-of-class-p ede-project project-compile-project ede-target project-compile-target error "Error in speedbar structure"] 4 (#$ . 2674) nil])
#@40 Return a project object for this line.
(defalias 'ede-speedbar-get-top-project-for-line #[0 "\300 \301
!\204\f\302\303!\207\304
\305\"\203\306
!\262
\304
\307\"\203 \207\302\303!\207" [eieio-speedbar-find-nearest-object eieio-object-p error "Error in speedbar or ede structure" obj-of-class-p ede-target ede-target-parent ede-project] 4 (#$ . 3051) nil])
#@49 Compile/Build the project which owns this line.
(defalias 'ede-speedbar-compile-project #[0 "\300\301 !\207" [project-compile-project ede-speedbar-get-top-project-for-line] 2 (#$ . 3416) nil])
#@61 Compile/Build the target which the current file belongs to.
(defalias 'ede-speedbar-compile-file-project #[0 "\301 \302
!\303
\304\"\211\203\305
!\210\306\307!!\207\310!\210
q\210\311 \207" [speedbar-frame speedbar-line-file find-file-noselect get-buffer-window 0 select-window raise-frame window-frame dframe-select-attached-frame ede-compile-target] 6 (#$ . 3615) nil])
#@43 Edit the project file based on this line.
(defalias 'ede-speedbar-make-distribution #[0 "\300\301 !\207" [project-make-dist ede-speedbar-get-top-project-for-line] 2 (#$ . 3997) nil])
#@43 Edit the project file based on this line.
(defalias 'ede-speedbar-edit-projectfile #[0 "\300\301 !\207" [project-edit-file-target ede-speedbar-get-top-project-for-line] 2 (#$ . 4186) nil])
#@36 Go backwards until we find a file.
(defalias 'ede-find-nearest-file-line #[0 "\212\300 \210\301\302!\210\303\304\305!!\306\307\310 \311#\204%\312\313\314S\"!\210\211S\262
\202
\315 \262
)\207" [beginning-of-line looking-at "^\\([0-9]+\\):" string-to-number match-string 1 re-search-forward "[]] [^ ]" point-at-eol t re-search-backward format "^%d:" speedbar-line-token] 5 (#$ . 4381)])
(byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\210\300\307\302\310\302\311%\210\300\307\302\312\302\313%\210\300\314\302\315\302\316%\210\300\317\302\320\302\321%\210\300\317\302\322\302\323%\210\300\324\302\325\302\326%\210\300\324\302\327\302\330%\210\300\331\302\332\302\333%\207" [cl-generic-define-method eieio-speedbar-derive-line-path nil ((obj ede-project) &optional _depth) #[513 "\300\301\302\"!\207" [file-name-directory eieio-oref file] 6 "Return the path to OBJ.\nOptional DEPTH is the depth we start at.\n\n(fn OBJ &optional DEPTH)"] ((obj ede-target) &optional _depth) #[513 "\300!\212\301 \302
!\204\211;\203\303!\202\303!\304 P\262
)\207" [ede-target-parent speedbar-line-token eieio-object-p eieio-speedbar-derive-line-path ede-find-nearest-file-line] 6 "Return the path to OBJ.\nOptional DEPTH is the depth we start at.\n\n(fn OBJ &optional DEPTH)"] eieio-speedbar-description ((obj ede-project)) #[257 "\300
!\207" [ede-description] 3 "Provide a speedbar description for OBJ.\n\n(fn OBJ)"] ((obj ede-target)) #[257 "\300
!\207" [ede-description] 3 "Provide a speedbar description for OBJ.\n\n(fn OBJ)"] eieio-speedbar-child-description ((_obj ede-target)) #[257 "\300 \206\301 \207" [speedbar-item-info-file-helper speedbar-item-info-tag-helper] 2 "Provide a speedbar description for a plain-child of OBJ.\nA plain child is a child element which is not an EIEIO object.\n\n(fn OBJ)"] eieio-speedbar-object-buttonname ((object ede-project)) #[257 "\300
!\203\n\301
!\207\301
!\302\303\304\"Q\207" [ede-parent-project ede-name " " eieio-oref version] 6 "Return a string to use as a speedbar button for OBJECT.\n\n(fn OBJECT)"] ((object ede-target)) #[257 "\300
!\207" [ede-name] 3 "Return a string to use as a speedbar button for OBJECT.\n\n(fn OBJECT)"] eieio-speedbar-object-children ((this ede-project)) #[257 "\3001\301\302\303\"\302\304\"\"0\207\210\305\207" [(error) append slot-value subproj targets nil] 6 "Return the list of speedbar display children for THIS.\n\n(fn THIS)"] ((this ede-target)) #[257 "\300
\301\"\207" [eieio-oref source] 4 "Return the list of speedbar display children for THIS.\n\n(fn THIS)"] eieio-speedbar-child-make-tag-lines ((this ede-target) depth) #[514 "\300\301\302\"\303\304\"\"\207" [mapcar make-closure #[257 "\301\302\303\304\211\305\306\300&	\207" [V0 speedbar-make-tag-line bracket 43 speedbar-tag-file ede-file-find speedbar-file-face] 11 "\n\n(fn CAR)"] slot-value source] 7 "Create a speedbar tag line for a child of THIS.\nIt has depth DEPTH.\n\n(fn THIS DEPTH)"]] 6)
#@100 Find the file TEXT at path TOKEN.
INDENT is the current indentation level.

(fn TEXT TOKEN INDENT)
(defalias 'ede-file-find #[771 "\300\301\302!\"!\210\303 \207" [speedbar-find-file-in-frame expand-file-name speedbar-line-directory dframe-maybee-jump-to-attached-frame] 8 (#$ . 7354)])
#@82 Create the tag buttons associated with FILENAME at INDENT.

(fn FILENAME INDENT)
(defalias 'ede-create-tag-buttons #[514 "\301!\211\204\302\303!\207\304\305S\306\307$)\207" [inhibit-read-only speedbar-fetch-dynamic-tags speedbar-change-expand-button-char 63 t speedbar-insert-generic-list ede-tag-expand ede-tag-find] 8 (#$ . 7648)])
#@242 Expand a tag sublist.  Imenu will return sub-lists of specialized tag types.
Etags does not support this feature.  TEXT will be the button
string.  TOKEN will be the list, and INDENT is the current indentation
level.

(fn TEXT TOKEN INDENT)
(defalias 'ede-tag-expand #[771 "\301\302\"\203\303\304!\210\305\212\306\210\307u\210\310
\311\312$\210*\2025\301\313\"\2031\303\314!\210\315
!\210\2025\316\317!\210\320 \207" [inhibit-read-only string-search "+" speedbar-change-expand-button-char 45 t nil 1 speedbar-insert-generic-list ede-tag-expand ede-tag-find "-" 43 speedbar-delete-subblock error "Ooops...  not sure what to do" speedbar-center-buffer-smartly] 8 (#$ . 7995)])
#@120 For the tag TEXT in a file TOKEN, goto that position.
INDENT is the current indentation level.

(fn TEXT TOKEN INDENT)
(defalias 'ede-tag-find #[771 "\300 \301
!\210\212\302 \210)b\210\303\304!\210\305 \207" [ede-find-nearest-file-line speedbar-find-file-in-frame speedbar-stealthy-updates run-hooks speedbar-visiting-tag-hook dframe-maybee-jump-to-attached-frame] 6 (#$ . 8687)])
#@53 Set of menu items to splice into the speedbar menu.
(defvar ede-speedbar-file-menu-additions '("----" ["Create EDE Target" ede-new-target (ede-current-project)] ["Compile project" ede-speedbar-compile-project (ede-current-project)] ["Make distribution" ede-make-dist (ede-current-project)]) (#$ . 9075))
#@42 Keymap spliced into the speedbar keymap.
(defvar ede-speedbar-file-keymap (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\307#\210\301
\310\311#\210\207" [make-sparse-keymap define-key "t" ede-new-target "s" ede-speedbar "C" ede-speedbar-compile-project "d" ede-make-dist] 5) (#$ . 9385))
#@54 Setup some keybindings in the Speedbar File display.
(defalias 'ede-speedbar-file-setup #[0 "\306	\"\307\n\310#\210\f\311\230\205\312
!\205\313\311!\207" [speedbar-easymenu-definition-special ede-speedbar-file-menu-additions speedbar-file-key-map ede-speedbar-file-keymap speedbar-initial-expansion-list-name speedbar-buffer append define-key "." "files" buffer-live-p speedbar-change-initial-expansion-list] 4 (#$ . 9695)])
(provide 'ede/speedbar)