PageRenderTime 27ms CodeModel.GetById 20ms RepoModel.GetById 0ms app.codeStats 0ms

/netbeans/plugins/org-enclojure-plugin/src/main/clojure/org/enclojure/ide/nb/actions/token_navigator.clj

https://github.com/EricThorsen/enclojure
Clojure | 58 lines | 37 code | 6 blank | 15 comment | 2 complexity | d201e772add77a3223238e91032c3f7d MD5 | raw file
    

  1. (comment
    2. 

  2. ;*******************************************************************************
    3. 

  3. ;*    Copyright (c) ThorTech, L.L.C.. All rights reserved.
    4. 

  4. ;*    The use and distribution terms for this software are covered by the
    5. 

  5. ;*    GNU General Public License, version 2
    6. 

  6. ;*    (http://www.gnu.org/licenses/old-licenses/gpl-2.0.html) with classpath
    7. 

  7. ;*    exception (http://www.gnu.org/software/classpath/license.html)
    8. 

  8. ;*    which can be found in the file GPL-2.0+ClasspathException.txt at the root
    9. 

  9. ;*    of this distribution.
    10. 

  10. ;*    By using this software in any fashion, you are agreeing to be bound by
    11. 

  11. ;*    the terms of this license.
    12. 

  12. ;*    You must not remove this notice, or any other, from this software.
    13. 

  13. ;*******************************************************************************
    14. 

  14. ;*    Author: Narayan Singhal
    15. 

  15. ;*******************************************************************************
    16. 

  16. )
    17. 

  17. 

  18. (ns org.enclojure.ide.nb.actions.token-navigator
    19. 

  19.   (:use
    20. 

  20.     org.enclojure.ide.navigator.token-nav
    21. 

  21.     )
    22. 

  22.   (:require
    23. 

  23.     [org.enclojure.commons.c-slf4j :as logger]
    24. 

  24.     )
    25. 

  25.   (:import
    26. 

  26.     (javax.swing JEditorPane)
    27. 

  27.     (java.util.logging Level)
    28. 

  28.     (java.awt EventQueue)
    29. 

  29.     (org.netbeans.api.lexer TokenHierarchy TokenSequence Token)
    30. 

  30.     (org.openide.windows TopComponent)
    31. 

  31.     (org.openide.cookies EditorCookie)
    32. 

  32.     ))
    33. 

  33. 

  34. ; setup logging
    35. 

  35. (logger/ensure-logger)
    36. 

  36. 

  37. (defn editor-cookie [nodes]
    38. 

  38.   (when (= (alength nodes) 1)
    39. 

  39.     (. (aget nodes 0) (getCookie (identity EditorCookie)))))
    40. 

  40. 

  41. (defn current-editor-pane
    42. 

  42.   "Get the current JEditorPane."
    43. 

  43.   ([nodes]
    44. 

  44.     (when-let [ec (editor-cookie nodes)]
    45. 

  45.       (aget (.getOpenedPanes ec) 0)))
    46. 

  46.   ([]
    47. 

  47.     (current-editor-pane (-> (TopComponent/getRegistry) .getActivatedNodes))))
    48. 

  48. 

  49. (defn current-editor-pane-awt []
    50. 

  50.   "Get the current JEditorPane in AWT thread"
    51. 

  51.   (let [pane (atom nil)]
    52. 

  52.     (EventQueue/invokeAndWait
    53. 

  53.       #(swap! pane (fn [_] (current-editor-pane))))
    54. 

  54.     @pane))
    55. 

  55. 

  56. (defn current-editor-pane-doc []
    57. 

  57.   "Get the current doc"
    58. 

  58.     (.getDocument (current-editor-pane-awt)))
    59.