1373 (interactive (list (read-string "Search for Cygwin package on-line: "))) |
1373 (interactive (list (read-string "Search for Cygwin package on-line: "))) |
1374 (browse-url (format "http://cygwin.com/cgi-bin2/package-grep.cgi?grep=%s" str)) |
1374 (browse-url (format "http://cygwin.com/cgi-bin2/package-grep.cgi?grep=%s" str)) |
1375 ) |
1375 ) |
1376 |
1376 |
1377 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1377 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1378 (message "netbeans") |
1378 (message "ide, netbeans, idea") |
1379 |
1379 |
1380 (defun netbeans-find-command () |
1380 (defun ide-netbeans-find-command () |
1381 "Search for NetBeans executable in PATH, later in '/opt/netbeans*/bin/'." |
1381 "Search for NetBeans executable in PATH, later in '/opt/netbeans*/bin/'." |
1382 (or |
1382 (or |
1383 (executable-find "netbeans") |
1383 (executable-find "netbeans") |
1384 (car (last (sort (file-expand-wildcards "/opt/[Nn]etbeans*/bin/netbeans" t) 'equal))) )) |
1384 (car (last (sort (file-expand-wildcards "/opt/[Nn]etbeans*/bin/netbeans" t) 'equal))) )) |
1385 (defvar netbeans-command (netbeans-find-command) |
1385 (defvar ide-netbeans-program (ide-netbeans-find-command) |
1386 "Command to run NetBeans.") |
1386 "Command to run NetBeans.") |
1387 (defun netbeans-open-file (file &optional line) |
1387 |
|
1388 (defconst ide-netbeans-process-bufname "*ide-netbeans*" |
|
1389 "Name used in `start-process'") |
|
1390 (defun ide-netbeans-open-file (file &optional line) |
1388 "Open FILE on LINE in NetBeans." |
1391 "Open FILE on LINE in NetBeans." |
|
1392 (unless ide-netbeans-program |
|
1393 (error "'ide-netbeans-program' is not set")) |
1389 (if (integerp line) |
1394 (if (integerp line) |
1390 (start-process "netbeans" nil netbeans-command "--open" (format "%s:%d" file line)) |
1395 (start-process ide-netbeans-process-bufname nil ide-netbeans-program "--open" (format "%s:%d" file line)) |
1391 (start-process "netbeans" nil netbeans-command "--open" file))) |
1396 (start-process ide-netbeans-process-bufname nil ide-netbeans-program "--open" file))) |
1392 (defun netbeans-open-this-buffer () |
1397 (defun ide-netbeans-open-this-buffer () |
1393 "Open file for burrent buffer in NetBeans." |
1398 "Open current buffer in NetBeans." |
1394 (interactive) |
1399 (interactive) |
1395 (unless (stringp (buffer-file-name)) |
1400 (unless (stringp (buffer-file-name)) |
1396 (error "Buffer have no association with a file")) |
1401 (error "Buffer have no association with a file")) |
1397 (if (file-regular-p (buffer-file-name)) |
1402 (if (file-regular-p (buffer-file-name)) |
1398 (netbeans-open-file (buffer-file-name) (line-number-at-pos)) |
1403 (ide-netbeans-open-file (buffer-file-name) (line-number-at-pos)) |
1399 (message "Current buffer wasnt' associated with a real file"))) |
1404 (message "Current buffer wasnt' associated with a real file"))) |
|
1405 |
|
1406 (defvar ide-idea-program nil |
|
1407 "Idea executable or full path, like 'idea64.exe'") |
|
1408 |
|
1409 (defconst ide-idea-process-bufname "*ide-idea*" |
|
1410 "Name used in `start-process'") |
|
1411 (defun ide-idea-open-file (file &optional line) |
|
1412 "Open FILE on LINE in Intellij Idea." |
|
1413 (unless ide-idea-program |
|
1414 (error "'ide-idea-program' is not set")) |
|
1415 (let ( (default-directory (file-name-directory file)) (fname (file-name-nondirectory file)) ) |
|
1416 (if (integerp line) |
|
1417 (start-process ide-idea-process-bufname nil ide-idea-program "--line" (int-to-string line) fname) |
|
1418 (start-process ide-idea-process-bufname nil ide-idea-program fname)))) |
|
1419 (defun ide-idea-open-this-buffer () |
|
1420 "Open current buffer in Intellij Idea." |
|
1421 (interactive) |
|
1422 (unless (stringp (buffer-file-name)) |
|
1423 (error "Buffer have no association with a file")) |
|
1424 (unless (file-regular-p (buffer-file-name)) |
|
1425 (error "Current buffer isn't associated with a real file")) |
|
1426 (ide-idea-open-file (buffer-file-name) (line-number-at-pos))) |
1400 |
1427 |
1401 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1428 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1402 (message "calendar") |
1429 (message "calendar") |
1403 |
1430 |
1404 (eval-when 'compile (require 'calendar)) |
1431 (eval-when 'compile (require 'calendar)) |